loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.132, 2006/05/01 19:37:34	version 1.133, 2006/05/09 14:38:10
Line 230 sub PrepareClasslist {	Line 230 sub PrepareClasslist {
$enrollment_status = $env{'form.Status'} if (exists($env{'form.Status'}));	$enrollment_status = $env{'form.Status'} if (exists($env{'form.Status'}));
#	#
# Get groupmembership	# Get groupmembership
my (%curr_groups,$classgroups,$studentgroups);	my ($classgroups,$studentgroups);
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum);	my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum);
if ($numgroups) {	if (%curr_groups) {
($classgroups,$studentgroups) =	($classgroups,$studentgroups) =
&Apache::loncoursedata::get_group_memberships($classlist,	&Apache::loncoursedata::get_group_memberships($classlist,
$cdom,$cnum);	$cdom,$cnum);
}	}
my $now = time;	my $now = time;