--- loncom/interface/lonsearchcat.pm	2001/04/13 18:09:15	1.94
+++ loncom/interface/lonsearchcat.pm	2001/04/16 17:11:57	1.95
@@ -658,8 +658,7 @@ sub basicsearch {
     my $query='';
     my $concatarg=join(',"    ",',
 		       ('title', 'author', 'subject', 'notes', 'abstract'));
-#    $query='select * from metadata where concat(' . $concatarg . ') like "%' .
-#	   $ENV{'form.basicexp'} . '%"';
+    $concatarg='title' if $ENV{'form.titleonly'};
 
     $query=&build_SQL_query('concat('.$concatarg.')',$ENV{'form.'.'basicexp'});