[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet classcalc.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Fri, 04 Jun 2004 21:43:36 -0000
matthew Fri Jun 4 17:43:36 2004 EDT
Modified files:
/loncom/interface/spreadsheet classcalc.pm
Log:
Initialize student spreadsheet package before creating progress window.
Index: loncom/interface/spreadsheet/classcalc.pm
diff -u loncom/interface/spreadsheet/classcalc.pm:1.19 loncom/interface/spreadsheet/classcalc.pm:1.20
--- loncom/interface/spreadsheet/classcalc.pm:1.19 Mon Apr 26 10:06:00 2004
+++ loncom/interface/spreadsheet/classcalc.pm Fri Jun 4 17:43:36 2004
@@ -1,5 +1,5 @@
#
-# $Id: classcalc.pm,v 1.19 2004/04/26 14:06:00 matthew Exp $
+# $Id: classcalc.pm,v 1.20 2004/06/04 21:43:36 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -376,13 +376,11 @@
$self->initialize_safe_space();
my %c = $self->constants();
my %f = $self->formulas();
+ &Apache::studentcalc::initialize_package();
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
($r,&mt('Spreadsheet Computation Status'),
&mt('Spreadsheet Computation'), scalar(@Students));
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
- &mt('Processing course structure'));
- &Apache::studentcalc::initialize_package();
- &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
&mt('Processing first student'));
foreach my $student (@Students) {
if ($connection->aborted()) { $self->cleanup(); return; }