--- loncom/interface/Attic/lonspreadsheet.pm 2002/12/09 21:11:12 1.158 +++ loncom/interface/Attic/lonspreadsheet.pm 2003/01/13 14:58:28 1.161 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.158 2002/12/09 21:11:12 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.161 2003/01/13 14:58:28 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2391,7 +2391,7 @@ sub updatestudentassesssheet { unless ((exists($sheet->{'rowlabel'}->{$usy}) && (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) || ($formula =~ /^(~~~|---)/) )) { - $f{$_}='!!! Obsolete'; + $f{$cell}='!!! Obsolete'; $changed=1; } } @@ -2563,11 +2563,6 @@ sub loadassessment { # restore individual # %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname); - for (my $version=1;$version<=$returnhash{'version'};$version++) { - foreach (split(/\:/,$returnhash{$version.':keys'})) { - $returnhash{$_}=$returnhash{$version.':'.$_}; - } - } } # # returnhash now has all stores for this resource @@ -2915,7 +2910,8 @@ sub cachedssheets { $uname = $uname || $sheet->{'uname'}; $udom = $udom || $sheet->{'udom'}; if (! $loadedcaches{$uname.'_'.$udom}) { - my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets', + my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets_'. + $ENV{'request.course.id'}, $sheet->{'udom'}, $sheet->{'uname'}); if ($tmp[0] !~ /^error/) {