[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.162 and 1.163

version 1.162, 2003/01/13 21:52:11 version 1.163, 2003/01/15 19:34:03
Line 2417  sub loadstudent{ Line 2417  sub loadstudent{
     my %formulas=&getformulas($sheet);      my %formulas=&getformulas($sheet);
     $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};      $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
     # Get ALL the student preformance data      # Get ALL the student preformance data
     my @tmp = &Apache::lonnet::dumpcurrent($sheet->{'cid'},      my @tmp = &Apache::lonnet::currentdump($sheet->{'cid'},
 #    my @tmp = &Apache::lonnet::dump($sheet->{'cid'},  
                                            $sheet->{'udom'},                                             $sheet->{'udom'},
                                            $sheet->{'uname'},                                             $sheet->{'uname'});
                                            undef);  
     if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {      if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
         %cachedstores = @tmp;          %cachedstores = @tmp;
 #        &Apache::lonnet::logthis("-------------------------------------");  
 #        foreach (keys(%cachedstores)) {  
 #            &Apache::lonnet::logthis("data for ".$_);  
 #        }  
 #        &Apache::lonnet::logthis("-------------------------------------");  
     }      }
     undef @tmp;      undef @tmp;
     #       # 
Line 2557  sub loadassessment { Line 2550  sub loadassessment {
         #          #
         # get data out of the dumped stores          # 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})) {          if (exists($cachedstores{$symb})) {
             %returnhash = %{$cachedstores{$symb}};              %returnhash = %{$cachedstores{$symb}};
         } else {          } else {
 #            &Apache::lonnet::logthis("No data for ".$symb);  
             %returnhash = ();              %returnhash = ();
         }          }
     } else {      } else {
Removed from v.1.162  
changed lines
  Added in v.1.163

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>