--- loncom/interface/lonparmset.pm 2006/05/18 01:08:51 1.307
+++ loncom/interface/lonparmset.pm 2006/06/02 22:12:50 1.311
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.307 2006/05/18 01:08:51 raeburn Exp $
+# $Id: lonparmset.pm,v 1.311 2006/06/02 22:12:50 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,6 +65,8 @@ use Apache::lonlocal;
use Apache::lonnavmaps;
use Apache::longroup;
use Apache::lonrss;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
# --- Caches local to lonparmset
@@ -1732,7 +1734,7 @@ ENDTABLEHEADFOUR
'
'.
"$title");
@@ -3333,9 +3335,18 @@ sub standard_parameter_names {
'weight' => 'Weight',
'date_start' => 'Starting Date',
'date_end' => 'Ending Date',
+ 'interval' => 'Time Interval Length',
+ 'tol' => 'Numerical Tolerance',
+ 'sig' => 'Significant Digits',
+ 'contentopen' => 'Content Opening Date',
+ 'contentclose' => 'Content Closing Date',
+ 'discussend' => 'End of Discussion Time',
+ 'discusshide' => 'Discussion Hidden',
+ 'problemstatus' => 'Problem Status Visible',
'int_pos' => 'Positive Integer',
'int_zero_pos' => 'Positive Integer or Zero',
- 'hinttries' => 'Number of Tries till Hints appear');
+ 'hinttries' => 'Number of Tries till Hints appear',
+ 'numbubbles' => 'Number of Bubbles in Exam Mode');
if ($standard_parms{$name}) {
return $standard_parms{$name};
} else {
@@ -3343,20 +3354,46 @@ sub standard_parameter_names {
}
}
+#
+# Parameter Change Log
+#
+
+
sub parm_change_log {
my ($r)=@_;
&startpage($r);
my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});
+
if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
+ $r->print('');
$r->print(&Apache::loncommon::end_page());
}