[BACK]Return to lonstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

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

version 1.97, 2004/02/19 20:17:01 version 1.98, 2004/02/20 16:24:20
Line 1052  sub CreateMainMenu { Line 1052  sub CreateMainMenu {
     #      #
     # Create the menu      # Create the menu
     my $Str;      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) {      foreach my $reportdata (@reports) {
         $Str .='    <h3><a href="/adm/statistics?reportSelected='.          $Str .='    <h3><a href="/adm/statistics?reportSelected='.
             $reportdata->{'internal_name'}.'" >'.              $reportdata->{'internal_name'}.'" >'.
Line 1106  sub handler { Line 1106  sub handler {
     $r->print('<html><head><title>'.      $r->print('<html><head><title>'.
               &mt('Course Statistics and Charts').                &mt('Course Statistics and Charts').
               "</title></head>\n".                "</title></head>\n".
               &Apache::loncommon::bodytag('Course Statistics and Charts')."\n".                &Apache::loncommon::bodytag('Course Statistics and Charts'));
       &Apache::loncommon::help_open_faq(139).  
       &Apache::loncommon::help_open_bug('Statistics and Charts'));  
     $r->rflush();      $r->rflush();
     #       # 
     # Either print out a menu for them or send them to a report      # 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=>'Statistics',
                                               text =>'Statistics',
                                               faq=>139,
                                               bug=>'Statistics and Charts'});
     if (! exists($ENV{'form.reportSelected'}) ||       if (! exists($ENV{'form.reportSelected'}) || 
         $ENV{'form.reportSelected'} eq '') {          $ENV{'form.reportSelected'} eq '') {
         $r->print(&CreateMainMenu());          $r->print(&Apache::lonhtmlcommon::breadcrumbs
                     (undef,'Statistics Main Page').
                     &CreateMainMenu());
     } else {      } else {
     #      #
         if (! &Apache::lonmysql::verify_sql_connection()) {          if (! &Apache::lonmysql::verify_sql_connection()) {
Line 1154  sub handler { Line 1160  sub handler {
         if($GoToPage eq 'activitylog') {          if($GoToPage eq 'activitylog') {
 #        &Apache::lonproblemstatistics::Activity();  #        &Apache::lonproblemstatistics::Activity();
         } elsif($GoToPage eq 'problem_statistics') {          } elsif($GoToPage eq 'problem_statistics') {
               &Apache::lonhtmlcommon::add_breadcrumb
                   ({href=>'/adm/statistics?reportselected=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
                   ({href=>'/adm/statistics?reportselected=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
                   ({href=>
                         '/adm/statistics?reportselected=submissiontime_analysis',
                         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
                   ({href=>
                     '/adm/statistics?reportselected=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
                   ({href=>'/adm/statistics?reportselected=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::add_breadcrumb
                   ({href=>'/adm/statistics?reportselected=student_assessment',
                     text=>'Chart',
                     faq=>139,bug=>'Statistics and Charts'});
             &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);              &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");          $r->print("</form>\n");
Removed from v.1.97  
changed lines
  Added in v.1.98

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