--- loncom/homework/edit.pm 2003/06/04 23:04:34 1.53 +++ loncom/homework/edit.pm 2003/06/10 18:39:08 1.55 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.53 2003/06/04 23:04:34 albertel Exp $ +# $Id: edit.pm,v 1.55 2003/06/10 18:39:08 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -75,13 +75,7 @@ sub tag_end { my ($target,$token,$description) = @_; my $result=''; if ($target eq 'edit') { - my $tag=$token->[1]; - if (!defined($description)) { - $result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>"; - } else { - if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; } - } - $result.="</tr>".&end_table()."\n"; + $result.="</td></tr>".&end_table()."\n"; } return $result; } @@ -310,6 +304,16 @@ sub insert_essayresponse { </essayresponse>'; } +sub insert_imageresponse { + return ' +<imageresponse max="1"> + <foilgroup> + </foilgroup> + <hintgroup> + </hintgroup> +</imageresponse>'; +} + sub insert_optionresponse { return ' <optionresponse max="10">