--- loncom/interface/lonsearchcat.pm 2001/03/08 16:54:20 1.4 +++ loncom/interface/lonsearchcat.pm 2001/03/08 20:54:53 1.6 @@ -7,6 +7,8 @@ package Apache::lonsearchcat; use strict; use Apache::Constants qw(:common); +use Apache::lonnet(); +use Apache::File(); my %language; my $scrout; @@ -56,6 +58,10 @@ sub handler { } <$fh>; } + if ($ENV{'form.basicsubmit'} eq 'SEARCH') { + return &basicsearch($r,$ENV{'form.basicexp'}); + } + $scrout=""; $scrout.=&searchphrasefield('Limit by title','title', ''); @@ -618,8 +624,8 @@ LASTREVISIONDATEEND