--- loncom/interface/lonstatistics.pm 2004/02/12 16:29:00 1.95 +++ loncom/interface/lonstatistics.pm 2004/02/19 20:17:01 1.97 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.95 2004/02/12 16:29:00 matthew Exp $ +# $Id: lonstatistics.pm,v 1.97 2004/02/19 20:17:01 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,15 +65,18 @@ use Apache::lonhomework; use Apache::loncommon; use Apache::loncoursedata; use Apache::lonhtmlcommon; +use Apache::lonmysql; +use Apache::lonlocal; +use Time::HiRes; +# +# Statistics Packages use Apache::lonproblemanalysis(); use Apache::lonsubmissiontimeanalysis(); use Apache::loncorrectproblemplot(); use Apache::lonproblemstatistics(); use Apache::lonstudentassessment(); use Apache::lonpercentage; -use Apache::lonmysql; -use Apache::lonlocal; -use Time::HiRes; +use Apache::lonstudentsubmissions(); ####################################################### ####################################################### @@ -1028,6 +1031,11 @@ sub CreateMainMenu { short_description => &mt('Display and analysis of submission times on assessments.'), }, + { internal_name => 'student_submission_reports', + name => &mt('Student Submission Reports'), + short_description => + &mt('Prepare Excel spreadsheets of student submissions.'), + }, { internal_name => 'correct_problems_plot', name => &mt('Correct Problems Plot'), short_description => @@ -1095,7 +1103,10 @@ sub handler { 'SelectedStudent']); # # Give the LON-CAPA page header - $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'). + $r->print(''. + &mt('Course Statistics and Charts'). + "\n". + &Apache::loncommon::bodytag('Course Statistics and Charts')."\n". &Apache::loncommon::help_open_faq(139). &Apache::loncommon::help_open_bug('Statistics and Charts')); $r->rflush(); @@ -1148,6 +1159,8 @@ sub handler { &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c); } elsif($GoToPage eq 'submissiontime_analysis') { &Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c); + } elsif($GoToPage eq 'student_submission_reports') { + &Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); } elsif($GoToPage eq 'correct_problems_plot') { &Apache::loncorrectproblemplot::BuildCorrectProblemsPage($r,$c); } elsif($GoToPage eq 'student_assessment') {