version 1.16, 2000/11/28 02:53:40
|
version 1.25, 2001/03/21 01:45:01
|
Line 9
|
Line 9
|
# |
# |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# |
# |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27 Gerd Kortemeyer |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
|
# 12/08,12/12, |
|
# 16/01/01,02/08,03/20 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
Line 31 my %symbp;
|
Line 33 my %symbp;
|
my %mapp; |
my %mapp; |
my %typep; |
my %typep; |
my %keyp; |
my %keyp; |
|
my %defp; |
|
|
my %allkeys; |
my %allkeys; |
|
|
Line 123 sub parmval {
|
Line 126 sub parmval {
|
return $result; |
return $result; |
} |
} |
|
|
# ---------------------------------------------------------------- Sort routine |
|
|
|
sub bycat { |
|
if ($fcat eq '') { |
|
$a<=>$b; |
|
} else { |
|
&parmval($fcat,$a)<=>&parmval($fcat,$b); |
|
} |
|
} |
|
|
|
# ------------------------------------------------------------ Output for value |
# ------------------------------------------------------------ Output for value |
|
|
sub valout { |
sub valout { |
Line 145 sub valout {
|
Line 138 sub valout {
|
|
|
sub plink { |
sub plink { |
my ($type,$dis,$value,$marker,$return,$call)=@_; |
my ($type,$dis,$value,$marker,$return,$call)=@_; |
return '<a href="javascript:pjump('."'".$type."','".$dis."','".$value."','" |
my $winvalue=$value; |
|
unless ($winvalue) { |
|
if ($type=~/^date/) { |
|
$winvalue=$ENV{'form.recent_'.$type}; |
|
} else { |
|
$winvalue=$ENV{'form.recent_'.(split(/\_/,$type))[0]}; |
|
} |
|
} |
|
return |
|
'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','" |
.$marker."','".$return."','".$call."'".');">'. |
.$marker."','".$return."','".$call."'".');">'. |
&valout($value,$type).'</a>'; |
&valout($value,$type).'</a><a name="'.$marker.'"></a>'; |
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
Line 179 sub handler {
|
Line 181 sub handler {
|
|
|
$csec=$ENV{'form.csec'}; |
$csec=$ENV{'form.csec'}; |
$udom=$ENV{'form.udom'}; |
$udom=$ENV{'form.udom'}; |
|
unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } |
|
|
my $id=$ENV{'form.id'}; |
my $id=$ENV{'form.id'}; |
if (($id) && ($udom)) { |
if (($id) && ($udom)) { |
$uname=(&Apache::lonnet::idget($udom,$id))[1]; |
$uname=(&Apache::lonnet::idget($udom,$id))[1]; |
Line 186 sub handler {
|
Line 190 sub handler {
|
$id=''; |
$id=''; |
} else { |
} else { |
$message= |
$message= |
"<h3><font color=red>Unknown ID '$id' at domain '$udom'</font></h3>"; |
"<font color=red>Unknown ID '$id' at domain '$udom'</font>"; |
} |
} |
} else { |
} else { |
$uname=$ENV{'form.uname'}; |
$uname=$ENV{'form.uname'}; |
Line 198 sub handler {
|
Line 202 sub handler {
|
|
|
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
$message= |
$message= |
"<h3><font color=red>Unknown user '$uname' at domain '$udom'</font></h3>"; |
"<font color=red>Unknown user '$uname' at domain '$udom'</font>"; |
$uname=''; |
$uname=''; |
} else { |
} else { |
$csec=&Apache::lonnet::usection( |
$csec=&Apache::lonnet::usection( |
$udom,$uname,$ENV{'request.course.id'}); |
$udom,$uname,$ENV{'request.course.id'}); |
if ($csec eq '-1') { |
if ($csec eq '-1') { |
$message="<h3><font color=red>". |
$message="<font color=red>". |
"User '$uname' at domain '$udom' not in this course</font></h3>"; |
"User '$uname' at domain '$udom' not in this course</font>"; |
$uname=''; |
$uname=''; |
$csec=$ENV{'form.csec'}; |
$csec=$ENV{'form.csec'}; |
} else { |
} else { |
Line 232 sub handler {
|
Line 236 sub handler {
|
|
|
# --------------------------------------------------------- Get all assessments |
# --------------------------------------------------------- Get all assessments |
%allkeys=(); |
%allkeys=(); |
|
%defp=(); |
map { |
map { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
my $mapid=$1; |
my $mapid=$1; |
Line 247 sub handler {
|
Line 251 sub handler {
|
if ($_=~/^parameter\_(.*)/) { |
if ($_=~/^parameter\_(.*)/) { |
my $key=$_; |
my $key=$_; |
my $allkey=$1; |
my $allkey=$1; |
|
$allkey=~s/\_/\./; |
my $display= |
my $display= |
&Apache::lonnet::metadata($srcf,$key.'.display'); |
&Apache::lonnet::metadata($srcf,$key.'.display'); |
unless ($display) { |
unless ($display) { |
Line 254 sub handler {
|
Line 259 sub handler {
|
&Apache::lonnet::metadata($srcf,$key.'.name'); |
&Apache::lonnet::metadata($srcf,$key.'.name'); |
} |
} |
$allkeys{$allkey}=$display; |
$allkeys{$allkey}=$display; |
|
if ($allkey eq $fcat) { |
|
$defp{$id}= |
|
&Apache::lonnet::metadata($srcf,$key); |
|
} |
if ($keyp{$id}) { |
if ($keyp{$id}) { |
$keyp{$id}.=','.$key; |
$keyp{$id}.=','.$key; |
} else { |
} else { |
Line 312 sub handler {
|
Line 321 sub handler {
|
my $reply=''; |
my $reply=''; |
if ($snum>3) { |
if ($snum>3) { |
# ---------------------------------------------------------------- Store Course |
# ---------------------------------------------------------------- Store Course |
|
# |
|
# Expire sheets |
|
&Apache::lonnet::expirespread('','','studentcalc'); |
|
if (($snum==7) || ($snum==4)) { |
|
&Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid}); |
|
} elsif (($snum==8) || ($snum==5)) { |
|
&Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid}); |
|
} else { |
|
&Apache::lonnet::expirespread('','','assesscalc'); |
|
} |
|
|
|
# Store parameter |
$reply=&Apache::lonnet::critical('put:'. |
$reply=&Apache::lonnet::critical('put:'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'. |
Line 319 sub handler {
|
Line 340 sub handler {
|
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}); |
} else { |
} else { |
# ------------------------------------------------------------------ Store User |
# ------------------------------------------------------------------ Store User |
|
# |
|
# Expire sheets |
|
&Apache::lonnet::expirespread($uname,$udom,'studentcalc'); |
|
if ($snum==1) { |
|
&Apache::lonnet::expirespread |
|
($uname,$udom,'assesscalc',$symbp{$sresid}); |
|
} elsif ($snum==2) { |
|
&Apache::lonnet::expirespread |
|
($uname,$udom,'assesscalc',$mapp{$sresid}); |
|
} else { |
|
&Apache::lonnet::expirespread($uname,$udom,'assesscalc'); |
|
} |
|
|
|
# Store parameter |
$reply= |
$reply= |
&Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'. |
&Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'. |
$storecontent,$uhome); |
$storecontent,$uhome); |
} |
} |
|
|
if ($reply=~/^error\:(.*)/) { |
if ($reply=~/^error\:(.*)/) { |
$message.="<h3><font color=red>Write Error: $1</font></h3>"; |
$message.="<font color=red>Write Error: $1</font>"; |
} |
} |
# ---------------------------------------------------------------- Done storing |
# ---------------------------------------------------------------- Done storing |
} |
} |
Line 355 sub handler {
|
Line 390 sub handler {
|
} |
} |
|
|
# ------------------------------------------------------------------- Sort this |
# ------------------------------------------------------------------- Sort this |
@ids=sort bycat @ids; |
|
|
@ids=sort { |
|
if ($fcat eq '') { |
|
$a<=>$b; |
|
} else { |
|
$outpar[&parmval($fcat,$a,$defp{$a})]<=> |
|
$outpar[&parmval($fcat,$b,$defp{$b})]; |
|
} |
|
} @ids; |
# ------------------------------------------------------------------ Start page |
# ------------------------------------------------------------------ Start page |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 383 sub handler {
|
Line 426 sub handler {
|
|
|
function psub() { |
function psub() { |
pclose(); |
pclose(); |
if ((document.parmform.pres_value.value!='') && |
if (document.parmform.pres_marker.value!='') { |
(document.parmform.pres_marker.value!='')) { |
document.parmform.action+='#'+document.parmform.pres_marker.value; |
|
var typedef=new Array(); |
|
typedef=document.parmform.pres_type.value.split('_'); |
|
if (typedef[0]=='date') { |
|
eval('document.parmform.recent_'+ |
|
document.parmform.pres_type.value+ |
|
'.value=document.parmform.pres_value.value;'); |
|
} else { |
|
eval('document.parmform.recent_'+typedef[0]+ |
|
'.value=document.parmform.pres_value.value;'); |
|
} |
document.parmform.submit(); |
document.parmform.submit(); |
} else { |
} else { |
document.parmform.pres_value.value=''; |
document.parmform.pres_value.value=''; |
Line 414 at Domain
|
Line 467 at Domain
|
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_marker"> |
<input type="hidden" value='' name="pres_marker"> |
ENDHEAD |
ENDHEAD |
|
map { |
$r->print($message.'<p>Sort list by '); |
$r->print('<input type="hidden" value="'. |
|
$ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">'); |
|
} ('tolerance','date_default','date_start','date_end','date_interval', |
|
'int','float','string'); |
|
|
|
$r->print('<h2>'.$message.'</h2><p>Sort list by '); |
$r->print('<select name="fcat" onChange="this.form.submit();">'); |
$r->print('<select name="fcat" onChange="this.form.submit();">'); |
$r->print('<option value="">Enclosing Map</option>'); |
$r->print('<option value="">Enclosing Map</option>'); |
map { |
map { |
Line 455 ENDTABLEHEADFOUR
|
Line 513 ENDTABLEHEADFOUR
|
$r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>'); |
$r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>'); |
} |
} |
$r->print('</tr><tr>'); |
$r->print('</tr><tr>'); |
|
my $defbgone=''; |
|
my $defbgtwo=''; |
map { |
map { |
# ------------------------------------------------------ Entry for one resource |
# ------------------------------------------------------ Entry for one resource |
|
if ($defbgone eq '"E0E099"') { |
|
$defbgone='"E0E0DD"'; |
|
} else { |
|
$defbgone='"E0E099"'; |
|
} |
|
if ($defbgtwo eq '"FFFF99"') { |
|
$defbgtwo='"FFFFDD"'; |
|
} else { |
|
$defbgtwo='"FFFF99"'; |
|
} |
@outpar=(); |
@outpar=(); |
my $rid=$_; |
my $rid=$_; |
my $thistitle=''; |
my $thistitle=''; |
Line 473 ENDTABLEHEADFOUR
|
Line 543 ENDTABLEHEADFOUR
|
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
unless ($display{$_}) { $display{$_}=''; } |
unless ($display{$_}) { $display{$_}=''; } |
$display{$_}.=' ('.$name{$_}.')'; |
$display{$_}.=' ('.$name{$_}.')'; |
$default{$_}=&Apache::lonnet::metadata($uri,$_.'.default'); |
$default{$_}=&Apache::lonnet::metadata($uri,$_); |
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); |
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); |
} split(/\,/,$keyp{$rid}); |
} split(/\,/,$keyp{$rid}); |
|
|
my $totalparms=scalar keys %name; |
my $totalparms=scalar keys %name; |
$r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'. |
my $isdef=1; |
|
unless ($totalparms) { $totalparms=1; $isdef=0; } |
|
$r->print('<td bgcolor='.$defbgone. |
|
' rowspan='.$totalparms.'><tt><font size=-1>'. |
join(' / ',split(/\//,$uri)). |
join(' / ',split(/\//,$uri)). |
'</font></tt><p><b>'. |
'</font></tt><p><b>'. |
$bighash{'title_'.$rid}); |
$bighash{'title_'.$rid}); |
Line 487 ENDTABLEHEADFOUR
|
Line 560 ENDTABLEHEADFOUR
|
$r->print(' ('.$thistitle.')'); |
$r->print(' ('.$thistitle.')'); |
} |
} |
$r->print('</b></td>'); |
$r->print('</b></td>'); |
$r->print('<td rowspan='.$totalparms.'>'.$typep{$rid}.'</td>'); |
$r->print('<td bgcolor='.$defbgtwo. |
$r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'. |
' rowspan='.$totalparms.'>'.$typep{$rid}.'</td>'); |
|
$r->print('<td bgcolor='.$defbgone. |
|
' rowspan='.$totalparms.'><tt><font size=-1>'. |
join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>'); |
join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>'); |
|
if ($isdef) { |
map { |
map { |
|
|
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); |
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); |
|
|
$r->print("<td>$part{$_}</td><td>$display{$_}</td>"); |
$r->print("<td bgcolor=".$defbgtwo. |
|
">$part{$_}</td><td bgcolor=".$defbgone. |
|
">$display{$_}</td>"); |
my $thismarker=$_; |
my $thismarker=$_; |
$thismarker=~s/^parameter\_//; |
$thismarker=~s/^parameter\_//; |
my $mprefix=$rid.'&'.$thismarker.'&'; |
my $mprefix=$rid.'&'.$thismarker.'&'; |
|
|
$r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==11)?'"#AAFFAA"':'#FFDDDD').'>'. |
&valout($outpar[11],$type{$_}).'</td>'); |
&valout($outpar[11],$type{$_}).'</td>'); |
$r->print('<td'.(($result==10)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==10)?'"#AAFFAA"':'#FFDDDD').'>'. |
&valout($outpar[10],$type{$_}).'</td>'); |
&valout($outpar[10],$type{$_}).'</td>'); |
|
|
$r->print('<td'.(($result==9)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==9)?'"#AAFFAA"':$defbgone).'>'. |
&plink($type{$_},$display{$_},$outpar[9],$mprefix.'9', |
&plink($type{$_},$display{$_},$outpar[9],$mprefix.'9', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==8)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==8)?'"#AAFFAA"':$defbgone).'>'. |
&plink($type{$_},$display{$_},$outpar[8],$mprefix.'8', |
&plink($type{$_},$display{$_},$outpar[8],$mprefix.'8', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==7)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==7)?'"#AAFFAA"':$defbgone).'>'. |
&plink($type{$_},$display{$_},$outpar[7],$mprefix.'7', |
&plink($type{$_},$display{$_},$outpar[7],$mprefix.'7', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
|
|
if ($csec) { |
if ($csec) { |
$r->print('<td'.(($result==6)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==6)?'"#AAFFAA"':$defbgtwo).'>'. |
&plink($type{$_},$display{$_},$outpar[6],$mprefix.'6', |
&plink($type{$_},$display{$_},$outpar[6],$mprefix.'6', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==5)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==5)?'"#AAFFAA"':$defbgtwo).'>'. |
&plink($type{$_},$display{$_},$outpar[5],$mprefix.'5', |
&plink($type{$_},$display{$_},$outpar[5],$mprefix.'5', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==4)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==4)?'"#AAFFAA"':$defbgtwo).'>'. |
&plink($type{$_},$display{$_},$outpar[4],$mprefix.'4', |
&plink($type{$_},$display{$_},$outpar[4],$mprefix.'4', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
} |
} |
|
|
if ($uname) { |
if ($uname) { |
$r->print('<td'.(($result==3)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==3)?'"#AAFFAA"':$defbgone).'>'. |
&plink($type{$_},$display{$_},$outpar[3],$mprefix.'3', |
&plink($type{$_},$display{$_},$outpar[3],$mprefix.'3', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==2)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==2)?'"#AAFFAA"':$defbgone).'>'. |
&plink($type{$_},$display{$_},$outpar[2],$mprefix.'2', |
&plink($type{$_},$display{$_},$outpar[2],$mprefix.'2', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==1)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td bgcolor='. |
|
(($result==1)?'"#AAFFAA"':$defbgone).'>'. |
&plink($type{$_},$display{$_},$outpar[1],$mprefix.'1', |
&plink($type{$_},$display{$_},$outpar[1],$mprefix.'1', |
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
} |
} |
|
|
$r->print('<td>'.&valout($outpar[$result],$type{$_}).'</td>'); |
$r->print( |
|
'<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>'); |
$r->print("</tr>\n<tr>"); |
$r->print("</tr>\n<tr>"); |
} sort keys %name; |
} sort keys %name; |
|
} else { |
|
$r->print("</tr>\n<tr>"); |
|
} |
# -------------------------------------------------- End entry for one resource |
# -------------------------------------------------- End entry for one resource |
} @ids; |
} @ids; |
$r->print('</table></form></body></html>'); |
$r->print('</table></form></body></html>'); |