--- loncom/interface/Attic/lonspreadsheet.pm 2001/09/14 00:16:02 1.64
+++ loncom/interface/Attic/lonspreadsheet.pm 2001/10/16 20:50:28 1.68
@@ -6,7 +6,7 @@
# 01/01/01,02/01,03/01,19/01,20/01,22/01,
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,
# 03/19,03/20,03/21,03/27,04/05,04/09,
-# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13 Gerd Kortemeyer
+# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17,10/16 Gerd Kortemeyer
package Apache::lonspreadsheet;
@@ -763,24 +763,29 @@ sub outsheet {
$tabledata.=&rown($safeeval,'-').&rown($safeeval,0);
$r->print($tabledata);
-# $sortby=$safeeval->reval('$f{"A'.$n.'"}');
-# print join(',',@linklst).'
';
-# @linklst=sort { $sortprt[$a] cmp $sortprt[$b]; } @linklst;
-# print join(',',@linklst).'
';
-
- my $n=0;
+ my @sortby=();
+ my @sortidx=();
for ($row=1;$row<=$maxrow;$row++) {
- my $thisrow=&rown($safeeval,$row);
- if ($thisrow) {
- if ($n/25==int($n/25)) {
+ $sortby[$row-1]=$safeeval->reval('$f{"A'.$row.'"}');
+ $sortidx[$row-1]=$row-1;
+ }
+ @sortidx=sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
+
my $what='Student';
if (&gettype($safeeval) eq 'assesscalc') {
$what='Item';
} elsif (&gettype($safeeval) eq 'studentcalc') {
$what='Assessment';
}
- $r->print("\n
".
- ' | '.$what.' | ');
+
+ my $n=0;
+ for ($row=0;$row<$maxrow;$row++) {
+ my $thisrow=&rown($safeeval,$sortidx[$row]+1);
+ if ($thisrow) {
+ if ($n/25==int($n/25)) {
+ $r->print("
\n
\n");
+ $r->rflush();
+ $r->print(' | '.$what.' | ');
map {
$r->print(''.$_.' | ');
} ('A','B','C','D','E','F','G','H','I','J','K','L','M',
@@ -1044,7 +1049,7 @@ sub parmval {
# ----------------------------------------------------- Cascading lookup scheme
my $rwhat=$what;
$what=~s/^parameter\_//;
- $what=~s/\_/\./;
+ $what=~s/\_([^\_]+)$/\.$1/;
my $symbparm=$symb.'.'.$what;
my $mapparm=$mapname.'___(all).'.$what;