[LON-CAPA-cvs] cvs: loncom(version_1_3_X) /interface/spreadsheet Spreadsheet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 29 Apr 2005 18:12:21 -0000
albertel Fri Apr 29 14:12:21 2005 EDT
Modified files: (Branch: version_1_3_X)
/loncom/interface/spreadsheet Spreadsheet.pm
Log:
- er sort numerically?
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.37.2.1 loncom/interface/spreadsheet/Spreadsheet.pm:1.37.2.2
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.37.2.1 Thu Apr 21 13:30:24 2005
+++ loncom/interface/spreadsheet/Spreadsheet.pm Fri Apr 29 14:12:21 2005
@@ -1,5 +1,5 @@
#
-# $Id: Spreadsheet.pm,v 1.37.2.1 2005/04/21 17:30:24 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.37.2.2 2005/04/29 18:12:21 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -571,7 +571,7 @@
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];
@@ -598,7 +598,7 @@
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];