[LON-CAPA-cvs] cvs: loncom(version_2_3_X) /interface/spreadsheet Spreadsheet.pm

[albertel]

albertel		Thu Jan 25 17:00:08 2007 EDT

  Modified files:              (Branch: version_2_3_X)
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  - backport 1.77
  
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.73 loncom/interface/spreadsheet/Spreadsheet.pm:1.73.2.1
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.73	Mon Jan 22 20:29:15 2007
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Thu Jan 25 17:00:07 2007
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.73 2007/01/23 01:29:15 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.73.2.1 2007/01/25 22:00:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1797,13 +1797,11 @@
 	    &Apache::lonnet::appenv('course.'.$self->{'cid'}.'.spreadsheet_default_'.
 				    $self->{'type'} => $self->filename());
         } 
-        if ($self->is_default()) {
-            if ($self->{'type'} eq 'studentcalc') {
-                &Apache::lonnet::expirespread('','','studentcalc','');
-            } elsif ($self->{'type'} eq 'assesscalc') {
-                &Apache::lonnet::expirespread('','','assesscalc','');
-                &Apache::lonnet::expirespread('','','studentcalc','');
-            }
+	if ($self->{'type'} eq 'studentcalc') {
+	    &Apache::lonnet::expirespread('','','studentcalc','');
+	} elsif ($self->{'type'} eq 'assesscalc') {
+	    &Apache::lonnet::expirespread('','','assesscalc','');
+	    &Apache::lonnet::expirespread('','','studentcalc','');
         }
         return $reply;
     }