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 => '', |