[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 11 18:16:40 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv14886/MOBY

Modified Files:
	Central.pm 
Log Message:
oops.  fetch without execute on a statement handle

moby-live/Perl/MOBY Central.pm,1.96,1.97
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -r1.96 -r1.97
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/07/11 22:10:48	1.96
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/07/11 22:16:40	1.97
@@ -1647,6 +1647,7 @@
 	my @valid_services;
 
 	my $sth = $dbh->prepare($query);
+	$sth->execute;
 	while (my ($id, $nss) = $sth->fetchrow_array){  # get the service instance ID and the namespaces that matched
 		if (scalar @{$namespaceURIs}){  # if namespaces were specified, then validate the discovered service against this list
 			my @ns = split ",", $nss;  # because of the database structure we have to re-test for *identity*, not just like%% similarity