--- 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...