|
version 1.49, 2005/05/17 18:04:40
|
version 1.50, 2005/05/17 20:14:19
|
|
Line 789 sub compute {
|
Line 789 sub compute {
|
| $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(); |
![[BACK]](/icons/back.gif){kind=icon}
Return to assesscalc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / spreadsheet