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

Diff for /loncom/interface/lonstatistics.pm between versions 1.85 and 1.93

version 1.85, 2003/10/08 15:32:00 version 1.93, 2004/01/15 03:18:19
Line 48  Main handler for statistics and chart. Line 48  Main handler for statistics and chart.
     use Apache::loncoursedata;      use Apache::loncoursedata;
     use Apache::lonhtmlcommon;      use Apache::lonhtmlcommon;
     use Apache::lonproblemanalysis;      use Apache::lonproblemanalysis;
       use Apache::lonsubmissiontimeanalysis;
     use Apache::lonproblemstatistics;      use Apache::lonproblemstatistics;
     use Apache::lonstudentassessment;      use Apache::lonstudentassessment;
     use Apache::lonpercentage;      use Apache::lonpercentage;
Line 79  use Apache::loncommon; Line 80  use Apache::loncommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonproblemanalysis();  use Apache::lonproblemanalysis();
   use Apache::lonsubmissiontimeanalysis();
 use Apache::lonproblemstatistics();  use Apache::lonproblemstatistics();
 use Apache::lonstudentassessment();  use Apache::lonstudentassessment();
 use Apache::lonpercentage;  use Apache::lonpercentage;
Line 898  sub Gather_Student_Data { Line 900  sub Gather_Student_Data {
             ($student->{'username'},$student->{'domain'},              ($student->{'username'},$student->{'domain'},
              $ENV{'request.course.id'});               $ENV{'request.course.id'});
         &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,          &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
                                                  'last student');                                                   &mt('last student'));
     }      }
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);      &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
     $r->rflush();      $r->rflush();
Line 1048  sub CreateMainMenu { Line 1050  sub CreateMainMenu {
                      short_description =>                        short_description => 
     &mt('Detailed statistics and graphs of student performance on problems.'),      &mt('Detailed statistics and graphs of student performance on problems.'),
                  },                   },
                    { internal_name => 'student_assessment',                     { internal_name => 'submissiontime_analysis',
                      name => &mt('Problem Status Chart'),                       name => &mt('Submission Time Analysis'),
                      short_description =>                        short_description => 
     &mt('Brief view of each students performance in course.'),      &mt('Display and analysis of submission times on assessments.'),
                  },                   },
   #                   { internal_name => 'student_assessment',
   #                     name => &mt('Problem Status Chart'),
   #                     short_description => 
   #    &mt('Brief view of each students performance in course.'),
   #                 },
                    # 'percentage'  => 'Correct-problems Plot',                     # 'percentage'  => 'Correct-problems Plot',
                    # 'activitylog' => 'Activity Log',                     # 'activitylog' => 'Activity Log',
                    );                     );
   
     #      #
     # Create the menu      # Create the menu
     my $Str;      my $Str;
     $Str =  "<h2>".&mt('Statistics and Problem Analysis')."</h2>\n";      $Str .= '<h1>'.&mt('Please select a report to generate').'</h1>';
     $Str .= &mt('Please select a report to generate.');  
     $Str .= "<dl>\n";  
     foreach my $reportdata (@reports) {      foreach my $reportdata (@reports) {
         $Str .='    <dt><a href="/adm/statistics?reportSelected='.          $Str .='    <h3><a href="/adm/statistics?reportSelected='.
             $reportdata->{'internal_name'}.'" >'.              $reportdata->{'internal_name'}.'" >'.
             $reportdata->{'name'}."</a></dt>\n";              $reportdata->{'name'}."</a></h3>\n";
         $Str .= '        <dd>'.$reportdata->{'short_description'}.          $Str .= '    '.('&nbsp;'x8).$reportdata->{'short_description'}.
             "</dd>\n";              "\n";
     }      }
     $Str .="</dl>\n";      $Str .="</dl>\n";
     #      #
Line 1101  sub handler { Line 1105  sub handler {
         }          }
     }      }
     #      #
     # Set document type for header only  
     if($r->header_only) {  
         if ($ENV{'browser.mathml'}) {  
             $r->content_type('text/xml');  
         } else {  
             $r->content_type('text/html');  
         }  
         &Apache::loncommon::no_cache($r);  
         $r->send_http_header;  
         return OK;  
     }  
     #  
     # Send the header      # Send the header
     $r->content_type('text/html');      &Apache::loncommon::no_cache($r);
       &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
       if ($r->header_only) { return OK; }
     #      #
     # Extract form elements from query string      # Extract form elements from query string
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
Line 1123  sub handler { Line 1117  sub handler {
                                              'SelectedStudent']);                                               'SelectedStudent']);
     #      #
     # Give the LON-CAPA page header      # Give the LON-CAPA page header
     $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));      $r->print(&Apache::lonhtmlcommon::Title('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
Line 1154  sub handler { Line 1150  sub handler {
             &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});              &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
         }          }
         #          #
         # Set up the statistics and chart environment  
         &PrepareClasslist();  
         &PrepareCourseData($r);  
         #  
         # Begin form output          # Begin form output
         $r->print('<form name="Statistics" ');          $r->print('<form name="Statistics" ');
         $r->print('method="post" action="/adm/statistics">');          $r->print('method="post" action="/adm/statistics">');
         $r->rflush();          $r->rflush();
         #          #
         my $GoToPage = $ENV{'form.reportSelected'};          my $GoToPage = $ENV{'form.reportSelected'};
           #
           # Set up the statistics and chart environment
           &PrepareCourseData($r);
           #
         $r->print('<input type="hidden" name="reportSelected" value="'.          $r->print('<input type="hidden" name="reportSelected" value="'.
                   $GoToPage.'">');                    $GoToPage.'">');
         if($GoToPage eq 'activitylog') {          if($GoToPage eq 'activitylog') {
Line 1172  sub handler { Line 1168  sub handler {
             &Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);              &Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);
         } elsif($GoToPage eq 'problem_analysis') {          } elsif($GoToPage eq 'problem_analysis') {
             &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);              &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
           } elsif($GoToPage eq 'submissiontime_analysis') {
               &Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);
         } elsif($GoToPage eq 'student_assessment') {          } elsif($GoToPage eq 'student_assessment') {
             &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);              &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
         } elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') {          } elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') {
Removed from v.1.85  
changed lines
  Added in v.1.93

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