[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
test keyword search
moby-live/Perl/MOBY Central.pm,1.58,1.59
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:10:41	1.58
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:16:08	1.59
@@ -1722,9 +1722,12 @@
 		my $search = $dbh->quote($searchstring);
 		my $ids = $dbh->selectall_arrayref("select service_instance_id from service_instance where $search");
 		unless (scalar @{$ids}){
+		$debug && &_LOG("found no ids!\n");
 			return &_serviceListResponse($dbh, undef);
 		}		
 		foreach (@{$ids}){
+			$debug && &_LOG("found id $_->[0]\n");
+
 			++$valid_service_ids{$_->[0]}; # increment that particular id's count by one
 		}
 	}