--- loncom/interface/statistics/lonstudentassessment.pm	2003/09/10 15:06:34	1.67
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/10/07 14:38:30	1.70
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.67 2003/09/10 15:06:34 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.70 2003/10/07 14:38:30 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -200,6 +200,9 @@ sub BuildStudentAssessmentPage {
     #       are immediately reflected in the chart.
     &Apache::lonnet::clear_EXT_cache_status();
     #
+    # Clean out loncoursedata's package data, just to be safe.
+    &Apache::loncoursedata::clear_internal_caches();
+    #
     # Call the initialize routine selected above
     $initialize->($r);
     foreach my $student (@Students) {
@@ -1405,7 +1408,8 @@ sub StudentTriesOnSequence {
                 } elsif ($status eq 'excused') {
                     $symbol = 'x';
                     $max--;
-                } elsif ($status eq 'correct_by_student' &&
+                } elsif (($status eq 'correct_by_scantron' ||
+                          $status eq 'correct_by_student') &&
                     exists($resource_data->{'resource.'.$partnum.'.tries'})){
                     $tries = $resource_data->{'resource.'.$partnum.'.tries'};
                     if ($tries > 9) {
@@ -1518,6 +1522,9 @@ sub StudentPerformanceOnSequence {
             $partscore = $weight*$awarded;
             $score += $partscore;
             $symbol = $partscore; 
+            if (abs($symbol - sprintf("%.0f",$symbol)) < 0.001) {
+                $symbol = sprintf("%.0f",$symbol);
+            }
             if (length($symbol) > 1) {
                 $symbol = '*';
             }