[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 10:10:29 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv32719/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
temp commit to get some changes over.  Client library broken
moby-live/Perl/MOBY Central.pm,1.21,1.22
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 00:10:41	1.21
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 14:10:28	1.22
@@ -1653,8 +1653,9 @@
 	if (scalar @{$findme{keywords}}){
 		++$criterion_count;
 		my $searchstring;
-		foreach (@{$findme{keywords}}){
-			$searchstring .= " OR description like '%$_%' ";
+		foreach my $kw(@{$findme{keywords}}){
+			$kw =~ s/\*/\%/g;
+			$searchstring .= " OR description like '$kw' ";
 		}
 		$searchstring =~ s/OR//;  # just the first one
 		my $ids = $dbh->selectall_arrayref(q{select service_instance_id from service_instance where $searchstring});