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.135, 2006/05/18 01:08:50
Line 63 use Apache::loncoursedata;	Line 63 use Apache::loncoursedata;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use Apache::lonmysql;	use Apache::lonmysql;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::longroup;
use Time::HiRes;	use Time::HiRes;
#	#
# Statistics Packages	# Statistics Packages
Line 230 sub PrepareClasslist {	Line 231 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::longroup::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);	$field_names,
	$cdom,$cnum);
}	}
my $now = time;	my $now = time;