|
version 1.37, 2004/03/31 05:24:00
|
version 1.37.2.2, 2005/04/29 18:12:21
|
|
Line 571 sub SUMMAX {
|
Line 571 sub SUMMAX {
|
| foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
| push (@inside,$sheet_values{$_}); |
push (@inside,$sheet_values{$_}); |
| } |
} |
| @inside=sort(@inside); |
@inside=sort {$a <=> $b} (@inside); |
| my $sum=0; my $i; |
my $sum=0; my $i; |
| for ($i=$#inside;(($i>$#inside-$num) && ($i>=0));$i--) { |
for ($i=$#inside;(($i>$#inside-$num) && ($i>=0));$i--) { |
| $sum+=$inside[$i]; |
$sum+=$inside[$i]; |
|
Line 598 sub SUMMIN {
|
Line 598 sub SUMMIN {
|
| foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
| $inside[$#inside+1]=$sheet_values{$_}; |
$inside[$#inside+1]=$sheet_values{$_}; |
| } |
} |
| @inside=sort(@inside); |
@inside=sort {$a <=> $b} (@inside); |
| my $sum=0; my $i; |
my $sum=0; my $i; |
| for ($i=0;(($i<$num) && ($i<=$#inside));$i++) { |
for ($i=0;(($i<$num) && ($i<=$#inside));$i++) { |
| $sum+=$inside[$i]; |
$sum+=$inside[$i]; |
|
Line 911 sub sett {
|
Line 911 sub sett {
|
| $t{$cell}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$sheet_values\{\'$2\'\}/g; |
$t{$cell}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$sheet_values\{\'$2\'\}/g; |
| $t{$cell}=~s/(^|[^\"\'])\[([^\]]+)\]/$1.$self->expandnamed($2)/ge; |
$t{$cell}=~s/(^|[^\"\'])\[([^\]]+)\]/$1.$self->expandnamed($2)/ge; |
| } elsif ( $col =~ /^[A-Z]$/ ) { |
} elsif ( $col =~ /^[A-Z]$/ ) { |
| if ($formula !~ /^\!/ && exists($self->{'constants'}->{$cell})) { |
if ($formula !~ /^\!/ && exists($self->{'constants'}->{$cell}) |
| |
&& $self->{'constants'}->{$cell} ne '') { |
| my $data = $self->{'constants'}->{$cell}; |
my $data = $self->{'constants'}->{$cell}; |
| $t{$cell} = $data; |
$t{$cell} = $data; |
| } |
} |
![[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