version 1.59, 2002/08/12 18:54:16
|
version 1.62, 2002/08/17 20:04:18
|
Line 870 sub assessparms {
|
Line 870 sub assessparms {
|
$r->print('</table>'); |
$r->print('</table>'); |
|
|
my @temp_psprt; |
my @temp_psprt; |
map { |
foreach my $t (@psprt) { |
my $t = $_; |
push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts)); |
push(@temp_psprt, |
} |
grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts)); |
|
} @psprt; |
|
|
|
@psprt = @temp_psprt; |
@psprt = @temp_psprt; |
|
|
Line 1034 ENDTABLEHEADFOUR
|
Line 1032 ENDTABLEHEADFOUR
|
|
|
#-------------------------------------------- for each map, gather information |
#-------------------------------------------- for each map, gather information |
my $mapid; |
my $mapid; |
foreach $mapid (keys %maplist) { |
foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) { |
my $maptitle = $allmaps{$mapid}; |
my $maptitle = $maplist{$mapid}; |
|
|
#----------------------- loop through ids and get all parameter types for map |
#----------------------- loop through ids and get all parameter types for map |
#----------------------------------------- and associated information |
#----------------------------------------- and associated information |
Line 1235 sub crsenv {
|
Line 1233 sub crsenv {
|
} |
} |
if ($name eq 'url') { |
if ($name eq 'url') { |
$value=~s/^\/res\///; |
$value=~s/^\/res\///; |
|
my $bkuptime=time; |
my @tmp = &Apache::lonnet::get |
my @tmp = &Apache::lonnet::get |
('environment',['url'],$dom,$crs); |
('environment',['url'],$dom,$crs); |
$setoutput.='Backing up previous URL: '. |
$setoutput.='Backing up previous URL: '. |
&Apache::lonnet::put |
&Apache::lonnet::put |
('environment', |
('environment', |
{'top level map backup ' => $tmp[1] }, |
{'top level map backup '.$bkuptime => $tmp[1] }, |
$dom,$crs). |
$dom,$crs). |
'<br>'; |
'<br>'; |
} |
} |
Line 1284 sub crsenv {
|
Line 1283 sub crsenv {
|
'pageseparators' => '<b>Visibly Separate Items on Pages</b><br>'. |
'pageseparators' => '<b>Visibly Separate Items on Pages</b><br>'. |
'("<tt>yes</tt>" for visible separation)', |
'("<tt>yes</tt>" for visible separation)', |
'pch.roles.denied'=> '<b>Disallow Resource Discussion for '. |
'pch.roles.denied'=> '<b>Disallow Resource Discussion for '. |
'Roles</b> ' . |
'Roles</b><br>"<tt>st</tt>": '. |
Apache::loncommon::help_open_topic("Course_Disable_Discussion") |
'student, "<tt>ta</tt>": '. |
, |
'TA, "<tt>in</tt>": '. |
|
'instructor;<br><tt>role,role,...</tt>) '. |
|
Apache::loncommon::help_open_topic("Course_Disable_Discussion"), |
'pch.users.denied' => |
'pch.users.denied' => |
'<b>Disallow Resource Discussion for Users</b><br>'. |
'<b>Disallow Resource Discussion for Users</b><br>'. |
'(<tt>user:domain,user:domain,...</tt>)', |
'(<tt>user:domain,user:domain,...</tt>)', |