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

Diff for /loncom/interface/lonstatistics.pm between versions 1.148.2.1 and 1.148.2.3

version 1.148.2.1, 2010/01/06 18:29:10 version 1.148.2.3, 2010/01/11 04:11:52
Line 766  sub CreateMainMenu { Line 766  sub CreateMainMenu {
              icon => 'coprplot.png',               icon => 'coprplot.png',
              linktext => ('Correct Problems Plot'),               linktext => ('Correct Problems Plot'),
              linktitle => ('Display a histogram of student performance in the course.')},               linktitle => ('Display a histogram of student performance in the course.')},
          ]},           ]});
       unless(&Apache::loncommon::needs_gci_custom()) {
           push(@reports,
         {categorytitle => 'Reports',          {categorytitle => 'Reports',
          items => [           items => [
             {url => '/adm/statistics?reportSelected=student_submission_reports',              {url => '/adm/statistics?reportSelected=student_submission_reports',
Line 781  sub CreateMainMenu { Line 783  sub CreateMainMenu {
  linktext => ('Survey Reports'),   linktext => ('Survey Reports'),
              linktitle => ('Prepare reports on survey results.')},               linktitle => ('Prepare reports on survey results.')},
          ]});           ]});
       }
           
 return &Apache::lonhtmlcommon::generate_menu(@reports);  return &Apache::lonhtmlcommon::generate_menu(@reports);
     
Line 820  sub handler { Line 823  sub handler {
     my $gcicustom = &Apache::loncommon::needs_gci_custom();      my $gcicustom = &Apache::loncommon::needs_gci_custom();
     if ($gcicustom) {      if ($gcicustom) {
         my $now = time;          my $now = time;
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);          my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
         my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'};          my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'};
         if ((!$duedate) || ($duedate > $now)) {          if ((!$duedate) || ($duedate > $now)) {
Line 827  sub handler { Line 832  sub handler {
             $r->print('<h3>'.&mt('Display of statistics').'</h3>');              $r->print('<h3>'.&mt('Display of statistics').'</h3>');
             if ($duedate > $now) {               if ($duedate > $now) { 
                 $r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].',                  $r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].',
                          &Apache::lonlocal::locallocaltime($duedate).'</p>');                           &Apache::lonlocal::locallocaltime($duedate)).'</p>');
             } else {              } else {
                 $r->print('<p>'.                  $r->print('<p>'.
                           &mt('Aggregate test performance data unavailable without definition of an end date for the Concept Test.').'</p>');                            &mt('Aggregate test performance data unavailable without definition of an end date for the Concept Test.').'</p>');
Line 835  sub handler { Line 840  sub handler {
             $r->print(&Apache::loncommon::end_page());              $r->print(&Apache::loncommon::end_page());
             return OK;              return OK;
         }          }
       }
   
     #      #
     # Extract form elements from query string      # Extract form elements from query string
Line 921  ENDSTYLE Line 927  ENDSTYLE
             &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              &Apache::lonhtmlcommon::add_breadcrumb
                 ({href=>              ({href=>
                   '/adm/statistics?reportselected=student_submission_reports',                '/adm/statistics?reportselected=student_submission_reports',
                   text=>'Student Submission Reports'});                text=>'Student Submission Reports'});
             &Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c);              if ($gcicustom) {
                   $r->print(&mt('Only aggregate performance data are available for Concept Tests.'));
               } else {
                   &Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c);
               }
         } elsif($GoToPage eq 'survey_reports') {          } elsif($GoToPage eq 'survey_reports') {
             &Apache::lonhtmlcommon::add_breadcrumb              &Apache::lonhtmlcommon::add_breadcrumb
                 ({href=>                  ({href=>
Line 942  ENDSTYLE Line 952  ENDSTYLE
                 ({href=>'/adm/statistics?reportselected=student_assessment',                  ({href=>'/adm/statistics?reportselected=student_assessment',
                   text=>'Chart'});                    text=>'Chart'});
             if ($gcicustom) {              if ($gcicustom) {
                 $r->print(&mt('Only aggregate performance data is available for Concept Tests.'));                    $r->print(&mt('Only aggregate performance data are available for Concept Tests.'));  
             } else {              } else {
                 &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);                  &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
             }              }
Removed from v.1.148.2.1  
changed lines
  Added in v.1.148.2.3

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