|
version 1.5, 2003/05/22 21:16:35
|
version 1.6, 2003/05/23 14:08:40
|
|
Line 540 sub compute {
|
Line 540 sub compute {
|
| while (my ($parm,$value) = each(%parameters)) { |
while (my ($parm,$value) = each(%parameters)) { |
| my $cell = 'A'.$self->get_row_number_from_key($parm); |
my $cell = 'A'.$self->get_row_number_from_key($parm); |
| $f{$cell} = $parm; |
$f{$cell} = $parm; |
| $c{$parm} = ''; |
$value = '"'.$value.'"' if ($value =~/[^0-9.]/); |
| if ($value ne '') { |
$c{$parm} = $value; |
| $c{$parm} = '"'.$value.'"'; |
|
| } |
|
| } |
} |
| $self->formulas(%f); |
$self->formulas(\%f); |
| $self->constants(%c); |
$self->constants(\%c); |
| $self->calcsheet(); |
$self->calcsheet(); |
| # |
# |
| # Store export row in cache |
# Store export row in cache |
![[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