--- 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 { #". # &movebuttons($target,$token). # "\n"; - my @help;# = Apache::lonxml::helpinfo($token); + my @help = Apache::lonxml::helpinfo($token); if ($help[0]) { $result .= '' . Apache::loncommon::help_open_topic(@help) . @@ -283,6 +283,8 @@ sub insert_formularesponse { + + '; } @@ -292,6 +294,8 @@ sub insert_numericalresponse { + + '; } @@ -301,6 +305,8 @@ sub insert_stringresponse { + + '; } @@ -318,6 +324,8 @@ sub insert_imageresponse { + + '; } @@ -328,6 +336,8 @@ sub insert_optionresponse { + + '; } @@ -338,6 +348,8 @@ sub insert_radiobuttonresponse { + + '; } @@ -348,6 +360,8 @@ sub insert_rankresponse { + + '; } @@ -360,6 +374,8 @@ sub insert_matchresponse { + + '; } @@ -374,6 +390,14 @@ sub insert_hintpart { '; } +sub insert_hintgroup { + return ' + + + +'; +} + sub insert_numericalhint { return ' @@ -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') {