loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.364, 2006/05/08 22:34:00	version 1.365, 2006/05/09 14:38:09
Line 3820 can be sent to &get_group_settings() to	Line 3820 can be sent to &get_group_settings() to
###############################################	###############################################

sub coursegroups {	sub coursegroups {
my ($curr_groups,$cdom,$cnum,$group) = @_;	my ($cdom,$cnum,$group) = @_;
my $numgroups;
if (!defined($cdom) \|\| !defined($cnum)) {	if (!defined($cdom) \|\| !defined($cnum)) {
my $cid = $env{'request.course.id'};	my $cid = $env{'request.course.id'};

	return if (!defined($cid));

$cdom = $env{'course.'.$cid.'.domain'};	$cdom = $env{'course.'.$cid.'.domain'};
$cnum = $env{'course.'.$cid.'.num'};	$cnum = $env{'course.'.$cid.'.num'};
}	}
%{$curr_groups} = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group);	my %curr_groups = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group);
my ($tmp) = keys(%{$curr_groups});	my ($tmp) = keys(%curr_groups);
if ($tmp=~/^error:/) {	if ($tmp=~/^(con_lost\|no_such_host\|error: [^2] )/) {
unless ($tmp eq 'error: 2 tie(GDBM) Failed while attempting dump') {	undef(%curr_groups);
&logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.	&logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom);
$cdom);	} elsif ($tmp=~/^error: 2 /) {
}	undef(%curr_groups);
$numgroups = 0;
} else {
$numgroups = keys(%{$curr_groups});
}	}
return $numgroups;	return %curr_groups;
}	}

###############################################	###############################################