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

[albertel]

albertel		Thu Sep  1 17:47:17 2005 EDT

  Modified files:              
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  - when changing the course env, need to also change the local users session environment
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.54 loncom/interface/spreadsheet/Spreadsheet.pm:1.55
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.54	Fri Aug 26 16:46:46 2005
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Thu Sep  1 17:47:14 2005
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.54 2005/08/26 20:46:46 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.55 2005/09/01 21:47:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -191,6 +191,8 @@
             {'spreadsheet_default_'.$self->{'type'} => $self->filename()},
                                      $self->{'cdom'},$self->{'cnum'});
     return $result if ($result ne 'ok');
+    &Apache::lonnet::appenv('course.'.$self->{'cid'}.'.spreadsheet_default_'.
+			    $self->{'type'} => $self->filename());
     my $symb = $self->{'symb'};
     $symb = '' if (! defined($symb));
     &Apache::lonnet::expirespread('','',$self->{'type'},$symb);    
@@ -1749,6 +1751,8 @@
                                 {'spreadsheet_default_'.$stype => $filename },
                                           $cdom,$cnum);
             return $reply if ($reply ne 'ok');
+	    &Apache::lonnet::appenv('course.'.$self->{'cid'}.'.spreadsheet_default_'.
+				    $self->{'type'} => $self->filename());
         } 
         if ($self->is_default()) {
             if ($self->{'type'} eq 'studentcalc') {