--- loncom/interface/spreadsheet/assesscalc.pm	2003/05/29 18:31:27	1.12
+++ loncom/interface/spreadsheet/assesscalc.pm	2003/06/12 21:17:11	1.13
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.12 2003/05/29 18:31:27 matthew Exp $
+# $Id: assesscalc.pm,v 1.13 2003/06/12 21:17:11 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -140,10 +140,12 @@ sub initialize {
 ########################################################
 sub initialize_package {
     my ($sname,$sdomain) = @_;
-    $current_course = $ENV{'request.course.id'};
     $current_name   = $sname;
     $current_domain = $sdomain;
-    undef(%courseopt);
+    if ($current_course ne $ENV{'request.course.id'}) {
+        $current_course = $ENV{'request.course.id'};
+        undef(%courseopt);
+    }
     &load_cached_export_rows();
     &load_parameter_caches();
 }
@@ -509,7 +511,7 @@ sub excel_rows {
 
 sub compute {
     my $self = shift;
-    $self->logthis('computing');
+#    $self->logthis('computing');
     $self->initialize_safe_space();
     #########################################
     #########################################