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.28, 2007/12/05 02:04:02
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}} = ();