version 1.123, 2003/09/04 22:36:47
|
version 1.126, 2003/09/21 21:40:06
|
Line 948 sub assessparms {
|
Line 948 sub assessparms {
|
} |
} |
$r->print("</select></td></tr>\n"); |
$r->print("</select></td></tr>\n"); |
} else { |
} else { |
my ($map,$id,$resource)=split(/___/,$pssymb); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); |
$r->print("<tr><td>Specific Resource</td><td>$resource</td>"); |
$r->print("<tr><td>Specific Resource</td><td>$resource</td>"); |
$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>'); |
$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>'); |
$r->print('</tr>'); |
$r->print('</tr>'); |
Line 1666 ENDENV
|
Line 1666 ENDENV
|
} |
} |
################################################## |
################################################## |
|
|
|
my $tableopen; |
|
|
|
sub tablestart { |
|
if ($tableopen) { |
|
return ''; |
|
} else { |
|
$tableopen=1; |
|
return '<table border="2"><tr><th>Parameter</th><th>Delete</th><th>Set to ...</th></tr>'; |
|
} |
|
} |
|
|
|
sub tableend { |
|
if ($tableopen) { |
|
$tableopen=0; |
|
return '</table>'; |
|
} else { |
|
return''; |
|
} |
|
} |
|
|
sub overview { |
sub overview { |
my $r=shift; |
my $r=shift; |
my $bodytag=&Apache::loncommon::bodytag( |
my $bodytag=&Apache::loncommon::bodytag( |
Line 1681 $bodytag
|
Line 1701 $bodytag
|
<form method="post" action="/adm/parmset" name="overviewform"> |
<form method="post" action="/adm/parmset" name="overviewform"> |
<input type="hidden" name="overview" value="1" /> |
<input type="hidden" name="overview" value="1" /> |
ENDOVER |
ENDOVER |
|
# Setting |
|
my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs); |
|
my %newdata=(); |
|
undef %newdata; |
|
my @deldata=(); |
|
undef @deldata; |
|
foreach (keys %ENV) { |
|
if ($_=~/^form\.([a-z]+)\_(.+)$/) { |
|
my $cmd=$1; |
|
my $thiskey=$2; |
|
if ($cmd eq 'set') { |
|
my $data=$ENV{$_}; |
|
if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; } |
|
} elsif ($cmd eq 'del') { |
|
push (@deldata,$thiskey); |
|
} elsif ($cmd eq 'datepointer') { |
|
my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_}); |
|
if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; } |
|
} |
|
} |
|
} |
|
# Store |
|
&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs); |
|
&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs); |
# 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=''; |
my $oldrealm=''; |
my $oldrealm=''; |
my $oldpart=''; |
my $oldpart=''; |
my $pointer=0; |
my $pointer=0; |
|
$tableopen=0; |
foreach my $thiskey (sort keys %resourcedata) { |
foreach my $thiskey (sort keys %resourcedata) { |
if ($resourcedata{$thiskey.'.type'}) { |
if ($resourcedata{$thiskey.'.type'}) { |
my ($course,$middle,$part,$name)= |
my ($course,$middle,$part,$name)= |
Line 1704 ENDOVER
|
Line 1749 ENDOVER
|
$realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>'; |
$realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>'; |
} |
} |
if ($section ne $oldsection) { |
if ($section ne $oldsection) { |
$r->print("\n<hr /><h1>$section</h1>"); |
$r->print(&tableend()."\n<hr /><h1>$section</h1>"); |
$oldsection=$section; |
$oldsection=$section; |
$oldrealm=''; |
$oldrealm=''; |
} |
} |
if ($realm ne $oldrealm) { |
if ($realm ne $oldrealm) { |
$r->print("\n<h2>$realm</h2>"); |
$r->print(&tableend()."\n<h2>$realm</h2>"); |
$oldrealm=$realm; |
$oldrealm=$realm; |
$oldpart=''; |
$oldpart=''; |
} |
} |
if ($part ne $oldpart) { |
if ($part ne $oldpart) { |
$r->print("\n<h3><font color='blue'>Part: $part</font></h3>"); |
$r->print(&tableend(). |
|
"\n<h3><font color='blue'>Part: $part</font></h3>"); |
$oldpart=$part; |
$oldpart=$part; |
} |
} |
# |
# |
# Ready to print |
# Ready to print |
# |
# |
$r->print('<br /><b>'.$name.':</b>'); |
$r->print(&tablestart().'<tr><td><b>'.$name. |
|
':</b></td><td><input type="checkbox" name="del_'. |
|
$thiskey.'" /></td><td>'); |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
my $jskey='key_'.$pointer; |
my $jskey='key_'.$pointer; |
$pointer++; |
$pointer++; |
Line 1735 ENDOVER
|
Line 1783 ENDOVER
|
'<input type="text" name="set_'.$thiskey.'" value="'. |
'<input type="text" name="set_'.$thiskey.'" value="'. |
$resourcedata{$thiskey}.'">'); |
$resourcedata{$thiskey}.'">'); |
} |
} |
|
$r->print('</td></tr>'); |
} |
} |
} |
} |
$r->print('</form></body></html>'); |
|
|
$r->print(&tableend(). |
|
'<p><input type="submit" value="Modify Parameters" /></p></form></body></html>'); |
} |
} |
|
|
################################################## |
################################################## |
Line 1758 sub handler {
|
Line 1809 sub handler {
|
my $r=shift; |
my $r=shift; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 1769 sub handler {
|
Line 1820 sub handler {
|
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |