--- loncom/homework/edit.pm 2003/09/10 21:59:44 1.64 +++ loncom/homework/edit.pm 2003/10/08 16:46:38 1.67 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.64 2003/09/10 21:59:44 albertel Exp $ +# $Id: edit.pm,v 1.67 2003/10/08 16:46:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -67,7 +67,7 @@ sub tag_start { #<td>". # &movebuttons($target,$token). # "</tr><tr><td colspan=\"3\">\n"; - my @help;# = Apache::lonxml::helpinfo($token); + my @help = Apache::lonxml::helpinfo($token); if ($help[0]) { $result .= '<td align="right" valign="top">' . Apache::loncommon::help_open_topic(@help) . @@ -283,6 +283,8 @@ sub insert_formularesponse { <formularesponse answer="" samples=""> <textline /> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </formularesponse>'; } @@ -292,6 +294,8 @@ sub insert_numericalresponse { <numericalresponse answer=""> <textline /> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </numericalresponse>'; } @@ -301,6 +305,8 @@ sub insert_stringresponse { <stringresponse answer="" type=""> <textline /> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </stringresponse>'; } @@ -318,6 +324,8 @@ sub insert_imageresponse { <foilgroup> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </imageresponse>'; } @@ -328,6 +336,8 @@ sub insert_optionresponse { <foilgroup options=""> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </optionresponse>'; } @@ -338,6 +348,8 @@ sub insert_radiobuttonresponse { <foilgroup> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </radiobuttonresponse>'; } @@ -348,6 +360,8 @@ sub insert_rankresponse { <foilgroup options=""> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </rankresponse>'; } @@ -360,6 +374,8 @@ sub insert_matchresponse { </itemgroup> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </matchresponse>'; } @@ -374,6 +390,14 @@ sub insert_hintpart { </hintpart>'; } +sub insert_hintgroup { + return ' +<hintgroup> + <startouttext/> + <endouttext /> +</hintgroup>'; +} + sub insert_numericalhint { return ' <numericalhint> @@ -568,7 +592,6 @@ sub select_arg { my $result; my $optionlist=""; my $selected=$token->[2]{$name}; - &Apache::lonxml::error("Wha $selected"); foreach my $option (@$list) { my ($text,$value); if ( ref($option) eq 'ARRAY') {