--- loncom/interface/lonparmset.pm 2002/08/29 03:57:45 1.61.2.1 +++ loncom/interface/lonparmset.pm 2002/08/17 20:04:18 1.62 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.61.2.1 2002/08/29 03:57:45 albertel Exp $ +# $Id: lonparmset.pm,v 1.62 2002/08/17 20:04:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -591,7 +591,7 @@ sub assessparms { $ids[$#ids+1]=$id; $typep{$id}=$1; $keyp{$id}=''; - foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) { + foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'keys'))) { if ($_=~/^parameter\_(.*)/) { my $key=$_; my $allkey=$1; @@ -1233,12 +1233,13 @@ sub crsenv { } if ($name eq 'url') { $value=~s/^\/res\///; + my $bkuptime=time; my @tmp = &Apache::lonnet::get ('environment',['url'],$dom,$crs); $setoutput.='Backing up previous URL: '. &Apache::lonnet::put ('environment', - {'top level map backup ' => $tmp[1] }, + {'top level map backup '.$bkuptime => $tmp[1] }, $dom,$crs). '
'; }