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

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 17 Jun 2003 17:47:54 -0000


matthew		Tue Jun 17 13:47:54 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Added <br /> after 'clear caches' button.
  Fixed bad columns on scores display.
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.59 loncom/interface/statistics/lonstudentassessment.pm:1.60
--- loncom/interface/statistics/lonstudentassessment.pm:1.59	Mon Jun 16 11:54:58 2003
+++ loncom/interface/statistics/lonstudentassessment.pm	Tue Jun 17 13:47:54 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.59 2003/06/16 15:54:58 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.60 2003/06/17 17:47:54 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -335,7 +335,7 @@
                                   'value="Select One Student" />';
     $Str .= '&nbsp;'x5;
     $Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';
-    $Str .= '&nbsp;'x5;
+    $Str .= '&nbsp;'x5.'<br />';
     return $Str;
 }
 
@@ -1516,6 +1516,11 @@
                 }
             }
             #
+            if (! defined($partscore)) {
+                $partscore = $symbol;
+            }
+            push (@ScoreData,$partscore);
+            #
             if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) {
                 $symbol = '<a href="/adm/grades'.
                     '?symb='.&Apache::lonnet::escape($resource->{'symb'}).
@@ -1523,12 +1528,8 @@
                     '&domain='.$student->{'domain'}.
                     '&command=submission">'.$symbol.'</a>';
             }
-            if (! defined($partscore)) {
-                $partscore = $symbol;
-            }
-            push (@ScoreData,$partscore);
+            $Str .= $symbol;
         }
-        $Str .= $symbol;
     }
     return ($Str,$performance_length,$score,$max,\@ScoreData);
 }