[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemstatistics.pm
minaeibi
lon-capa-cvs@mail.lon-capa.org
Tue, 26 Nov 2002 16:59:04 -0000
minaeibi Tue Nov 26 11:59:04 2002 EDT
Modified files:
/loncom/interface/statistics lonproblemstatistics.pm
Log:
cleaning the code
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.36 loncom/interface/statistics/lonproblemstatistics.pm:1.37
--- loncom/interface/statistics/lonproblemstatistics.pm:1.36 Tue Nov 12 14:52:46 2002
+++ loncom/interface/statistics/lonproblemstatistics.pm Tue Nov 26 11:59:03 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonproblemstatistics.pm,v 1.36 2002/11/12 19:52:46 minaeibi Exp $
+# $Id: lonproblemstatistics.pm,v 1.37 2002/11/26 16:59:03 minaeibi Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -299,8 +299,6 @@
#(10 - $Max % 10);
} else { $Max = 1; }
-# my @GData = ($courseDescription, 'Problem_number',
-# $title, $Max, $sendCount, $sendValues);
my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues);
# $r->print('</form>'."\n");
@@ -659,7 +657,7 @@
sub SortDivideByTries {
my ($toSort, $data, $sortOn)=@_;
- my @orderedData = sort { ($data->{$a.':totalTries'}) ?
+ my @orderedData = sort { ($data->{$a.':totalTries'}) ?
($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0
<=>
($data->{$b.':totalTries'}) ?