[LON-CAPA-cvs] cvs: loncom /interface lonchart.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 28 Feb 2002 23:35:31 -0000
albertel Thu Feb 28 18:35:31 2002 EDT
Modified files:
/loncom/interface lonchart.pm
Log:
- recommitting my changes that minaeibi backed out
Index: loncom/interface/lonchart.pm
diff -u loncom/interface/lonchart.pm:1.34 loncom/interface/lonchart.pm:1.35
--- loncom/interface/lonchart.pm:1.34 Thu Feb 28 18:25:50 2002
+++ loncom/interface/lonchart.pm Thu Feb 28 18:35:31 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonchart.pm,v 1.34 2002/02/28 23:25:50 minaeibi Exp $
+# $Id: lonchart.pm,v 1.35 2002/02/28 23:35:31 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -387,7 +387,7 @@
}
sub CacheChart {
- my @list = ();
+ my %list = ();
my $count=0;
my $Pos = $ENV{'form.sort'};
@@ -398,11 +398,11 @@
foreach my $key( keys %CachData) {
my @Temp=split(/\:/,$key);
my $Use = $Temp[$Pos];
- $list[$count]=$Use.$key.'*'.$CachData{$key};
+ $list{$Use.$key}=$key;
$count++;
}
- @list = sort (@list);
+ my @order = sort(keys(%list));
$r->print('<h3>'.$count.' students</h3>');
&CreateForm();
@@ -410,8 +410,7 @@
$r->print('<p><pre>');
for ( my $n; $n < $count; $n++) {
- my ($dummy, $Line) = split(/\*/,$list[$n]);
- $r->print($Line.'<br>');
+ $r->print($CachData{$list{$order[$n]}}.'<br>');
}
$r->print('</pre>');
}