[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.161

version 1.158, 2002/12/09 21:11:12 version 1.161, 2003/01/13 14:58:28
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 2563  sub loadassessment { Line 2563  sub loadassessment {
         # 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 2910  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.161

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