[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 16:00:10 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv1252/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.27,1.28
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/22 19:46:52	1.27
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/22 20:00:10	1.28
@@ -632,7 +632,7 @@
 	if ($args{'authority_uri'}){ # need to transform URI to a row ID
 	    my $result = $self->query_authority({authority_uri => $args{'authority_uri'}});
 	    return 0 unless @$result[0];
-	    my $authority_id = @$result[0]->{authority_id};
+	    $authority_id = @$result[0]->{authority_id};
 	    return 0 unless $authority_id;
 	}	
 	delete $args{'authority_uri'};  # this can't be passed into the search since it doens't exist in the table