[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.143 and 1.145

version 1.143, 2002/11/19 22:36:09 version 1.145, 2002/11/21 18:56:36
Line 2365  sub loadstudent{ Line 2365  sub loadstudent{
     undef @tmp;      undef @tmp;
     #       # 
     my @assessdata=();      my @assessdata=();
     while (my ($cell,$value) = each (%formulas)) {      foreach my $cell (keys(%formulas)) {
           my $value = $formulas{$cell};
         if(defined($c) && ($c->aborted())) {          if(defined($c) && ($c->aborted())) {
             last;              last;
         }          }
Line 2377  sub loadstudent{ Line 2378  sub loadstudent{
                                  $sheet->{'udom'},                                   $sheet->{'udom'},
                                  'assesscalc',$usy,$ufn,$r);                                   'assesscalc',$usy,$ufn,$r);
         my $index=0;          my $index=0;
         foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',          foreach my $col ('A','B','C','D','E','F','G','H','I','J','K','L','M',
                  'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {                           'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
             if (defined($assessdata[$index])) {              if (defined($assessdata[$index])) {
                 my $col=$_;  
                 if ($assessdata[$index]=~/\D/) {                  if ($assessdata[$index]=~/\D/) {
                     $constants{$col.$row}="'".$assessdata[$index]."'";                      $constants{$col.$row}="'".$assessdata[$index]."'";
                 } else {                  } else {
                     $constants{$col.$row}=$assessdata[$index];                      $constants{$col.$row}=$assessdata[$index];
                 }                  }
                 unless ($col eq 'A') {                   $formulas{$col.$row}='import' if ($col ne 'A');
                     $formulas{$col.$row}='import';  
                 }  
             }              }
             $index++;              $index++;
         }          }
Line 2651  sub loadrows { Line 2649  sub loadrows {
   
 sub checkthis {  sub checkthis {
     my ($keyname,$time)=@_;      my ($keyname,$time)=@_;
     return ($time<$expiredates{$keyname});      if (! exists($expiredates{$keyname})) {
           return 0;
       } else {
           return ($time<$expiredates{$keyname});
       }
 }  }
   
 sub forcedrecalc {  sub forcedrecalc {
Line 2685  sub forcedrecalc { Line 2687  sub forcedrecalc {
 #  #
 sub exportsheet {  sub exportsheet {
     my ($sheet,$uname,$udom,$stype,$usymb,$fn,$r)=@_;      my ($sheet,$uname,$udom,$stype,$usymb,$fn,$r)=@_;
       my $flag = 0;
     $uname = $uname || $sheet->{'uname'};      $uname = $uname || $sheet->{'uname'};
     $udom  = $udom  || $sheet->{'udom'};      $udom  = $udom  || $sheet->{'udom'};
     $stype = $stype || $sheet->{'sheettype'};      $stype = $stype || $sheet->{'sheettype'};
Line 2753  sub exportsheet { Line 2756  sub exportsheet {
                                        [$key],                                         [$key],
                                        $sheet->{'cdom'},$sheet->{'cnum'});                                         $sheet->{'cdom'},$sheet->{'cnum'});
         if ($tmp[0]!~/^error/) {          if ($tmp[0]!~/^error/) {
             %currentlystored = @tmp;              # We only got one key, so we will access it directly.
               foreach (split('___&___',$tmp[1])) {
                   my ($key,$value) = split('___=___',$_);
                   $key = '' if (! defined($key));
                   $currentlystored{$key} = $value;
               }
         }          }
     } else {      } else {
         my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.          my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.
                                        $sheet->{'cid'},[$key],                                         $sheet->{'cid'},[$key],
                                        $sheet->{'udom'},$sheet->{'uname'});                                         $sheet->{'udom'},$sheet->{'uname'});
         if ($tmp[0]!~/^error/) {          if ($tmp[0]!~/^error/) {
             %currentlystored = @tmp;              # We only got one key, so we will access it directly.
               foreach (split('___&___',$tmp[1])) {
                   my ($key,$value) = split('___=___',$_);
                   $key = '' if (! defined($key));
                   $currentlystored{$key} = $value;
               }
         }          }
     }      }
     #      #
Line 2779  sub exportsheet { Line 2792  sub exportsheet {
     #      #
     # Store away the new value      # Store away the new value
     #      #
       my $timekey = $key.'.time';
     if ($stype eq 'studentcalc') {      if ($stype eq 'studentcalc') {
         &Apache::lonnet::put('nohist_calculatedsheets',          my $result = &Apache::lonnet::put('nohist_calculatedsheets',
                              { $key => $newstore,                                            { $key     => $newstore,
                                $key.time => $now },                                              $timekey => $now },
                              $sheet->{'cdom'},$sheet->{'cnum'});                                            $sheet->{'cdom'},
                                             $sheet->{'cnum'});
     } else {      } else {
         &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},          my $result = &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
                              { $key => $newstore,                                            { $key     => $newstore,
                                $key.time => $now },                                              $timekey => $now },
                              $sheet->{'udom'},                                            $sheet->{'udom'},
                              $sheet->{'uname'})                                            $sheet->{'uname'});
     }      }
     return @exportarr;      return @exportarr;
 }  }
Removed from v.1.143  
changed lines
  Added in v.1.145

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