version 1.5, 2009/08/20 20:43:08
|
version 1.7, 2009/08/27 00:06:18
|
Line 220 sub display_queued_requests {
|
Line 220 sub display_queued_requests {
|
} else { |
} else { |
$formaction = '/adm/createcourse'; |
$formaction = '/adm/createcourse'; |
$namespace = 'courserequestqueue'; |
$namespace = 'courserequestqueue'; |
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,undef,'_approval'); |
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_approval'); |
$nextelement = '<input type="hidden" name="phase" value="requestchange" />'; |
$nextelement = '<input type="hidden" name="phase" value="requestchange" />'; |
} |
} |
my ($output,%queue_by_date,%crstypes); |
my ($output,%queue_by_date,%crstypes); |
Line 293 sub display_queued_requests {
|
Line 293 sub display_queued_requests {
|
|
|
} else { |
} else { |
my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5); |
my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5); |
$detailslink='<a href="javascript::opencoursereqdisplay('. |
$detailslink='<a href="javascript:opencoursereqdisplay('. |
"'$dom".'_'."$cnum'".');">'.$cdesc.'</a>'; |
"'$dom','$cnum'".');">'.$cdesc.'</a>'; |
$crstype = $type; |
$crstype = $type; |
if (defined($crstypes{$type})) { |
if (defined($crstypes{$type})) { |
$crstype = $crstypes{$type}; |
$crstype = $crstypes{$type}; |
Line 380 sub update_request_queue {
|
Line 380 sub update_request_queue {
|
$domdesc = &Apache::lonnet::domain($cdom); |
$domdesc = &Apache::lonnet::domain($cdom); |
$namespace = 'courserequestqueue'; |
$namespace = 'courserequestqueue'; |
$beneficiary = 'courserequestor'; |
$beneficiary = 'courserequestor'; |
%requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,undef,'_approval'); |
%requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_approval'); |
my $chome = &Apache::lonnet::domain($cdom,'primary'); |
my $chome = &Apache::lonnet::domain($cdom,'primary'); |
$hostname = &Apache::lonnet::hostname($chome); |
$hostname = &Apache::lonnet::hostname($chome); |
$protocol = $Apache::lonnet::protocol{$chome}; |
$protocol = $Apache::lonnet::protocol{$chome}; |