--- loncom/homework/edit.pm 2003/06/04 23:04:34 1.53 +++ loncom/homework/edit.pm 2003/06/16 15:09:23 1.56 @@ -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.56 2003/06/16 15:09:23 www 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.="</$tag> "; - } else { - if ($description ne '') { $result.="$description "; } - } - $result.="".&end_table()."\n"; + $result.="".&end_table()."\n"; } return $result; } @@ -310,6 +304,16 @@ sub insert_essayresponse { '; } +sub insert_imageresponse { + return ' + + + + + +'; +} + sub insert_optionresponse { return ' @@ -647,7 +651,7 @@ sub browse { $Apache::lonxml::curdepth); } my $result = <<"ENDBUTTON"; -Browse +Select ENDBUTTON return $result; }