loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.85, 2014/06/16 01:42:22	version 1.86, 2015/03/26 14:16:11
Line 3670 sub process_request {	Line 3670 sub process_request {
$dom,$crstype,$limit,\$message);	$dom,$crstype,$limit,\$message);
} elsif ($val eq 'validate') {	} elsif ($val eq 'validate') {
my ($inststatuslist,$validationchk,$validation,%custominfo);	my ($inststatuslist,$validationchk,$validation,%custominfo);
	if (ref($details) eq 'HASH') {
	if ($details->{'clonecrs'}) {
	$custominfo{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'};
	}
	}
if (@inststatuses > 0) {	if (@inststatuses > 0) {
$inststatuslist = join(',',@inststatuses);	$inststatuslist = join(',',@inststatuses);
}	}
Line 3762 sub process_request {	Line 3767 sub process_request {
&mt('Your request is being processed; this page will update when processing is complete.').	&mt('Your request is being processed; this page will update when processing is complete.').
'</div>');	'</div>');
$r->rflush();	$r->rflush();
	if (ref($details) eq 'HASH') {
	if ($details->{'clonecrs'}) {
	$customitems{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'};
	}
	}
my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,	my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,	'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,	\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,