|
version 1.67, 2006/04/06 20:24:13
|
version 1.68, 2006/05/01 06:17:16
|
|
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,$section,$group)=@_; |
my ($name,$domain,$filename,$usymb,$section,$groups)=@_; |
| if (defined($usymb) && ref($usymb)) { |
if (defined($usymb) && ref($usymb)) { |
| $usymb = $usymb->symb; |
$usymb = $usymb->symb; |
| } |
} |
|
Line 99 sub new {
|
Line 99 sub new {
|
| $section = &Apache::lonnet::getsection($domain,$name, |
$section = &Apache::lonnet::getsection($domain,$name, |
| $env{'request.course.id'}); |
$env{'request.course.id'}); |
| } |
} |
| if (! defined($group) || $group eq '') { |
if (! defined($groups)) { |
| my $grouplist = &Apache::lonnet::get_users_groups($domain,$name, |
|
| |
my @usersgroups = &Apache::lonnet::get_users_groups($domain,$name, |
| $env{'request.course.id'}); |
$env{'request.course.id'}); |
| if ($grouplist) { |
$groups = \@usersgroups; |
| my @groups = &Apache::lonnet::sort_course_groups($grouplist, |
|
| $env{'request.course.id'}); |
|
| $group = $groups[0]; |
|
| } |
|
| } |
} |
| # |
# |
| my $self = { |
my $self = { |
| name => $name, |
name => $name, |
| domain => $domain, |
domain => $domain, |
| section => $section, |
section => $section, |
| group => $group, |
groups => $groups, |
| 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