loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.89, 2003/10/29 15:22:30	version 1.90, 2003/11/11 22:14:28
Line 225 sub PrepareClasslist {	Line 225 sub PrepareClasslist {
@SelectedSections = ($ENV{'form.Section'});	@SelectedSections = ($ENV{'form.Section'});
}	}
}	}
	&Apache::lonnet::logthis('@SelectedSections = '.join(',',@SelectedSections));
@SelectedSections = ('all') if (! @SelectedSections);	@SelectedSections = ('all') if (! @SelectedSections);
foreach (@SelectedSections) {	foreach (@SelectedSections) {
if ($_ eq 'all') {	if ($_ eq 'all') {
Line 1158 sub handler {	Line 1159 sub handler {
&Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});	&Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
}	}
#	#
# Set up the statistics and chart environment
&PrepareClasslist();
&PrepareCourseData($r);
#
# Begin form output	# Begin form output
$r->print('<form name="Statistics" ');	$r->print('<form name="Statistics" ');
$r->print('method="post" action="/adm/statistics">');	$r->print('method="post" action="/adm/statistics">');
$r->rflush();	$r->rflush();
#	#
my $GoToPage = $ENV{'form.reportSelected'};	my $GoToPage = $ENV{'form.reportSelected'};
	#
	# Set up the statistics and chart environment
	&PrepareCourseData($r);
	#
$r->print('<input type="hidden" name="reportSelected" value="'.	$r->print('<input type="hidden" name="reportSelected" value="'.
$GoToPage.'">');	$GoToPage.'">');
if($GoToPage eq 'activitylog') {	if($GoToPage eq 'activitylog') {