--- loncom/homework/lonsimpleproblemedit.pm 2009/08/17 18:18:35 1.24
+++ loncom/homework/lonsimpleproblemedit.pm 2009/08/17 19:46:49 1.25
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Problem Parameter Setting "Editor"
#
-# $Id: lonsimpleproblemedit.pm,v 1.24 2009/08/17 18:18:35 www Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.25 2009/08/17 19:46:49 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -220,6 +220,10 @@ sub handler {
('resourcedata',\%storecontent,
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});
+
+ &Apache::lonnet::devalidatecourseresdata(
+ $env{'course.'.$env{'request.course.id'}.'.num'},
+ $env{'course.'.$env{'request.course.id'}.'.domain'});
}
# ------------------------------------------------------------------- Read Data
@@ -342,7 +346,7 @@ sub handler {
unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
$r->print(
'
');
@@ -352,10 +356,18 @@ sub handler {
if ($qtype eq 'numerical') {
my $numericalanswer=$qparms{$prefix.'numericalanswer'};
unless (defined($numericalanswer)) { $numericalanswer=''; }
+ my $numericaltolerance=$qparms{$prefix.'numericaltolerance'};
+ unless (defined($numericaltolerance)) { $numericaltolerance='5%'; }
+ my $numericalsigfigs=$qparms{$prefix.'numericalsigfigs'};
+ unless (defined($numericalsigfigs)) { $numericalsigfigs='1,15'; }
$r->print(
'
');
$r->print(&hint());
}