Return to Spreadsheet.pm CVS log | Up to [LON-CAPA] / loncom / interface / spreadsheet |
version 1.35, 2004/02/24 17:02:04 | version 1.36, 2004/02/24 20:47:14 |
---|---|
Line 86 sub new { | Line 86 sub new { |
my ($stype) = ($class =~ /Apache::(.*)$/); | my ($stype) = ($class =~ /Apache::(.*)$/); |
# | # |
my ($name,$domain,$filename,$usymb)=@_; | 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 = { | my $self = { |
name => $name, | name => $name, |