[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.165 and 1.166

version 1.165, 2003/01/30 16:20:08 version 1.166, 2003/01/30 18:37:49
Line 1588  sub sett { Line 1588  sub sett {
     foreach my $col ($self->template_cells()) {      foreach my $col ($self->template_cells()) {
         next if ($col=~/^$pattern/);          next if ($col=~/^$pattern/);
         foreach my $trow ($self->rows()) {          foreach my $trow ($self->rows()) {
             next if ($trow eq '0');  
             # Get the name of this cell              # Get the name of this cell
             my $lb=$col.$trow;              my $lb=$col.$trow;
             # Grab the template declaration              # Grab the template declaration
Line 1904  sub rebuild_stats { Line 1903  sub rebuild_stats {
     $self->{'rows'}=[];      $self->{'rows'}=[];
     $self->{'template_cells'}=[];      $self->{'template_cells'}=[];
     foreach my $cell($self->formulas_keys()) {      foreach my $cell($self->formulas_keys()) {
         push(@{$self->{'rows'}},$1) if ($cell =~ /^A(\d+)/);          push(@{$self->{'rows'}},$1) if ($cell =~ /^A(\d+)/ && $1 != 0);
         push(@{$self->{'template_cells'}},$1) if ($cell =~ /^template_(\w+)/);          push(@{$self->{'template_cells'}},$1) if ($cell =~ /^template_(\w+)/);
     }      }
     return;      return;
Line 2948  sub updateclasssheet { Line 2947  sub updateclasssheet {
             $self->{'maxrow'}= $rownum;              $self->{'maxrow'}= $rownum;
         }          }
         $existing{$f{$cell}}=1;          $existing{$f{$cell}}=1;
         unless ((defined($currentlist{$f{$cell}})) || ($rownum ne '0') ||          if (! defined($currentlist{$f{$cell}}) && ($f{$cell}=~/^(~~~|---)/)) {
                 ($f{$cell}=~/^(~~~|---)/)) {  
             $f{$cell}='!!! Obsolete';              $f{$cell}='!!! Obsolete';
             $changed=1;              $changed=1;
         }          }
Line 3099  sub updatestudentassesssheet { Line 3097  sub updatestudentassesssheet {
     foreach my $rownum ($self->rows()) {      foreach my $rownum ($self->rows()) {
         my $cell = 'A'.$rownum;          my $cell = 'A'.$rownum;
         my $formula = $f{$cell};          my $formula = $f{$cell};
         next if ($rownum eq '0');  
         $self->{'maxrow'} = $rownum if ($rownum > $self->{'maxrow'});          $self->{'maxrow'} = $rownum if ($rownum > $self->{'maxrow'});
         my ($usy,$ufn)=split(/__&&&\__/,$formula);          my ($usy,$ufn)=split(/__&&&\__/,$formula);
         $existing{$usy}=1;          $existing{$usy}=1;
Line 3147  sub loadstudent{ Line 3144  sub loadstudent{
         if(defined($c) && ($c->aborted())) {          if(defined($c) && ($c->aborted())) {
             last;              last;
         }          }
         next if (($value =~ /^[!~-]/) || ($row==0));          next if ($value =~ /^[!~-]/);
         my ($usy,$ufn)=split(/__&&&\__/,$value);          my ($usy,$ufn)=split(/__&&&\__/,$value);
         @assessdata=$self->exportsheet($self->{'uname'},          @assessdata=$self->exportsheet($self->{'uname'},
                                         $self->{'udom'},                                          $self->{'udom'},
Line 3204  ENDPOP Line 3201  ENDPOP
             last;              last;
         }          }
         my $cell = 'A'.$row;          my $cell = 'A'.$row;
         next if (($formulas{$cell}=~/^[\!\~\-]/)  || ($row==0));          next if ($formulas{$cell}=~/^[\!\~\-]/);
         my ($sname,$sdom) = split(':',$formulas{$cell});          my ($sname,$sdom) = split(':',$formulas{$cell});
         my $started = time;          my $started = time;
         my @studentdata=$self->exportsheet($sname,$sdom,'studentcalc',          my @studentdata=$self->exportsheet($sname,$sdom,'studentcalc',
Removed from v.1.165  
changed lines
  Added in v.1.166

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