--- loncom/interface/lonparmset.pm 2001/03/20 22:01:13 1.24 +++ loncom/interface/lonparmset.pm 2001/03/23 23:04:32 1.26 @@ -11,7 +11,7 @@ # # 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 +# 16/01/01,02/08,03/20,03/23 Gerd Kortemeyer package Apache::lonparmset; @@ -36,6 +36,7 @@ my %keyp; my %defp; my %allkeys; +my %allmaps; my $uname; my $udom; @@ -183,6 +184,9 @@ sub handler { $udom=$ENV{'form.udom'}; unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } + my $pscat=$ENV{'form.pscat'}; + my $pschp=$ENV{'form.pschp'}; + my $id=$ENV{'form.id'}; if (($id) && ($udom)) { $uname=(&Apache::lonnet::idget($udom,$id))[1]; @@ -235,8 +239,9 @@ sub handler { $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { # --------------------------------------------------------- Get all assessments - %allkeys=(); - %defp=(); + undef %allkeys; + undef %allmaps; + undef %defp; map { if ($_=~/^src\_(\d+)\.(\d+)$/) { my $mapid=$1; @@ -273,6 +278,7 @@ sub handler { &Apache::lonnet::metadata($srcf,'keys')); $mapp{$id}= &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}); + $allmaps{$mapid}=$mapp{$id}; $symbp{$id}=$mapp{$id}. '___'.$resid.'___'. &Apache::lonnet::declutter($srcf); @@ -323,13 +329,13 @@ sub handler { # ---------------------------------------------------------------- Store Course # # Expire sheets - &Apache::lonnet::expirespread('studentcalc'); + &Apache::lonnet::expirespread('','','studentcalc'); if (($snum==7) || ($snum==4)) { - &Apache::lonnet::expirespread('assesscalc',$symbp{$sresid}); + &Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid}); } elsif (($snum==8) || ($snum==5)) { - &Apache::lonnet::expirespread('assesscalc',$mapp{$sresid}); + &Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid}); } else { - &Apache::lonnet::expirespread('assesscalc'); + &Apache::lonnet::expirespread('','','assesscalc'); } # Store parameter @@ -462,7 +468,6 @@ or ID at Domain - @@ -473,16 +478,36 @@ ENDHEAD } ('tolerance','date_default','date_start','date_end','date_interval', 'int','float','string'); - $r->print('
Sort list by '); - $r->print('