--- loncom/enrollment/Autoenroll.pl 2004/02/08 15:47:45 1.7 +++ loncom/enrollment/Autoenroll.pl 2004/03/18 19:40:39 1.8 @@ -1,7 +1,7 @@ #!/usr/bin/perl # #Automated Enrollment script -# $Id: Autoenroll.pl,v 1.7 2004/02/08 15:47:45 raeburn Exp $ +# $Id: Autoenroll.pl,v 1.8 2004/03/18 19:40:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -163,7 +163,15 @@ } } } else { - print $fh "No institutional classlist data could be retrieved for $crs\n"; + if ( ($enrollvar{$crs}{autoadds} == 1) || ($enrollvar{$crs}{autodrops} == 1) ) { + if ( ($enrollvar{$crs}{autostart} < $timenow) && ( ($enrollvar{$crs}{autoend} > $timenow) || ($enrollvar{$crs}{autoend} == 0) ) ) { + print $fh "No institutional classlist data could be retrieved for $crs\n"; + } else { + print $fh "Not within time window for auto-enrollment in $crs\n"; + } + } else { + print $fh "Auto-enrollment not currently enabled for $crs\n"; + } } } print $fh "-- ".localtime(time)." Enrollment messages end\n*******************\n\n";