--- loncom/interface/statistics/lonstudentassessment.pm	2003/06/10 15:42:51	1.54
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/06/11 14:41:59	1.56
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.54 2003/06/10 15:42:51 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.56 2003/06/11 14:41:59 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -150,15 +150,6 @@ sub BuildStudentAssessmentPage {
               $ENV{'form.sort'}.'" />');
     $r->rflush();
     if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) {
-        $r->print(<<ENDMSG);
-<p>
-<font size="+2">
-Please make your selections in the boxes above and hit 
-the button marked &quot;Update&nbsp;Display&quot;.
-</font>
-</p>
-ENDMSG
-#        $r->print(&OutputDescriptions());
         return;
     }
     #
@@ -188,6 +179,13 @@ ENDMSG
         @Students = @Apache::lonstatistics::Students;
     }
     #
+    # Perform generic initialization tasks
+    #       Since we use lonnet::EXT to retrieve problem weights,
+    #       to ensure current data we must clear the caches out.
+    #       This makes sure that parameter changes at the student level
+    #       are immediately reflected in the chart.
+    &Apache::lonnet::clear_EXT_cache_status();
+    #
     # Call the initialize routine selected above
     $initialize->($r);
     foreach my $student (@Students) {
@@ -322,6 +320,8 @@ sub CreateInterface {
     $Str .= &CreateAndParseOutputDataSelector();
     $Str .= '</td></tr>'."\n";
     $Str .= '</table>'."\n";
+    $Str .= '<input type="submit" value="Generate Chart" />';
+    $Str .= '&nbsp;'x8;
     return $Str;
 }
 
@@ -573,7 +573,9 @@ sub html_initialize {
     $r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
               "&nbsp;&nbsp;".localtime(time)."</h3>");
 
-    $r->print("<h3>".$datadescription."</h3>");        
+    if ($data !~ /^final table/) {
+        $r->print("<h3>".$datadescription."</h3>");        
+    }
     #
     # Set up progress window for 'final table' display only
     if ($data =~ /^final table/) {
@@ -614,7 +616,7 @@ sub html_outputstudent {
     my ($r,$student) = @_;
     my $Str = '';
     #
-    if($count++ % 5 == 0 && $count > 0) {
+    if($count++ % 5 == 0 && $count > 0 && $data !~ /^final table/) {
         $r->print("</pre><pre>");
     }
     # First, the @StudentData fields need to be listed