Return to Spreadsheet.pm CVS log | Up to [LON-CAPA] / loncom / interface / spreadsheet |
version 1.38, 2005/02/03 23:59:41 | version 1.39, 2005/03/03 17:52:36 |
---|---|
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($usymb) && ref($usymb)) { | |
$usymb = $usymb->symb; | |
} | |
if (! defined($name) || $name eq '') { | if (! defined($name) || $name eq '') { |
$name = $ENV{'user.name'}; | $name = $ENV{'user.name'}; |
} | } |