--- loncom/interface/lonstatistics.pm 2010/01/06 18:29:10 1.148.2.1 +++ loncom/interface/lonstatistics.pm 2010/01/06 19:41:49 1.148.2.2 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.148.2.1 2010/01/06 18:29:10 raeburn Exp $ +# $Id: lonstatistics.pm,v 1.148.2.2 2010/01/06 19:41:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -820,6 +820,8 @@ sub handler { my $gcicustom = &Apache::loncommon::needs_gci_custom(); if ($gcicustom) { 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 $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'}; if ((!$duedate) || ($duedate > $now)) { @@ -827,7 +829,7 @@ sub handler { $r->print('

'.&mt('Display of statistics').'

'); if ($duedate > $now) { $r->print('

'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].', - &Apache::lonlocal::locallocaltime($duedate).'

'); + &Apache::lonlocal::locallocaltime($duedate)).'

'); } else { $r->print('

'. &mt('Aggregate test performance data unavailable without definition of an end date for the Concept Test.').'

'); @@ -835,6 +837,7 @@ sub handler { $r->print(&Apache::loncommon::end_page()); return OK; } + } # # Extract form elements from query string