version 1.141, 2003/12/04 21:45:18
|
version 1.143, 2003/12/08 23:17:52
|
Line 1099 sub assessparms {
|
Line 1099 sub assessparms {
|
'rl' => "Resource Level", |
'rl' => "Resource Level", |
'ic' => 'in Course', |
'ic' => 'in Course', |
'aut' => "Assessment URL and Title", |
'aut' => "Assessment URL and Title", |
'type' => &mt('Type'), |
'type' => 'Type', |
'emof' => "Enclosing Map or Folder", |
'emof' => "Enclosing Map or Folder", |
'part' => &mt('Part'), |
'part' => 'Part', |
'pn' => 'Parameter Name', |
'pn' => 'Parameter Name', |
'def' => 'default', |
'def' => 'default', |
'femof' => 'from Enclosing Map or Folder', |
'femof' => 'from Enclosing Map or Folder', |
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}; |