version 1.81, 2014/08/27 01:29:27
|
version 1.82, 2014/12/12 14:30:47
|
Line 290 sub print_main_frame {
|
Line 290 sub print_main_frame {
|
# Get course settings |
# Get course settings |
my %enrollvar; |
my %enrollvar; |
my %settings = &Apache::lonnet::dump('environment',$dom,$crs); |
my %settings = &Apache::lonnet::dump('environment',$dom,$crs); |
foreach my $item (keys %settings) { |
foreach my $item (keys(%settings)) { |
if ($item =~ m/^internal\.(.+)$/) { |
if ($item =~ m/^internal\.(.+)$/) { |
$enrollvar{$1} = $settings{$item}; |
$enrollvar{$1} = $settings{$item}; |
} elsif ($item =~ /^default_enrollment_(start|end)_date$/) { |
} elsif ($item =~ /^default_enrollment_(start|end)_date$/) { |