loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.52.2.3.2.4, 2021/06/20 18:37:35	version 1.52.2.5.2.2, 2023/07/09 17:35:52
Line 1710 sub build_batchcreatehash {	Line 1710 sub build_batchcreatehash {
my %clonedfrom = &Apache::lonnet::coursedescription($details->{'clonedom'}.'_'.$details->{'clonecrs'});	my %clonedfrom = &Apache::lonnet::coursedescription($details->{'clonedom'}.'_'.$details->{'clonecrs'});
$batchhash{'textbook'} = $clonedfrom{'description'};	$batchhash{'textbook'} = $clonedfrom{'description'};
}	}
	} elsif ($details->{'crstype'} eq 'lti') {
	$batchhash{'lti'} = 1;
}	}
$batchhash{'crstype'} = 'Course';	$batchhash{'crstype'} = 'Course';
}	}
Line 2119 sub process_official_reqs {	Line 2121 sub process_official_reqs {
my ($result,$postprocess) =	my ($result,$postprocess) =
&course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,$clonemsg,\$newusermsg,	&course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,$clonemsg,\$newusermsg,
\$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,	\$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,
\$code,\%customitems,$context,$user_lh);	\$code,\%customitems,$context,$user_lh);
if ($result eq 'created') {	if ($result eq 'created') {
$disposition = 'created';	$disposition = 'created';
$reqstatus = 'created';	$reqstatus = 'created';