--- loncom/interface/lonparmset.pm 2000/11/28 11:23:15 1.17
+++ loncom/interface/lonparmset.pm 2001/03/20 22:01:13 1.24
@@ -9,7 +9,9 @@
#
# 10/11,10/12,10/16 Gerd Kortemeyer)
#
-# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28 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;
@@ -136,9 +138,18 @@ sub valout {
sub plink {
my ($type,$dis,$value,$marker,$return,$call)=@_;
- return ''.
- &valout($value,$type).'';
+ &valout($value,$type).'';
}
# ================================================================ Main Handler
@@ -250,7 +261,7 @@ sub handler {
$allkeys{$allkey}=$display;
if ($allkey eq $fcat) {
$defp{$id}=
- &Apache::lonnet::metadata($srcf,$key.'.default');
+ &Apache::lonnet::metadata($srcf,$key);
}
if ($keyp{$id}) {
$keyp{$id}.=','.$key;
@@ -310,6 +321,18 @@ sub handler {
my $reply='';
if ($snum>3) {
# ---------------------------------------------------------------- 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:'.
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'.
@@ -317,6 +340,20 @@ sub handler {
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
} else {
# ------------------------------------------------------------------ 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=
&Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'.
$storecontent,$uhome);
@@ -389,8 +426,18 @@ sub handler {
function psub() {
pclose();
- if ((document.parmform.pres_value.value!='') &&
- (document.parmform.pres_marker.value!='')) {
+ if (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();
} else {
document.parmform.pres_value.value='';
@@ -420,6 +467,11 @@ at Domain
ENDHEAD
+ map {
+ $r->print('');
+ } ('tolerance','date_default','date_start','date_end','date_interval',
+ 'int','float','string');
$r->print('
'.$message.'
Sort list by ');
$r->print('