--- loncom/homework/simpleproblem.problem	2005/02/28 20:39:05	1.7
+++ loncom/homework/simpleproblem.problem	2009/08/17 14:19:56	1.9
@@ -18,6 +18,16 @@ $stringanswer=&EXT('resource.0.stringans
 unless ($stringanswer) { $stringanswer=''; }
 $stringtype=&EXT('resource.0.stringtype');
 unless ($stringtype) { $stringtype='cs'; }
+$numericalanswer=&EXT('resource.0.numericalanswer');
+unless ($numericalanswer) { $numericalanswer=''; }
+$numericaltolerance=&EXT('resource.0.numericaltolerance');
+unless ($numericaltolerance) { $numericaltolerance='5%'; }
+$numericalsigfigs=&EXT('resource.0.numericalsigfigs');
+unless ($numericalsigfigs) { $numericalsigfigs='1,15'; }
+$numericalunits=&EXT('resource.0.numericalunits');
+unless ($numericalunits) { $numericalunits=''; }
+$numericalformat=&EXT('resource.0.numericalformat');
+unless ($numericalformat) { $numericalformat=''; }
 </script>
 
 <block condition="!$questiontype"> 
@@ -29,9 +39,9 @@ unless ($stringtype) { $stringtype='cs';
 
 <block condition="$questiontype"> 
 
+<part id="radio">
 <startouttext /><parse>&EXT('resource.0.questiontext')</parse><br /><endouttext />
 
-<part id="radio">
 <radiobuttonresponse max="$max" id="radiosegment" randomize="$randomize">
 <foilgroup>
 <foil location="$position[1]" value="$value[1]" name="radiofoil1">
@@ -72,6 +82,7 @@ unless ($stringtype) { $stringtype='cs';
 </part>
 
 <part id="option"> 
+<startouttext /><parse>&EXT('resource.0.questiontext')</parse><br /><endouttext />
 <optionresponse max="$max" id="optionsegment" randomize="$randomize">
 <foilgroup options="$options">
 <foil location="$position[1]" value="$value[1]" name="optionfoil1">
@@ -112,12 +123,14 @@ unless ($stringtype) { $stringtype='cs';
 </part>
 
 <part id="essay"> 
+<startouttext /><parse>&EXT('resource.0.questiontext')</parse><br /><endouttext />
 <essayresponse id="essaysegment">
 <textfield></textfield>
 </essayresponse>
 </part>
 
 <part id="string"> 
+<startouttext /><parse>&EXT('resource.0.questiontext')</parse><br /><endouttext />
 <stringresponse id="stringsegment" answer="$stringanswer" type="$stringtype">
 <textline>
 </textline>
@@ -127,6 +140,22 @@ unless ($stringtype) { $stringtype='cs';
 </stringresponse>
 </part>
 
+<part id="numerical">
+<script type="loncapa/perl">
+$numericalscript
+</script>
+<startouttext /><parse>&EXT('resource.0.questiontext')</parse><br /><endouttext />
+<numericalresponse id="numericalsegment" answer="$numericalanswer" unit="$numericalunit" format="$numericalformat">
+<responseparam type="tolerance" default="$numericaltolerance" name="tol" description="Numerical Tolerance" />
+<responseparam name="sig" type="int_range,0-16" default="$numericalsigfigs" description="Significant Figures" />
+<textline>
+</textline>
+<hintgroup>
+<startouttext /><parse>&EXT('resource.0.hinttext')</parse><endouttext />
+</hintgroup>
+</numericalresponse>
+</part>
+
 </block>
 
 </problem>