loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.46, 2014/04/19 20:48:43	version 1.47, 2014/04/30 17:17:35
Line 1605 sub course_creation {	Line 1605 sub course_creation {
my ($result,$ownername,$ownerdom);	my ($result,$ownername,$ownerdom);
my $crstype = $details->{'crstype'};	my $crstype = $details->{'crstype'};
my $coursedesc = $details->{'cdescr'};	my $coursedesc = $details->{'cdescr'};
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestauthor'],$dom);	my $accessstart = $details->{'accessstart'};
	my $accessend = $details->{'accessend'};
	my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom);
if (ref($domconfig{'requestcourses'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {
if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {	if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {
Line 1639 sub course_creation {	Line 1641 sub course_creation {
$code = $$coderef;	$code = $$coderef;
}	}
$postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername,	$postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername,
$ownerdom,$fullname,$coursedesc,$code,$customhash);	$ownerdom,$fullname,$coursedesc,$code,
	$accessstart,$accessend,$customhash);
} else {	} else {
$result = 'error: '.$cid;	$result = 'error: '.$cid;
}	}