--- loncom/interface/statistics/lonstudentassessment.pm	2003/06/17 17:47:54	1.60
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/06/24 21:44:09	1.64
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.60 2003/06/17 17:47:54 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.64 2003/06/24 21:44:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -335,7 +335,8 @@ sub CreateInterface {
                                   'value="Select One Student" />';
     $Str .= ' 'x5;
     $Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';
-    $Str .= '&nbsp;'x5.'<br />';
+    $Str .= '&nbsp;'x5;
+    $Str .= '<br />';
     return $Str;
 }
 
@@ -1056,6 +1057,8 @@ END
         ($r,'Excel File Compilation Status',
          'Excel File Compilation Progress', $studentcount);
     #
+    &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
+                                          'Processing first student');
     return;
 }
 
@@ -1425,7 +1428,7 @@ sub StudentTriesOnSequence {
                 $symbol = '<a href="/adm/grades'.
                     '?symb='.&Apache::lonnet::escape($resource->{'symb'}).
                         '&student='.$student->{'username'}.
-                            '&domain='.$student->{'domain'}.
+                            '&userdom='.$student->{'domain'}.
                                 '&command=submission">'.$symbol.'</a>';
             }
             $value .= $symbol;
@@ -1497,7 +1500,7 @@ sub StudentPerformanceOnSequence {
             #
             $partscore = $weight*$awarded;
             $score += $partscore;
-            $symbol = $weight; 
+            $symbol = $partscore; 
             if (length($symbol) > 1) {
                 $symbol = '*';
             }
@@ -1525,7 +1528,7 @@ sub StudentPerformanceOnSequence {
                 $symbol = '<a href="/adm/grades'.
                     '?symb='.&Apache::lonnet::escape($resource->{'symb'}).
                     '&student='.$student->{'username'}.
-                    '&domain='.$student->{'domain'}.
+                    '&userdom='.$student->{'domain'}.
                     '&command=submission">'.$symbol.'</a>';
             }
             $Str .= $symbol;