loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2002/08/05 20:53:38	version 1.40, 2002/08/06 17:39:15
Line 548 sub BuildStatistics {	Line 548 sub BuildStatistics {
my %reports = ('classlist' => 'Class list',	my %reports = ('classlist' => 'Class list',
'problem_statistics' => 'Problem Statistics',	'problem_statistics' => 'Problem Statistics',
'student_assessment' => 'Student Assessment',	'student_assessment' => 'Student Assessment',
'activitylog' => 'Activity Log',	# 'activitylog' => 'Activity Log',
'reportSelected' => 'Class list');	'reportSelected' => 'Class list');

my %cache;	my %cache;
Line 610 sub BuildStatistics {	Line 610 sub BuildStatistics {
} elsif($GoToPage eq 'Analyze') {	} elsif($GoToPage eq 'Analyze') {
&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,	&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,
$courseID, $r);	$courseID, $r);
} elsif($GoToPage eq 'DoDiffGraph') {	} elsif($GoToPage eq 'DoDiffGraph' \|\| $GoToPage eq 'PercentWrongGraph') {
&Apache::lonproblemstatistics::BuildDiffGraph($r);	&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage,$r,$cacheDB);
} elsif($GoToPage eq 'PercentWrongGraph') {
&Apache::lonproblemstatistics::BuildWrongGraph($r);
} elsif($GoToPage eq 'Class list') {	} elsif($GoToPage eq 'Class list') {
&BuildClasslist($cacheDB, $students, \@studentInformation,	&BuildClasslist($cacheDB, $students, \@studentInformation,
\@headings, $r);	\@headings, $r);