[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemstatistics.pm

[minaeibi]

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'}) ?