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

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 17 Feb 2003 16:29:51 -0000


matthew		Mon Feb 17 11:29:51 2003 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  Trivial changes to give the user just a little more information than 
  "Starting" while it waits for 1+ minutes (getting metadata) to do the
  first students spreadsheet on a complete recalculation.
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.171 loncom/interface/lonspreadsheet.pm:1.172
--- loncom/interface/lonspreadsheet.pm:1.171	Thu Feb 13 17:52:48 2003
+++ loncom/interface/lonspreadsheet.pm	Mon Feb 17 11:29:51 2003
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.171 2003/02/13 22:52:48 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.172 2003/02/17 16:29:51 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3185,7 +3185,7 @@
     $self->constants(\%constants);
 }
 
-# --------------------------------------------------- Load data for one student
+# --------------------------------------------------- Load Course Sheet
 #
 sub loadcourse {
     my $self = shift;
@@ -3206,7 +3206,7 @@
     popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+
       '<h3>Spreadsheet Calculation Progress</h3>'+
       '<form name=popremain>'+
-      '<input type=text size=45 name=remaining value=Starting></form>'+
+      '<input type=text size=45 name=remaining value="Processing Course Assessment Data"></form>'+
       '</body></html>');
     popwin.document.close();
 </script>
@@ -3228,7 +3228,8 @@
         $now++;
         $r->print('<script>popwin.document.popremain.remaining.value="'.
                   $now.'/'.$total.': '.int((time-$since)/$now*($total-$now)).
-                  ' secs remaining '.(time-$started).' last";</script>');
+                  ' secs remaining '.(time-$started).' last student";'.
+                  '</script>');
         $r->rflush(); 
         #
         my $index=0;