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

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

version 1.94, 2004/02/02 21:45:12 version 1.97, 2004/02/19 20:17:01
Line 65  use Apache::lonhomework; Line 65  use Apache::lonhomework;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::lonmysql;
   use Apache::lonlocal;
   use Time::HiRes;
   #
   # Statistics Packages
 use Apache::lonproblemanalysis();  use Apache::lonproblemanalysis();
 use Apache::lonsubmissiontimeanalysis();  use Apache::lonsubmissiontimeanalysis();
 use Apache::loncorrectproblemplot();  use Apache::loncorrectproblemplot();
 use Apache::lonproblemstatistics();  use Apache::lonproblemstatistics();
 use Apache::lonstudentassessment();  use Apache::lonstudentassessment();
 use Apache::lonpercentage;  use Apache::lonpercentage;
 use Apache::lonmysql;  use Apache::lonstudentsubmissions();
 use Apache::lonlocal;  
 use Time::HiRes;  
   
 #######################################################  #######################################################
 #######################################################  #######################################################
Line 503  sub PrepareCourseData { Line 506  sub PrepareCourseData {
     $top_map = $top if (ref($top));      $top_map = $top if (ref($top));
     @Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');      @Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');
     @Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');      @Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');
     #  
     # Compute column widths  
     foreach my $seq (@Sequences) {  
         my $name_length = length($seq->{'title'});  
         my $num_parts = $seq->{'num_assess_parts'};  
         #  
         # Use 3 digits for each the sum and total, which means 7 total...  
         my $num_col = $num_parts+7;  
         if ($num_col < $name_length) {  
             $num_col = $name_length;  
         }  
         $seq->{'base_width'} = $name_length;  
         $seq->{'width'} = $num_col;  
     }  
     return;      return;
 }  }
   
Line 1042  sub CreateMainMenu { Line 1031  sub CreateMainMenu {
                      short_description =>                        short_description => 
     &mt('Display and analysis of submission times on assessments.'),      &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',                     { internal_name => 'correct_problems_plot',
                      name => &mt('Correct Problems Plot'),                       name => &mt('Correct Problems Plot'),
                      short_description =>                        short_description => 
Line 1109  sub handler { Line 1103  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('<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_faq(139).
       &Apache::loncommon::help_open_bug('Statistics and Charts'));        &Apache::loncommon::help_open_bug('Statistics and Charts'));
     $r->rflush();      $r->rflush();
Line 1162  sub handler { Line 1159  sub handler {
             &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);              &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
         } elsif($GoToPage eq 'submissiontime_analysis') {          } elsif($GoToPage eq 'submissiontime_analysis') {
             &Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);              &Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);
           } elsif($GoToPage eq 'student_submission_reports') {
               &Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c);
         } elsif($GoToPage eq 'correct_problems_plot') {          } elsif($GoToPage eq 'correct_problems_plot') {
             &Apache::loncorrectproblemplot::BuildCorrectProblemsPage($r,$c);              &Apache::loncorrectproblemplot::BuildCorrectProblemsPage($r,$c);
         } elsif($GoToPage eq 'student_assessment') {          } elsif($GoToPage eq 'student_assessment') {
Removed from v.1.94  
changed lines
  Added in v.1.97

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