[BACK]Return to assesscalc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/assesscalc.pm between versions 1.48 and 1.51

version 1.48, 2005/05/17 18:01:58 version 1.51, 2005/10/12 21:29:49
Line 703  sub parameter_part_is_valid { Line 703  sub parameter_part_is_valid {
         return 1;          return 1;
     }      }
     #      #
     my (undef,$part) =       my ($start,@pieces)=split('_',$parameter);
         ($parameter =~ m/^(resource|stores|parameter)_([^_]+)_.*/);      if ( $start !~ m/^(resource|stores|parameter)$/) { return 0; }
     if (exists($self->{'Parts'})          &&       while (@pieces) {
         exists($self->{'Parts'}->{$part}) &&          pop(@pieces);
         $self->{'Parts'}->{$part} ) {          my $testpart=join('_',@pieces);
         return 1;   if (exists($self->{'Parts'}->{$testpart}) &&
     } else {      $self->{'Parts'}->{$testpart} ) {
         return 0;      return 1;
    }
     }      }
       return 0;
 }  }
   
 sub compute {  sub compute {
Line 786  sub compute { Line 788  sub compute {
         if ($parm =~ /_submission$/ && $value =~ /(\{|\})/) {          if ($parm =~ /_submission$/ && $value =~ /(\{|\})/) {
             $value = 'witheld';              $value = 'witheld';
         }          }
         #$value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/);          $value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/);
         $c{$parm} = $value;          $c{$parm} = $value;
     }      }
       foreach my $cell (grep(/^A/,keys(%f))) {
           # Clean out any bad formulas
    next if (exists($c{$f{$cell}}));
    next if ($cell eq 'A0');
    delete($f{$cell});
       }
     $self->formulas(\%f);      $self->formulas(\%f);
     $self->constants(\%c);      $self->constants(\%c);
     $self->calcsheet();      $self->calcsheet();
Line 837  sub sett { Line 845  sub sett {
  && $self->{'constants'}->{$formula} ne ''   && $self->{'constants'}->{$formula} ne ''
  ) {   ) {
  $Apache::Spreadsheet::sheet_values{$cell}=   $Apache::Spreadsheet::sheet_values{$cell}=
     $self->{'constants'}->{$formula};      eval($self->{'constants'}->{$formula});
             }              }
         } else {          } else {
             $t{$cell}=$formula;              $t{$cell}=$formula;
Removed from v.1.48  
changed lines
  Added in v.1.51

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