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

Diff for /loncom/interface/lonstatistics.pm between versions 1.65 and 1.66

version 1.65, 2003/03/25 22:20:25 version 1.66, 2003/04/18 15:50:55
Line 51  Main handler for statistics and chart. Line 51  Main handler for statistics and chart.
     use Apache::lonproblemstatistics;      use Apache::lonproblemstatistics;
     use Apache::lonstudentassessment;      use Apache::lonstudentassessment;
     use Apache::lonpercentage;      use Apache::lonpercentage;
       use Apache::lonmysql;
 =over 4  =over 4
   
 =cut  =cut
Line 82  use Apache::lonproblemanalysis(); Line 82  use Apache::lonproblemanalysis();
 use Apache::lonproblemstatistics();  use Apache::lonproblemstatistics();
 use Apache::lonstudentassessment();  use Apache::lonstudentassessment();
 use Apache::lonpercentage;  use Apache::lonpercentage;
   use Apache::lonmysql;
 use Time::HiRes;  use Time::HiRes;
   
 #######################################################  #######################################################
Line 908  sub handler { Line 909  sub handler {
     $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));      $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));
     $r->rflush();      $r->rflush();
     #      #
       if (! &Apache::lonmysql::verify_sql_connection()) {
           my $serveradmin = $r->dir_config('lonAdmEMail');
           $r->print(<<END);
   <h2><font color="Red">Unable to connect to database!</font></h2>
   <p>
   Please notify the server administrator <b>$serveradmin</b>.
   </p><p>
   Course Statistics and Charts cannot be retrieved until the database is
   restarted.  Your data is intact but cannot be displayed at this time.
   </p>
   </body>
   </html>
   END
           return;
       }
       #
     # Set up the statistics and chart environment      # Set up the statistics and chart environment
     &PrepareClasslist($r);      &PrepareClasslist($r);
     &PrepareCourseData($r);      &PrepareCourseData($r);
Line 919  sub handler { Line 936  sub handler {
     # Print main menu      # Print main menu
     my %reports = ('classlist'          => 'Class list',      my %reports = ('classlist'          => 'Class list',
                    'problem_statistics' => 'Problem Statistics',                     'problem_statistics' => 'Problem Statistics',
                    'student_assessment' => 'Student Assessment',                     'student_assessment' => 'Problem Status Chart',
                    'percentage'         => 'Correct-problems Plot',                     'percentage'         => 'Correct-problems Plot',
                    'option_response'    => 'Option Response Analysis',                     'option_response'    => 'Option Response Analysis',
 #                   'activitylog'        => 'Activity Log',  #                   'activitylog'        => 'Activity Log',
Removed from v.1.65  
changed lines
  Added in v.1.66

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