loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.36, 2021/12/28 02:04:35	version 1.37, 2022/01/13 03:50:32
Line 193	Line 193
if ($enrollvar{$crs}{'autodropfailsafetype'}) {	if ($enrollvar{$crs}{'autodropfailsafetype'}) {
$failsafetype = $enrollvar{$crs}{'autodropfailsafetype'};	$failsafetype = $enrollvar{$crs}{'autodropfailsafetype'};
}	}
my ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$enrollvar{$crs}{autoadds},$enrollvar{$crs}{autodrops},$enrollvar{$crs}{startdate},$enrollvar{$crs}{enddate},$enrollvar{$crs}{authtype},$enrollvar{$crs}{autharg},$showcredits,$defaultcredits,$failsafe,$failsafetype,$$affiliates{$crs},$LC_code{$crs},\$logmsg,\$newusermsg,'automated');	my ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$enrollvar{$crs}{autoadds},$enrollvar{$crs}{autodrops},$enrollvar{$crs}{startdate},$enrollvar{$crs}{enddate},$enrollvar{$crs}{authtype},$enrollvar{$crs}{autharg},$showcredits,$defaultcredits,$failsafe,$failsafetype,$affiliates{$crs},$LC_code{$crs},\$logmsg,\$newusermsg,'automated');
print $fh &mt('Messages start for [_1]',$crs)."\n";	print $fh &mt('Messages start for [_1]',$crs)."\n";
print $fh "$logmsg\n";	print $fh "$logmsg\n";
print $fh &mt('Messages end for [_1]',$crs)."\n";	print $fh &mt('Messages end for [_1]',$crs)."\n";