--- loncom/interface/spreadsheet/Spreadsheet.pm 2005/04/21 17:29:16 1.42 +++ loncom/interface/spreadsheet/Spreadsheet.pm 2005/04/29 18:13:07 1.43 @@ -1,5 +1,5 @@ # -# $Id: Spreadsheet.pm,v 1.42 2005/04/21 17:29:16 albertel Exp $ +# $Id: Spreadsheet.pm,v 1.43 2005/04/29 18:13:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -596,7 +596,7 @@ sub SUMMAX { foreach (grep eval("/$mask/"),keys(%sheet_values)) { push (@inside,$sheet_values{$_}); } - @inside=sort(@inside); + @inside=sort {$a <=> $b} (@inside); my $sum=0; my $i; for ($i=$#inside;(($i>$#inside-$num) && ($i>=0));$i--) { $sum+=$inside[$i]; @@ -623,7 +623,7 @@ sub SUMMIN { foreach (grep eval("/$mask/"),keys(%sheet_values)) { $inside[$#inside+1]=$sheet_values{$_}; } - @inside=sort(@inside); + @inside=sort {$a <=> $b} (@inside); my $sum=0; my $i; for ($i=0;(($i<$num) && ($i<=$#inside));$i++) { $sum+=$inside[$i];