version 1.404, 2008/07/09 11:10:06
|
version 1.405, 2008/07/15 20:00:58
|
Line 2399 sub crsenv {
|
Line 2399 sub crsenv {
|
'disableexampointprint', |
'disableexampointprint', |
'task_messages','task_grading')); |
'task_messages','task_grading')); |
foreach my $parameter (sort(keys(%values))) { |
foreach my $parameter (sort(keys(%values))) { |
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) { |
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) || |
|
($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/) |
|
|| ($parameter eq 'type')) { |
if (! $descriptions{$parameter}) { |
if (! $descriptions{$parameter}) { |
$descriptions{$parameter}=$parameter; |
$descriptions{$parameter}=$parameter; |
push(@Display_Order,$parameter); |
push(@Display_Order,$parameter); |