|
version 1.65, 2006/03/05 21:38:27
|
version 1.66, 2006/04/06 16:43:49
|
|
Line 85 sub new {
|
Line 85 sub new {
|
| my $class = ref($this) || $this; |
my $class = ref($this) || $this; |
| my ($stype) = ($class =~ /Apache::(.*)$/); |
my ($stype) = ($class =~ /Apache::(.*)$/); |
| # |
# |
| my ($name,$domain,$filename,$usymb)=@_; |
my ($name,$domain,$filename,$usymb,$section)=@_; |
| if (defined($usymb) && ref($usymb)) { |
if (defined($usymb) && ref($usymb)) { |
| $usymb = $usymb->symb; |
$usymb = $usymb->symb; |
| } |
} |
|
Line 95 sub new {
|
Line 95 sub new {
|
| if (! defined($domain) || $domain eq '') { |
if (! defined($domain) || $domain eq '') { |
| $domain = $env{'user.domain'}; |
$domain = $env{'user.domain'}; |
| } |
} |
| |
if (! defined($section) || $section eq '') { |
| |
$section = &Apache::lonnet::getsection($domain,$name, |
| |
$env{'request.course.id'}); |
| |
} |
| # |
# |
| my $self = { |
my $self = { |
| name => $name, |
name => $name, |
| domain => $domain, |
domain => $domain, |
| |
section => $section, |
| type => $stype, |
type => $stype, |
| symb => $usymb, |
symb => $usymb, |
| errorlog => '', |
errorlog => '', |
![[BACK]](/icons/back.gif){kind=icon}
Return to Spreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / spreadsheet