version 1.22, 2001/02/08 12:36:57
|
version 1.24, 2001/03/20 22:01:13
|
Line 11
|
Line 11
|
# |
# |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
# 12/08,12/12, |
# 12/08,12/12, |
# 16/01/01,02/08 Gerd Kortemeyer |
# 16/01/01,02/08,03/20 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
Line 138 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><a name="'.$marker.'"></a>'; |
&valout($value,$type).'</a><a name="'.$marker.'"></a>'; |
} |
} |
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); |
Line 393 sub handler {
|
Line 428 sub handler {
|
pclose(); |
pclose(); |
if (document.parmform.pres_marker.value!='') { |
if (document.parmform.pres_marker.value!='') { |
document.parmform.action+='#'+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 422 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('<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('<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();">'); |