version 1.171, 2006/05/18 01:08:51
|
version 1.172, 2006/05/18 18:37:23
|
Line 3144 sub get_classlist {
|
Line 3144 sub get_classlist {
|
|
|
sub get_group_memberships { |
sub get_group_memberships { |
my ($classlist,$keylist,$cdom,$cnum) = @_; |
my ($classlist,$keylist,$cdom,$cnum) = @_; |
|
|
|
return ({},{}) if (!ref($classlist) || !ref($keylist)); |
|
|
my $cid = $cdom.'_'.$cnum; |
my $cid = $cdom.'_'.$cnum; |
if (!defined($cdom) || !defined($cnum)) { |
if (!defined($cdom) || !defined($cnum)) { |
$cid = $env{'request.course.id'}; |
$cid = $env{'request.course.id'}; |