--- loncom/interface/lonsearchcat.pm	2001/04/13 18:09:15	1.94
+++ loncom/interface/lonsearchcat.pm	2001/04/16 18:53:56	1.96
@@ -182,8 +182,8 @@ END
     $scrout.=&searchphrasefield('Limit by URL','url',
 			$ENV{'form.url'});
 
-    $scrout.=&searchphrasefield('Limit by version','version',
-			$ENV{'form.version'});
+#    $scrout.=&searchphrasefield('Limit by version','version',
+#			$ENV{'form.version'});
 
     $scrout.=&searchphrasefield('Limit by notes','notes',
 			$ENV{'form.notes'});
@@ -301,9 +301,9 @@ ENDDOCUMENT
     $r->print(' ');
     $r->print(&simplecheckbox('titleonly',$ENV{'form.titleonly'}));
     $r->print('<font color="#800000">Title only</font> ');
-    $r->print(&simplecheckbox('allversions',$ENV{'form.allversions'}));
+#    $r->print(&simplecheckbox('allversions',$ENV{'form.allversions'}));
+# <font color="#800000">Search historic archives</font>
     $r->print(<<ENDDOCUMENT);
-<font color="#800000">Search historic archives</font>
 <br>
 <input type="submit" name="basicsubmit" value='SEARCH' />
 <input type="reset" name="reset" value='RESET' />
@@ -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'});