[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.145 and 1.148

version 1.145, 2002/11/21 18:56:36 version 1.148, 2002/11/21 19:50:49
Line 1530  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);
Line 2065  sub format_html_rowlabel { Line 2064  sub format_html_rowlabel {
                 '&mapid='.$mapid.'&resid='.$resid.'">'.$title.'</a>';                  '&mapid='.$mapid.'&resid='.$resid.'">'.$title.'</a>';
     } elsif ($type eq 'student') {      } elsif ($type eq 'student') {
         my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);          my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
           if ($fullname =~ /^\s*$/) {
               $fullname = $sname.'@'.$sdom;
           }
         $result ='<a href="/adm/studentcalc?uname='.$sname.          $result ='<a href="/adm/studentcalc?uname='.$sname.
             '&udom='.$sdom.'">';              '&udom='.$sdom.'">';
         $result.=$section.'&nbsp;'.$id."&nbsp;".$fullname.'</a>';          $result.=$section.'&nbsp;'.$id."&nbsp;".$fullname.'</a>';
Line 2317  sub updatestudentassesssheet { Line 2319  sub updatestudentassesssheet {
     $sheet->{'maxrow'} = 0;      $sheet->{'maxrow'} = 0;
     my %existing=();      my %existing=();
     # Now obsolete rows      # Now obsolete rows
     while (my ($cell, $formula) = each (%f)) {      foreach my $cell (keys(%f)) {
           my $formula = $f{$cell};
         next if ($cell !~ /^A(\d+)/);          next if ($cell !~ /^A(\d+)/);
         $sheet->{'maxrow'} = $1 if ($1 > $sheet->{'maxrow'});          $sheet->{'maxrow'} = $1 if ($1 > $sheet->{'maxrow'});
         my ($usy,$ufn)=split(/__&&&\__/,$formula);          my ($usy,$ufn)=split(/__&&&\__/,$formula);
Removed from v.1.145  
changed lines
  Added in v.1.148

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