loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.98 and 1.102

version 1.98, 2004/02/20 16:24:20	version 1.102, 2004/06/04 17:41:35
Line 471 assessments.	Line 471 assessments.
#######################################################	#######################################################
#######################################################	#######################################################
sub Sequences_with_Assess {	sub Sequences_with_Assess {
	my ($mode) = @_;
	$mode = 'selected' if (! defined($mode));
my @Sequences_to_Show;	my @Sequences_to_Show;
foreach my $map_symb (@SelectedMaps) {	foreach my $sequence (@Sequences) {
foreach my $sequence (@Sequences) {	next if ($sequence->{'num_assess'} < 1);
next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');	if ($mode eq 'all') {
next if ($sequence->{'num_assess'} < 1);
push (@Sequences_to_Show,$sequence);	push (@Sequences_to_Show,$sequence);
	} elsif ($mode eq 'selected') {
	foreach my $map_symb (@SelectedMaps) {
	if ($sequence->{'symb'} eq $map_symb \|\| $map_symb eq 'all'){
	push (@Sequences_to_Show,$sequence);
	last; # Only put it in once
	}
	}
}	}

}	}
return @Sequences_to_Show;	return @Sequences_to_Show;
}	}
Line 971 sub DisplayClasslist {	Line 980 sub DisplayClasslist {
$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";	$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";
$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";	$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";
foreach my $field (@Fields) {	foreach my $field (@Fields) {
$Str .= '<th><a href="/adm/statistics?reportSelected=classlist&sort='.$field.'">'.$field.	$Str .= '<th><a href="/adm/statistics?'.
	'reportSelected=student_assessment&'.
	'selectstudent=1&'.
	'sort='.$field.'">'.$field.
'</a></th>';	'</a></th>';
}	}
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";
Line 1119 sub handler {	Line 1131 sub handler {
if (! exists($ENV{'form.reportSelected'}) \|\|	if (! exists($ENV{'form.reportSelected'}) \|\|
$ENV{'form.reportSelected'} eq '') {	$ENV{'form.reportSelected'} eq '') {
$r->print(&Apache::lonhtmlcommon::breadcrumbs	$r->print(&Apache::lonhtmlcommon::breadcrumbs
(undef,'Statistics Main Page').	(undef,&mt('Statistics Main Page')).
&CreateMainMenu());	&CreateMainMenu());
} else {	} else {
#	#
Line 1162 sub handler {	Line 1174 sub handler {
} elsif($GoToPage eq 'problem_statistics') {	} elsif($GoToPage eq 'problem_statistics') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/statistics?reportselected=problem_statistics',	({href=>'/adm/statistics?reportselected=problem_statistics',
text=>'Overall Problem Statistics',	text=>'Overall Problem Statistics'});
faq=>139,bug=>'Statistics and Charts'});
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);	&Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);
} elsif($GoToPage eq 'problem_analysis') {	} elsif($GoToPage eq 'problem_analysis') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/statistics?reportselected=problem_analysis',	({href=>'/adm/statistics?reportselected=problem_analysis',
text=>'Detailed Problem Analysis',	text=>'Detailed Problem Analysis'});
faq=>139,bug=>'Statistics and Charts'});
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);	&Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
} elsif($GoToPage eq 'submissiontime_analysis') {	} elsif($GoToPage eq 'submissiontime_analysis') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>	({href=>
'/adm/statistics?reportselected=submissiontime_analysis',	'/adm/statistics?reportselected=submissiontime_analysis',
text=>'Submission Time Plots',	text=>'Submission Time Plots'});
faq=>139,bug=>'Statistics and Charts'});
&Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);	&Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);
} elsif($GoToPage eq 'student_submission_reports') {	} elsif($GoToPage eq 'student_submission_reports') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>	({href=>
'/adm/statistics?reportselected=student_submission_reports',	'/adm/statistics?reportselected=student_submission_reports',
text=>'Student Submission Reports',	text=>'Student Submission Reports'});
faq=>139,bug=>'Statistics and Charts'});
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c);	&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c);
} elsif($GoToPage eq 'correct_problems_plot') {	} elsif($GoToPage eq 'correct_problems_plot') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/statistics?reportselected=correct_problems_plot',	({href=>'/adm/statistics?reportselected=correct_problems_plot',
text=>'Correct Problems Plot',	text=>'Correct Problems Plot'});
faq=>139,bug=>'Statistics and Charts'});
&Apache::loncorrectproblemplot::BuildCorrectProblemsPage($r,$c);	&Apache::loncorrectproblemplot::BuildCorrectProblemsPage($r,$c);
} elsif($GoToPage eq 'student_assessment') {	} elsif($GoToPage eq 'student_assessment') {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/statistics?reportselected=student_assessment',	({href=>'/adm/statistics?reportselected=student_assessment',
text=>'Chart',	text=>'Chart'});
faq=>139,bug=>'Statistics and Charts'});
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);	&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
}	}
#	#

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.98
changed lines
	Added in v.1.102