--- loncom/homework/edit.pm 2002/03/06 20:15:35 1.29 +++ loncom/homework/edit.pm 2002/03/08 18:30:33 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.29 2002/03/06 20:15:35 matthew Exp $ +# $Id: edit.pm,v 1.30 2002/03/08 18:30:33 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -421,14 +421,28 @@ sub select_or_text_arg { #----------------------------------------------------- browse sub browse { # insert a link to call up the filesystem browser (lonindexer) + $_ = shift; my $form = 'lonhomework'; - my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.bgimg"); + my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); my $result = <<"ENDBUTTON"; Browse ENDBUTTON return $result; } +#----------------------------------------------------- browse +sub search { + # insert a link to call up the filesystem browser (lonindexer) + $_ = shift; + my $form = 'lonhomework'; + my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); + my $result = <<"ENDBUTTON"; +Search +ENDBUTTON + return $result; +} + + 1; __END__ @@ -533,6 +547,11 @@ browse($elementname) : provide a link wh browser (lonindexer) and, once a file is selected, place the result in the form element $elementname. +=item * +search($elementname) : provide a link which will open up the filesystem +searcher (lonsearchcat) and, once a file is selected, place the result in +the form element $elementname. + =back incomplete...