--- loncom/interface/lonstatistics.pm 2004/02/19 20:17:01 1.97
+++ loncom/interface/lonstatistics.pm 2004/02/20 16:38:49 1.99
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.97 2004/02/19 20:17:01 matthew Exp $
+# $Id: lonstatistics.pm,v 1.99 2004/02/20 16:38:49 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1052,7 +1052,7 @@ sub CreateMainMenu {
#
# Create the menu
my $Str;
- $Str .= '<h1>'.&mt('Please select a report to generate').'</h1>';
+ $Str .= '<h2>'.&mt('Please select a report to generate').'</h2>';
foreach my $reportdata (@reports) {
$Str .=' <h3><a href="/adm/statistics?reportSelected='.
$reportdata->{'internal_name'}.'" >'.
@@ -1106,15 +1106,21 @@ sub handler {
$r->print('<html><head><title>'.
&mt('Course Statistics and Charts').
"</title></head>\n".
- &Apache::loncommon::bodytag('Course Statistics and Charts')."\n".
- &Apache::loncommon::help_open_faq(139).
- &Apache::loncommon::help_open_bug('Statistics and Charts'));
+ &Apache::loncommon::bodytag('Course Statistics and Charts'));
$r->rflush();
#
# Either print out a menu for them or send them to a report
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/statistics',
+ title=>&mt('Statistics'),
+ text =>&mt('Statistics'),
+ faq=>139,
+ bug=>'Statistics and Charts'});
if (! exists($ENV{'form.reportSelected'}) ||
$ENV{'form.reportSelected'} eq '') {
- $r->print(&CreateMainMenu());
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs
+ (undef,&mt('Statistics Main Page')).
+ &CreateMainMenu());
} else {
#
if (! &Apache::lonmysql::verify_sql_connection()) {
@@ -1154,21 +1160,44 @@ sub handler {
if($GoToPage eq 'activitylog') {
# &Apache::lonproblemstatistics::Activity();
} elsif($GoToPage eq 'problem_statistics') {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>'/adm/statistics?reportselected=problem_statistics',
+ text=>&mt('Overall Problem Statistics'),
+ faq=>139,bug=>'Statistics and Charts'});
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);
} elsif($GoToPage eq 'problem_analysis') {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>'/adm/statistics?reportselected=problem_analysis',
+ text=>&mt('Detailed Problem Analysis'),
+ faq=>139,bug=>'Statistics and Charts'});
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
} elsif($GoToPage eq 'submissiontime_analysis') {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>
+ '/adm/statistics?reportselected=submissiontime_analysis',
+ text=>&mt('Submission Time Plots'),
+ faq=>139,bug=>'Statistics and Charts'});
&Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);
} elsif($GoToPage eq 'student_submission_reports') {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>
+ '/adm/statistics?reportselected=student_submission_reports',
+ text=>&mt('Student Submission Reports'),
+ faq=>139,bug=>'Statistics and Charts'});
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c);
} elsif($GoToPage eq 'correct_problems_plot') {
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>'/adm/statistics?reportselected=correct_problems_plot',
+ text=>&mt('Correct Problems Plot'),
+ faq=>139,bug=>'Statistics and Charts'});
&Apache::loncorrectproblemplot::BuildCorrectProblemsPage($r,$c);
} elsif($GoToPage eq 'student_assessment') {
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb
+ ({href=>'/adm/statistics?reportselected=student_assessment',
+ text=>&mt('Chart'),
+ faq=>139,bug=>'Statistics and Charts'});
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
- } elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') {
-# &Apache::lonproblemstatistics::BuildGraphicChart($r,$c);
- } elsif($GoToPage eq 'Correct-problems Plot') {
- # &Apache::lonpercentage::BuildPercentageGraph($r,$c);
}
#
$r->print("</form>\n");