--- loncom/homework/edit.pm 2007/05/22 01:03:35 1.106 +++ loncom/homework/edit.pm 2007/06/19 19:41:52 1.107 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.106 2007/05/22 01:03:35 albertel Exp $ +# $Id: edit.pm,v 1.107 2007/06/19 19:41:52 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -920,7 +920,7 @@ sub deletecoorddata { #----------------------------------------------------- browse sub browse { # insert a link to call up the filesystem browser (lonindexer) - my ($id, $mode, $titleid) = @_; + my ($id, $mode, $titleid, $only) = @_; my $form = 'lonhomework'; my $element; if (! defined($mode) || $mode eq 'attribute') { @@ -931,7 +931,7 @@ sub browse { } my $titleelement; if ($titleid) { - $titleelement=",'','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'"; + $titleelement=",'$only','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'"; } my $result = <<"ENDBUTTON"; Select