|
version 1.75, 2007/01/23 01:48:16
|
version 1.76, 2007/01/23 02:14:18
|
|
Line 828 sub expandnamed {
|
Line 828 sub expandnamed {
|
| foreach my $varname ( @vars ) { |
foreach my $varname ( @vars ) { |
| if ($varname=~/^(parameter|stores|timestamp)/) { |
if ($varname=~/^(parameter|stores|timestamp)/) { |
| $formula=~s/$varname/'$c{\''.$varname.'\'}'/ge; |
$formula=~s/$varname/'$c{\''.$varname.'\'}'/ge; |
| $varname=~s/$var/\([\\w:\\- ]\+\)/g; |
$varname=~s/$var/\([\\w:\\- ]\+\)/g; |
| foreach (keys(%{$self->{'constants'}})) { |
foreach (keys(%{$self->{'constants'}})) { |
| if ($_=~/$varname/) { |
if ($_=~/$varname/) { |
| $values{$1}=1; |
$values{$1}=1; |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| if ($func eq 'EXPANDSUM') { |
if ($func eq 'EXPANDSUM') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to Spreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / spreadsheet