--- loncom/interface/lonparmset.pm 2006/05/18 01:08:51 1.307
+++ loncom/interface/lonparmset.pm 2006/06/02 06:48:54 1.309
@@ -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.309 2006/06/02 06:48:54 www 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,6 +3335,14 @@ 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');
@@ -3343,6 +3353,11 @@ sub standard_parameter_names {
}
}
+#
+# Parameter Change Log
+#
+
+
sub parm_change_log {
my ($r)=@_;
&startpage($r);
@@ -3350,6 +3365,14 @@ sub parm_change_log {
$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());
}