--- loncom/interface/Attic/lonspreadsheet.pm 2003/01/13 21:52:11 1.162 +++ loncom/interface/Attic/lonspreadsheet.pm 2003/01/15 19:34:03 1.163 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.162 2003/01/13 21:52:11 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.163 2003/01/15 19:34:03 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2417,18 +2417,11 @@ sub loadstudent{ my %formulas=&getformulas($sheet); $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'}; # Get ALL the student preformance data - my @tmp = &Apache::lonnet::dumpcurrent($sheet->{'cid'}, -# my @tmp = &Apache::lonnet::dump($sheet->{'cid'}, + my @tmp = &Apache::lonnet::currentdump($sheet->{'cid'}, $sheet->{'udom'}, - $sheet->{'uname'}, - undef); + $sheet->{'uname'}); if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { %cachedstores = @tmp; -# &Apache::lonnet::logthis("-------------------------------------"); -# foreach (keys(%cachedstores)) { -# &Apache::lonnet::logthis("data for ".$_); -# } -# &Apache::lonnet::logthis("-------------------------------------"); } undef @tmp; # @@ -2557,17 +2550,9 @@ sub loadassessment { # # get data out of the dumped stores # -# my $version=$cachedstores{'version:'.$symb}; -# my $scope; -# for ($scope=1;$scope<=$version;$scope++) { -# foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) { -# $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_}; -# } -# } if (exists($cachedstores{$symb})) { %returnhash = %{$cachedstores{$symb}}; } else { -# &Apache::lonnet::logthis("No data for ".$symb); %returnhash = (); } } else {