--- loncom/homework/edit.pm 2003/09/19 19:37:53 1.66 +++ loncom/homework/edit.pm 2003/10/24 21:45:32 1.69 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.66 2003/09/19 19:37:53 matthew Exp $ +# $Id: edit.pm,v 1.69 2003/10/24 21:45:32 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -273,6 +273,11 @@ sub handle_insertafter { return $result; } +sub insert_img { + return ' + <img />'; +} + sub insert_responseparam { return ' <responseparam />'; @@ -283,6 +288,8 @@ sub insert_formularesponse { <formularesponse answer="" samples=""> <textline /> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </formularesponse>'; } @@ -292,6 +299,8 @@ sub insert_numericalresponse { <numericalresponse answer=""> <textline /> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </numericalresponse>'; } @@ -301,6 +310,8 @@ sub insert_stringresponse { <stringresponse answer="" type=""> <textline /> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </stringresponse>'; } @@ -318,6 +329,8 @@ sub insert_imageresponse { <foilgroup> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </imageresponse>'; } @@ -328,6 +341,8 @@ sub insert_optionresponse { <foilgroup options=""> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </optionresponse>'; } @@ -338,6 +353,8 @@ sub insert_radiobuttonresponse { <foilgroup> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </radiobuttonresponse>'; } @@ -348,6 +365,8 @@ sub insert_rankresponse { <foilgroup options=""> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </rankresponse>'; } @@ -360,6 +379,8 @@ sub insert_matchresponse { </itemgroup> </foilgroup> <hintgroup> + <startouttext/> + <endouttext /> </hintgroup> </matchresponse>'; } @@ -374,6 +395,14 @@ sub insert_hintpart { </hintpart>'; } +sub insert_hintgroup { + return ' +<hintgroup> + <startouttext/> + <endouttext /> +</hintgroup>'; +} + sub insert_numericalhint { return ' <numericalhint> @@ -707,17 +736,21 @@ ENDBUTTON #----------------------------------------------------- browse sub browse { # insert a link to call up the filesystem browser (lonindexer) - my ($id, $mode) = @_; + my ($id, $mode, $titleid) = @_; my $form = 'lonhomework'; my $element; if (! defined($mode) || $mode eq 'attribute') { $element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth"); } elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> $element = &Apache::lonnet::escape('homework_edit_'. - $Apache::lonxml::curdepth); + $Apache::lonxml::curdepth); + } + my $titleelement; + if ($titleid) { + $titleelement=",'','','".&Apache::lonnet::escape("$titleid\_$Apache::lonxml::curdepth")."'"; } my $result = <<"ENDBUTTON"; -<a href=\"javascript:openbrowser('$form','$element')\"\>Select</a> +<a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a> ENDBUTTON return $result; } @@ -725,7 +758,7 @@ ENDBUTTON #----------------------------------------------------- browse sub search { # insert a link to call up the filesystem browser (lonindexer) - my ($id, $mode) = @_; + my ($id, $mode, $titleid) = @_; my $form = 'lonhomework'; my $element; if (! defined($mode) || $mode eq 'attribute') { @@ -734,8 +767,12 @@ sub search { $element = &Apache::lonnet::escape('homework_edit_'. $Apache::lonxml::curdepth); } + my $titleelement; + if ($titleid) { + $titleelement=",'".&Apache::lonnet::escape("$titleid\_$Apache::lonxml::curdepth")."'"; + } my $result = <<"ENDBUTTON"; -<a href=\"javascript:opensearcher('$form','$element')\"\>Search</a> +<a href=\"javascript:opensearcher('$form','$element'$titleelement)\"\>Search</a> ENDBUTTON return $result; }