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

Diff for /loncom/interface/lonstatistics.pm between versions 1.87 and 1.90

version 1.87, 2003/10/21 20:24:52 version 1.90, 2003/11/11 22:14:28
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 223  sub PrepareClasslist { Line 225  sub PrepareClasslist {
             @SelectedSections = ($ENV{'form.Section'});              @SelectedSections = ($ENV{'form.Section'});
         }          }
     }      }
       &Apache::lonnet::logthis('@SelectedSections = '.join(',',@SelectedSections));
     @SelectedSections = ('all') if (! @SelectedSections);      @SelectedSections = ('all') if (! @SelectedSections);
     foreach (@SelectedSections) {      foreach (@SelectedSections) {
         if ($_ eq 'all') {          if ($_ eq 'all') {
Line 1048  sub CreateMainMenu { Line 1051  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',
                    );                     );
Line 1151  sub handler { Line 1159  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 1169  sub handler { Line 1177  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.87  
changed lines
  Added in v.1.90

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