[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May  9 10:05:59 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7757/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
starred keywords by default
moby-live/Perl/MOBY Central.pm,1.55,1.56
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -r1.55 -r1.56
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 13:53:58	1.55
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:05:59	1.56
@@ -1711,8 +1711,8 @@
 		++$criterion_count;
 		my $searchstring;
 		foreach my $kw(@{$findme{keywords}}){
-			$kw =~ s/\*/\%/g;
-			$searchstring .= " OR description like '$kw' ";
+			$kw =~ s/\*//g;
+			$searchstring .= " OR description like '%$kw%' ";
 		}
 		$searchstring =~ s/OR//;  # just the first one
 		my $search = $dbh->quote($searchstring);