[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.158 and 1.163

version 1.158, 2002/12/09 21:11:12 version 1.163, 2003/01/15 19:34:03
Line 2391  sub updatestudentassesssheet { Line 2391  sub updatestudentassesssheet {
         unless ((exists($sheet->{'rowlabel'}->{$usy}) &&           unless ((exists($sheet->{'rowlabel'}->{$usy}) && 
                  (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) ||                   (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) ||
                  ($formula =~ /^(~~~|---)/) )) {                   ($formula =~ /^(~~~|---)/) )) {
             $f{$_}='!!! Obsolete';              $f{$cell}='!!! Obsolete';
             $changed=1;              $changed=1;
         }          }
     }      }
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::dump($sheet->{'cid'},      my @tmp = &Apache::lonnet::currentdump($sheet->{'cid'},
                                     $sheet->{'udom'},                                             $sheet->{'udom'},
                                     $sheet->{'uname'},                                             $sheet->{'uname'});
                                     undef);      if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
     if ($tmp[0] !~ /^error:/) {  
         %cachedstores = @tmp;          %cachedstores = @tmp;
     }      }
     undef @tmp;      undef @tmp;
Line 2551  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};          if (exists($cachedstores{$symb})) {
         my $scope;              %returnhash = %{$cachedstores{$symb}};
         for ($scope=1;$scope<=$version;$scope++) {          } else {
             foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) {              %returnhash = ();
                 $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_};  
             }   
         }          }
     } else {      } else {
         #          #
         # restore individual          # restore individual
         #          #
         %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);          %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      # returnhash now has all stores for this resource
Line 2915  sub cachedssheets { Line 2907  sub cachedssheets {
     $uname = $uname || $sheet->{'uname'};      $uname = $uname || $sheet->{'uname'};
     $udom  = $udom  || $sheet->{'udom'};      $udom  = $udom  || $sheet->{'udom'};
     if (! $loadedcaches{$uname.'_'.$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->{'udom'},
                                         $sheet->{'uname'});                                          $sheet->{'uname'});
         if ($tmp[0] !~ /^error/) {          if ($tmp[0] !~ /^error/) {
Removed from v.1.158  
changed lines
  Added in v.1.163

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