version 1.141, 2003/12/04 21:45:18
|
version 1.142, 2003/12/05 16:18:45
|
Line 1616 sub crsenv {
|
Line 1616 sub crsenv {
|
'default_enrollment_end_date', |
'default_enrollment_end_date', |
); |
); |
foreach my $parameter (sort(keys(%values))) { |
foreach my $parameter (sort(keys(%values))) { |
if (! $descriptions{$parameter}) { |
unless ($parameter =~ m/^internal\./) { |
$descriptions{$parameter}=$parameter; |
if (! $descriptions{$parameter}) { |
push(@Display_Order,$parameter); |
$descriptions{$parameter}=$parameter; |
} |
push(@Display_Order,$parameter); |
|
} |
|
} |
} |
} |
foreach my $parameter (@Display_Order) { |
foreach my $parameter (@Display_Order) { |
my $description = $descriptions{$parameter}; |
my $description = $descriptions{$parameter}; |