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}} = (); |