[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
test keyword search
moby-live/Perl/MOBY Central.pm,1.56,1.57
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:05:59	1.56
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:09:25	1.57
@@ -19,7 +19,7 @@
 use MOBY::service_instance;
 use MOBY::central_db_connection;
 
-my $debug = 0;
+my $debug = 1;
 
 if ($debug){open (OUT, ">/tmp/CentralRegistryLogOut.txt") || die "cant open logfile\n";print OUT "created logfile\n";close OUT;}
 
@@ -1707,14 +1707,18 @@
 			++$valid_service_ids{$_->[0]}; # increment that particular id's count by one
 		}
 	}
+	$debug && &_LOG("KEYWORDS @{$findme{keywords}\n");
 	if (scalar @{$findme{keywords}}){
 		++$criterion_count;
 		my $searchstring;
 		foreach my $kw(@{$findme{keywords}}){
+		$debug && &_LOG("KEYWORD $kw\n");
 			$kw =~ s/\*//g;
 			$searchstring .= " OR description like '%$kw%' ";
 		}
 		$searchstring =~ s/OR//;  # just the first one
+		$debug && &_LOG("search $searchstring\n");
+		
 		my $search = $dbh->quote($searchstring);
 		my $ids = $dbh->selectall_arrayref("select service_instance_id from service_instance where $search");
 		unless (scalar @{$ids}){