[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 15:29:38 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv1004/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
the logic for findig existing services was still wonky.

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.25,1.26
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/22 19:23:18	1.25
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/22 19:29:38	1.26
@@ -599,7 +599,7 @@
 	unless ($id){
 	    my $result = $self->query_authority({authority_uri => $authURI});
 	    return 0 unless @$result[0];
-	    my $id = @$result[0]->{authority_id};
+	    $id = @$result[0]->{authority_id};
 	    return 0 unless $id;
 	}
 	my $statement = "select