--- loncom/interface/lonsearchcat.pm 2001/03/15 19:47:37 1.32 +++ loncom/interface/lonsearchcat.pm 2001/03/15 20:47:04 1.35 @@ -466,9 +466,12 @@ sub basicsearch { } my $query=$ENV{'form.basicexp'}; - $query="select * from metadata where concat(title,\" \",author) like '\%$ENV{'form.basicexp'}\%'"; + my $concatarg=join('," ",', + ('title', 'author', 'subject', 'notes', 'abstract')); + + $query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'"; my $reply=&Apache::lonnet::metadata_query($query); - &output_results($r,$envhash,$reply); + &output_results($r,$envhash,$query,$reply); return OK; } @@ -518,7 +521,7 @@ RESULTS # ----------------------------- format and output results based on a reply list sub output_results { - my ($r,$envhash,@replylist)=@_; + my ($r,$envhash,$testval,@replylist)=@_; my %ENV=%{$envhash}; foreach my $reply (@replylist) { @@ -625,6 +628,7 @@ SCRIPT

Search Catalog

+$testval