[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.2

version 1.148.2.1, 2010/01/06 18:29:10 version 1.148.2.2, 2010/01/06 19:41:49
Line 820  sub handler { Line 820  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 829  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 837  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
Removed from v.1.148.2.1  
changed lines
  Added in v.1.148.2.2

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