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

minaeibi lon-capa-cvs@mail.lon-capa.org
Tue, 22 Oct 2002 16:27:40 -0000


minaeibi		Tue Oct 22 12:27:40 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Fixed Bug #752 to add total points to each homework set total
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.14 loncom/interface/statistics/lonstudentassessment.pm:1.15
--- loncom/interface/statistics/lonstudentassessment.pm:1.14	Sun Oct 20 20:15:13 2002
+++ loncom/interface/statistics/lonstudentassessment.pm	Tue Oct 22 12:27:39 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstudentassessment.pm,v 1.14 2002/10/21 00:15:13 minaeibi Exp $
+# $Id: lonstudentassessment.pm,v 1.15 2002/10/22 16:27:39 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -340,17 +340,17 @@
         $spacesNeeded -= 3;
         $Str .= (' 'x$spacesNeeded);
 
-        my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.
-							    ':problemsCorrect'});
+#        my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.
+#							    ':problemsCorrect'});
 
-#	my $outputProblemsCorrect = sprintf("%2d/%2d ", $cache->{$name.':'.$sequence.
-#                                            ':problemsCorrect'}, 
-#                                            $characterCount);
+	my $outputProblemsCorrect = sprintf("%2d/%2d", $cache->{$name.':'.$sequence.
+                                            ':problemsCorrect'}, 
+                                            $characterCount);
         if($hasData eq 'true') {
             $Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>';
             $hasFinalData = 'true';
         } else {
-            $Str .= '<font color="#007700">   </font>';
+            $Str .= '<font color="#007700">     </font>';
         }
         $Str .= $spacing;
     }