loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.37.2.1, 2005/04/21 17:30:24	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];