--- loncom/homework/simpleproblem.problem	2003/07/09 06:23:20	1.3
+++ loncom/homework/simpleproblem.problem	2003/11/04 16:44:50	1.6
@@ -1,8 +1,7 @@
 <problem>
 <simpleeditbutton />
 <script type="loncapa/perl">
-$questiontype=&EXT('resource.0.questiontype');
-unless ($questiontype) { $questiontype='radio'; }
+$questiontype=&EXT('resource.0.hiddenparts');
 $max=&EXT('resource.0.maxfoils');
 unless ($max) { $max=10; }
 $randomize=&EXT('resource.0.randomize');
@@ -15,11 +14,24 @@ for ($i=1;$i<=10;$i++) {
     $position[$i]=&EXT('resource.0.position'.$i);
     unless ($position[$i]) { $position[$i]='random'; }
 }
+$stringanswer=&EXT('resource.0.stringanswer');
+unless ($stringanswer) { $stringanswer=''; }
+$stringtype=&EXT('resource.0.stringtype');
+unless ($stringtype) { $stringtype='cs'; }
 </script>
 
-<startouttext />&EXT('resource.0.questiontext')<endouttext />
+<block condition="!$questiontype"> 
 
-<block condition="&EXT('resource.0.questiontype') eq 'radio'"> 
+<startouttext />
+<h1>Simple Problem Placeholder</h1>
+<endouttext />
+</block>
+
+<block condition="$questiontype"> 
+
+<startouttext />&EXT('resource.0.questiontext')<br /><endouttext />
+
+<part id="radio">
 <radiobuttonresponse max="$max" id="radiosegment" randomize="$randomize">
 <foilgroup>
 <foil location="$position[1]" value="$value[1]" name="radiofoil1">
@@ -57,9 +69,9 @@ for ($i=1;$i<=10;$i++) {
 <startouttext />&EXT('resource.0.hinttext')<endouttext />
 </hintgroup>
 </radiobuttonresponse>
-</block>
+</part>
 
-<block condition="&EXT('resource.0.questiontype') eq 'option'"> 
+<part id="option"> 
 <optionresponse max="$max" id="optionsegment" randomize="$randomize">
 <foilgroup options="$options">
 <foil location="$position[1]" value="$value[1]" name="optionfoil1">
@@ -97,6 +109,24 @@ for ($i=1;$i<=10;$i++) {
 <startouttext />&EXT('resource.0.hinttext')<endouttext />
 </hintgroup>
 </optionresponse>
+</part>
+
+<part id="essay"> 
+<essayresponse id="essaysegment">
+<textfield></textfield>
+</essayresponse>
+</part>
+
+<part id="string"> 
+<stringresponse id="stringsegment" answer="$stringanswer" type="$stringtype">
+<textline>
+</textline>
+<hintgroup>
+<startouttext />&EXT('resource.0.hinttext')<endouttext />
+</hintgroup>
+</stringresponse>
+</part>
+
 </block>
 
 </problem>