[LON-CAPA-cvs] cvs: loncom(version_1_1_X) /interface/spreadsheet lonspreadsheet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 24 Feb 2004 21:03:09 -0000


albertel		Tue Feb 24 16:03:09 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/interface/spreadsheet	lonspreadsheet.pm 
  Log:
  - backport 1.34, 1.35
  
  
Index: loncom/interface/spreadsheet/lonspreadsheet.pm
diff -u loncom/interface/spreadsheet/lonspreadsheet.pm:1.31 loncom/interface/spreadsheet/lonspreadsheet.pm:1.31.2.1
--- loncom/interface/spreadsheet/lonspreadsheet.pm:1.31	Mon Dec  8 14:59:09 2003
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	Tue Feb 24 16:03:09 2004
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.31 2003/12/08 19:59:09 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.31.2.1 2004/02/24 21:03:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -256,10 +256,12 @@
     $symb = $ENV{'form.usymb'} if (exists($ENV{'form.usymb'}));
     my $name   = $ENV{'user.name'};
     my $domain = $ENV{'user.domain'};
-    if (exists($ENV{'form.sname'})) {
+    if (exists($ENV{'form.sname'}) && $ENV{'form.sname'} ne '') {
         $name   = $ENV{'form.sname'};
         $domain = $ENV{'form.sdomain'};
     }
+    $ENV{'form.sname'} = $name;
+    $ENV{'form.sdomain'} = $domain;
     ##
     ## Check permissions
     my $allowed_to_edit = &Apache::lonnet::allowed('mgr',