loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.27, 2007/05/15 06:19:53	version 1.29, 2008/01/02 03:39:50
Line 75	Line 75
my %reply = ();	my %reply = ();
my %LC_code = ();	my %LC_code = ();
foreach my $key (sort keys %courses) {	foreach my $key (sort keys %courses) {
my $crs;	my %args = (
if ($key =~ m/^($dom)_(\w+)$/) {	one_time => 1,
$crs = $2;	);
}	my %coursehash = &Apache::lonnet::coursedescription($key,\%args);
	my $crs = $coursehash{'num'};
	next if ($coursehash{'domain'} ne $dom);
# Get course settings	# Get course settings
my %settings = &Apache::lonnet::dump('environment',$dom,$crs);	my %settings = &Apache::lonnet::dump('environment',$dom,$crs);
%{$enrollvar{$crs}} = ();	%{$enrollvar{$crs}} = ();
Line 235	Line 236
if ( ($enrollvar{$crs}{autostart} < $timenow) && ( ($enrollvar{$crs}{autoend} > $timenow) \|\| ($enrollvar{$crs}{autoend} == 0) ) ) {	if ( ($enrollvar{$crs}{autostart} < $timenow) && ( ($enrollvar{$crs}{autoend} > $timenow) \|\| ($enrollvar{$crs}{autoend} == 0) ) ) {
print $fh &mt('No institutional classlist data could be retrieved for [_1]',$crs)."\n";	print $fh &mt('No institutional classlist data could be retrieved for [_1]',$crs)."\n";
} else {	} else {
print $fh ('Not within time window for auto-enrollment in [_1]',$crs)."\n";	print $fh &mt('Not within time window for auto-enrollment in [_1]',$crs)."\n";
}	}
} else {	} else {
print $fh &mt('Auto-enrollment not currently enabled for [_1]',$crs)."\n";	print $fh &mt('Auto-enrollment not currently enabled for [_1]',$crs)."\n";