loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

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

-version 1.148, 2009/12/16 13:00:45
+version 1.148.2.1, 2010/01/06 18:29:10
  Line 817  sub handler {
      &Apache::loncommon::content_type($r,'text/html');
      $r->send_http_header;
      if ($r->header_only) { return OK; }
+     my $gcicustom = &Apache::loncommon::needs_gci_custom();
+     if ($gcicustom) {
+         my $now = time;
+         my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
+         my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'};
+         if ((!$duedate) || ($duedate > $now)) {
+             $r->print(&Apache::loncommon::start_page("Course Statistics"));
+             $r->print('<h3>'.&mt('Display of statistics').'</h3>');
+             if ($duedate > $now) {
+                 $r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].',
+                          &Apache::lonlocal::locallocaltime($duedate).'</p>');
+             } else {
+                 $r->print('<p>'.
+                           &mt('Aggregate test performance data unavailable without definition of an end date for the Concept Test.').'</p>');
+             }
+             $r->print(&Apache::loncommon::end_page());
+             return OK;
+         }
      #
      # Extract form elements from query string
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- Line 922  ENDSTYLE
+ Line 941  ENDSTYLE
              &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>'/adm/statistics?reportselected=student_assessment',
                    text=>'Chart'});
-             &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
+             if ($gcicustom) {
+                 $r->print(&mt('Only aggregate performance data is available for Concept Tests.'));
+             } else {
+                 &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
+             }
          } elsif($GoToPage eq 'grading_analysis') {
              &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>'/adm/statistics?reportselected=grading_anaylsis',

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

Removed from v.1.148
changed lines
	Added in v.1.148.2.1