loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2009/08/20 20:43:08	version 1.6, 2009/08/24 20:08:36
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 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};