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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 08 Apr 2005 13:44:44 -0000


albertel		Fri Apr  8 09:44:44 2005 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  - update status bar in CHRT HTML output mode
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.122 loncom/interface/statistics/lonstudentassessment.pm:1.123
--- loncom/interface/statistics/lonstudentassessment.pm:1.122	Thu Apr  7 03:34:52 2005
+++ loncom/interface/statistics/lonstudentassessment.pm	Fri Apr  8 09:44:43 2005
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.122 2005/04/07 07:34:52 albertel Exp $
+# $Id: lonstudentassessment.pm,v 1.123 2005/04/08 13:44:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -710,6 +710,21 @@
     $Str .= "<pre>";
     $r->print($Str);
     $r->rflush();
+    #
+    # Let the user know what we are doing
+    my $studentcount = scalar(@Apache::lonstatistics::Students); 
+    if ($env{'form.SelectedStudent'}) {
+        $studentcount = '1';
+    }
+    #
+    # Initialize progress window
+    %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
+        ($r,'HTML Chart Status',
+         'HTML Chart Progress', $studentcount,
+         'inline',undef,'Statistics','stats_status');
+    #
+    &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
+                                          'Processing first student');
     return;
 }
 
@@ -822,6 +837,7 @@
     $r->print($Str);
     #
     $r->rflush();
+    &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
     return;
 }    
 
@@ -839,6 +855,7 @@
         }
     }
     $r->rflush();
+    &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
     undef($navmap);
     return;
 }