--- loncom/interface/lonsearchcat.pm	2001/03/15 21:38:52	1.38
+++ loncom/interface/lonsearchcat.pm	2001/03/15 21:51:21	1.40
@@ -428,7 +428,7 @@ sub advancedsearch {
     for my $field ('title','author','subject','keywords','url','version',
 		   'notes','abstract','mime','language','owner',
 		   'custommetadata') {
-	if (&filled($ENV{'form.basicexp'})) {
+	if (&filled($ENV{"form.$field"})) {
 	    $fillflag++;
 	}
     }
@@ -437,6 +437,14 @@ sub advancedsearch {
 	&output_blank_field_error($r);
 	return OK;
     }
+
+    my $query='';
+#    my $concatarg=join(',"    ",',
+#		       ('title', 'author', 'subject', 'notes', 'abstract'));
+
+    $query="select * from metadata where concat(title) like '\%$ENV{'form.title'}\%'";
+    my $reply=&Apache::lonnet::metadata_query($query);
+
     &output_results($r,$envhash,$reply);
     return OK;
 }
@@ -462,7 +470,7 @@ sub basicsearch {
 	return OK;
     }
 
-    my $query=$ENV{'form.basicexp'};
+    my $query='';
     my $concatarg=join(',"    ",',
 		       ('title', 'author', 'subject', 'notes', 'abstract'));