[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.141 and 1.146

version 1.141, 2002/11/15 18:59:28 version 1.146, 2002/11/21 19:05:18
Line 1149  sub exportdata { Line 1149  sub exportdata {
   
   
 sub update_student_sheet{  sub update_student_sheet{
     my ($sheet,$c) = @_;      my ($sheet,$r,$c) = @_;
     # Load in the studentcalc sheet      # Load in the studentcalc sheet
     &readsheet($sheet,'default_studentcalc');      &readsheet($sheet,'default_studentcalc');
     # Determine the structure (contained assessments, etc) of the sheet      # Determine the structure (contained assessments, etc) of the sheet
Line 1157  sub update_student_sheet{ Line 1157  sub update_student_sheet{
     # Load in the cached sheets for this student      # Load in the cached sheets for this student
     &cachedssheets($sheet);      &cachedssheets($sheet);
     # Load in the (possibly cached) data from the assessment sheets              # Load in the (possibly cached) data from the assessment sheets        
     &loadstudent($sheet,$c);      &loadstudent($sheet,$r,$c);
     # Compute the sheet      # Compute the sheet
     &calcsheet($sheet);      &calcsheet($sheet);
 }  }
Line 1186  sub get_row { Line 1186  sub get_row {
 ########################################################################  ########################################################################
 sub sort_indicies {  sub sort_indicies {
     my $sheet = shift;      my $sheet = shift;
     #  
     # Sort the rows in some manner  
     #  
     my @sortby=();  
     my @sortidx=();      my @sortidx=();
     # Skip row 0      #
     for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {      if ($sheet->{'sheettype'} eq 'classcalc') {
         push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));          my @sortby=(undef);
         push (@sortidx, $row);          # Skip row 0
           for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
               my (undef,$sname,$sdom,$fullname,$section,$id) = 
                   split(':',$sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$row}});
               push (@sortby, lc($fullname));
               push (@sortidx, $row);
           }
           @sortidx = sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
       } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
           my @sortby1=(undef);
           my @sortby2=(undef);
           # Skip row 0
           for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
               my (undef,$symb,$uname,$udom,$mapid,$resid,$title) = 
                   split(':',$sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$row}});
               $symb = &Apache::lonnet::unescape($symb);
               my ($sequence) = ($symb =~ /\/([^\/]*\.sequence)/);
               if ($sequence eq '') {
                   $sequence = $symb;
               }
               push (@sortby1, $sequence);
               push (@sortby2, $title);
               push (@sortidx, $row);
           }
           @sortidx = sort { $sortby1[$a] cmp $sortby1[$b] || 
                                 $sortby2[$a] cmp $sortby2[$b] } @sortidx;
       } else {
           my @sortby=(undef);
           # Skip row 0
           for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
               push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));
               push (@sortidx, $row);
           }
           @sortidx = sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
     }      }
     @sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx;  
     return @sortidx;      return @sortidx;
 }  }
   
Line 1335  END Line 1363  END
         next if (($sheet->{'sheettype'} eq 'assesscalc') &&           next if (($sheet->{'sheettype'} eq 'assesscalc') && 
                  (! $ENV{'form.showall'})                &&                   (! $ENV{'form.showall'})                &&
                  ($rowdata[0]->{'value'} =~ /^\s*$/));                   ($rowdata[0]->{'value'} =~ /^\s*$/));
         if ($sheet->{'sheettype'} =~ /^(studentcalc|classcalc)$/) {          if (! $ENV{'form.showall'} &&
               $sheet->{'sheettype'} =~ /^(studentcalc|classcalc)$/) {
             my $row_is_empty = 1;              my $row_is_empty = 1;
             foreach my $cell (@rowdata) {              foreach my $cell (@rowdata) {
                 if ($cell->{'value'} !~  /^\s*$/) {                  if ($cell->{'value'} !~  /^\s*$/) {
Line 1343  END Line 1372  END
                     last;                      last;
                 }                  }
             }              }
             next if $row_is_empty;              next if ($row_is_empty);
         }          }
         #          #
         my $defaultbg='#E0FF';          my $defaultbg='#E0FF';
Line 1501  A link to the spreadsheet will be availa Line 1530  A link to the spreadsheet will be availa
 END  END
     $r->rflush();      $r->rflush();
     my $starttime = time;      my $starttime = time;
     foreach (keys(%f)) {      foreach my $rownum (&sort_indicies($sheet)) {
  next if ($_!~/^A(\d+)/ || $1 == 0 || ($f{$_}=~/^[!~-]/));  
         $count++;          $count++;
         my ($sname,$sdom) = split(':',$f{$_});          my ($sname,$sdom) = split(':',$f{'A'.$rownum});
         my $student_excel_worksheet=$workbook->addworksheet($sname.'@'.$sdom);          my $student_excel_worksheet=$workbook->addworksheet($sname.'@'.$sdom);
         # Create a new spreadsheet          # Create a new spreadsheet
         my $studentsheet = &makenewsheet($sname,$sdom,'studentcalc',undef);          my $studentsheet = &makenewsheet($sname,$sdom,'studentcalc',undef);
         # Read in the spreadsheet definition          # Read in the spreadsheet definition
         &update_student_sheet($studentsheet,$c);          &update_student_sheet($studentsheet,$r,$c);
         # Stuff the sheet into excel          # Stuff the sheet into excel
         &export_sheet_as_excel($studentsheet,$student_excel_worksheet);          &export_sheet_as_excel($studentsheet,$student_excel_worksheet);
         my $totaltime = int((time - $starttime) / $count * $sheet->{'maxrow'});          my $totaltime = int((time - $starttime) / $count * $sheet->{'maxrow'});
Line 1625  sub export_sheet_as_excel { Line 1653  sub export_sheet_as_excel {
     # Loop through the rows and output them one at a time      # Loop through the rows and output them one at a time
     foreach my $rownum (@Rows) {      foreach my $rownum (@Rows) {
         my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);          my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
         next if ($rowlabel =~ /^\s*$/);          next if ($rowlabel =~ /^[\s]*$/);
         $cols_output = 0;          $cols_output = 0;
         my $label = &format_excel_rowlabel($rowlabel);          my $label = &format_excel_rowlabel($rowlabel);
           if ( ! $ENV{'form.showall'} &&
                $sheet->{'sheettype'} =~ /^(studentcalc|classcalc)$/) {
               my $row_is_empty = 1;
               foreach my $cell (@rowdata) {
                   if ($cell->{'value'} !~  /^\s*$/) {
                       $row_is_empty = 0;
                       last;
                   }
               }
               next if ($row_is_empty);
           }
         $worksheet->write($rows_output,$cols_output++,$label);          $worksheet->write($rows_output,$cols_output++,$label);
         if (ref($label)) {          if (ref($label)) {
             $cols_output = (scalar(@$label));              $cols_output = (scalar(@$label));
Line 1654  sub outsheet_xml   { Line 1693  sub outsheet_xml   {
 ## Outsheet - calls other outsheet_* functions  ## Outsheet - calls other outsheet_* functions
 ##  ##
 sub outsheet {  sub outsheet {
     my ($r,$sheet)=@_;      my ($sheet,$r)=@_;
     if (! exists($ENV{'form.output'})) {      if (! exists($ENV{'form.output'})) {
         $ENV{'form.output'} = 'HTML';          $ENV{'form.output'} = 'HTML';
     }      }
Line 2325  sub loadstudent{ Line 2364  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 2337  sub loadstudent{ Line 2377  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 2611  sub loadrows { Line 2648  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 2645  sub forcedrecalc { Line 2686  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 2713  sub exportsheet { Line 2755  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 2739  sub exportsheet { Line 2791  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'},
     } else {                                            $sheet->{'cnum'});
         &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},      } else {
                              { $key => $newstore,          my $result = &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
                                $key.time => $now },                                            { $key     => $newstore,
                              $sheet->{'udom'},                                              $timekey => $now },
                              $sheet->{'uname'})                                            $sheet->{'udom'},
                                             $sheet->{'uname'});
     }      }
     return @exportarr;      return @exportarr;
 }  }
Line 3185  ENDSCRIPT Line 3239  ENDSCRIPT
 #value='Insert Row Bottom'><br>  #value='Insert Row Bottom'><br>
 #ENDINSERTBUTTONS  #ENDINSERTBUTTONS
     # Print out sheet      # Print out sheet
     &outsheet($r,$sheet);      &outsheet($sheet,$r);
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
     #  Done      #  Done
     return OK;      return OK;
Removed from v.1.141  
changed lines
  Added in v.1.146

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