--- loncom/interface/spreadsheet/classcalc.pm	2003/06/12 17:06:44	1.8
+++ loncom/interface/spreadsheet/classcalc.pm	2003/06/23 16:06:11	1.9
@@ -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 @@ sub compute {
     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