[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface lonstatistics.pm
raeburn
raeburn@source.lon-capa.org
Wed, 06 Jan 2010 19:41:49 -0000
raeburn Wed Jan 6 19:41:49 2010 EDT
Modified files: (Branch: GCI_3)
/loncom/interface lonstatistics.pm
Log:
- Customization for GCI_3.
- $cnum and $cdom need to be defined.
- Missing parenthesis and brace.
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.148.2.1 loncom/interface/lonstatistics.pm:1.148.2.2
--- loncom/interface/lonstatistics.pm:1.148.2.1 Wed Jan 6 18:29:10 2010
+++ loncom/interface/lonstatistics.pm Wed Jan 6 19:41:49 2010
@@ -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 @@
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 @@
$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>');
+ &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>');
@@ -835,6 +837,7 @@
$r->print(&Apache::loncommon::end_page());
return OK;
}
+ }
#
# Extract form elements from query string