version 1.141, 2003/12/04 21:45:18
|
version 1.144, 2003/12/12 15:03:26
|
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}; |
Line 1762 ENDOVER
|
Line 1764 ENDOVER
|
} |
} |
} |
} |
# Store |
# Store |
&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs); |
my $delentries=$#deldata+1; |
&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs); |
my @newdatakeys=keys %newdata; |
|
my $putentries=$#newdatakeys+1; |
|
if ($delentries) { |
|
if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') { |
|
$r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries)); |
|
} else { |
|
$r->print('<h2><font color="red">'. |
|
&mt('Error deleting parameters').'</font></h2>'); |
|
} |
|
} |
|
if ($putentries) { |
|
if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') { |
|
$r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries)); |
|
} else { |
|
$r->print('<h2><font color="red">'. |
|
&mt('Error storing parameters').'</font></h2>'); |
|
} |
|
} |
# Read and display |
# Read and display |
my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs); |
my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs); |
my $oldsection=''; |
my $oldsection=''; |