loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'};