--- loncom/interface/spreadsheet/Spreadsheet.pm	2004/02/24 17:02:04	1.35
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2004/02/24 20:47:14	1.36
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.35 2004/02/24 17:02:04 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.36 2004/02/24 20:47:14 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -86,6 +86,12 @@ sub new {
     my ($stype) = ($class =~ /Apache::(.*)$/);
     #
     my ($name,$domain,$filename,$usymb)=@_;
+    if (! defined($name) || $name eq '') {
+        $name = $ENV{'user.name'};
+    }
+    if (! defined($domain) || $domain eq '') {
+        $domain = $ENV{'user.domain'};
+    }
     #
     my $self = {
         name     => $name,