loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2002/08/13 00:37:18	version 1.43, 2002/08/13 15:01:07
Line 123 sub ProcessFormData{	Line 123 sub ProcessFormData{
'ProblemStatisticsMaps', 'All Maps');	'ProblemStatisticsMaps', 'All Maps');
&CheckFormElement($cache, 'ProblemStatisticsSort',	&CheckFormElement($cache, 'ProblemStatisticsSort',
'ProblemStatisticsSort', 'Homework Sets Order');	'ProblemStatisticsSort', 'Homework Sets Order');
	&CheckFormElement($cache, 'DisplayLegend', 'DisplayLegend', 'Hide Legend');

# Search only form elements	# Search only form elements
my @headingColumns=();	my @headingColumns=();
Line 576 sub BuildStatistics {	Line 577 sub BuildStatistics {
&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,	&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,
$courseID, $r);	$courseID, $r);
} elsif($GoToPage eq 'DoDiffGraph' \|\| $GoToPage eq 'PercentWrongGraph') {	} elsif($GoToPage eq 'DoDiffGraph' \|\| $GoToPage eq 'PercentWrongGraph') {
&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage,$r,$cacheDB);	my $courseDescription = $ENV{'course.'.$courseID.'.description'};
	$courseDescription =~ s/\ /"_"/eg;
	&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage, $cacheDB,
	$courseDescription,
	$r);
} elsif($GoToPage eq 'Class list') {	} elsif($GoToPage eq 'Class list') {
&BuildClasslist($cacheDB, $students, \@studentInformation,	&BuildClasslist($cacheDB, $students, \@studentInformation,
\@headings, $r);	\@headings, $r);