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

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 23 Jun 2003 16:06:11 -0000


matthew		Mon Jun 23 12:06:11 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	classcalc.pm 
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  More useful progress window messages.  Bug 1046.
  
  
Index: loncom/interface/spreadsheet/classcalc.pm
diff -u loncom/interface/spreadsheet/classcalc.pm:1.8 loncom/interface/spreadsheet/classcalc.pm:1.9
--- loncom/interface/spreadsheet/classcalc.pm:1.8	Thu Jun 12 13:06:44 2003
+++ loncom/interface/spreadsheet/classcalc.pm	Mon Jun 23 12:06:11 2003
@@ -1,5 +1,5 @@
 #
-# $Id: classcalc.pm,v 1.8 2003/06/12 17:06:44 matthew Exp $
+# $Id: classcalc.pm,v 1.9 2003/06/23 16:06:11 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -256,7 +256,11 @@
     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
         ($r,'Spreadsheet Computation Status',
          'Spreadsheet Computation', scalar(@Students));
+    &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
+                                          'Processing course structure');
     &Apache::studentcalc::initialize_package();
+    &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
+                                          'Processing first student');
     foreach my $student (@Students) {
         my $sname = $student->{'username'}.':'.$student->{'domain'};
 	my $studentsheet = Apache::studentcalc->new
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.61 loncom/interface/statistics/lonstudentassessment.pm:1.62
--- loncom/interface/statistics/lonstudentassessment.pm:1.61	Wed Jun 18 08:55:52 2003
+++ loncom/interface/statistics/lonstudentassessment.pm	Mon Jun 23 12:06:11 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.61 2003/06/18 12:55:52 www Exp $
+# $Id: lonstudentassessment.pm,v 1.62 2003/06/23 16:06:11 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1057,6 +1057,8 @@
         ($r,'Excel File Compilation Status',
          'Excel File Compilation Progress', $studentcount);
     #
+    &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
+                                          'Processing first student');
     return;
 }