[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 15:23:18 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv926/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.24,1.25
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/22 17:25:24	1.24
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/22 19:23:18	1.25
@@ -638,9 +638,9 @@
 	delete $args{'authority_uri'};  # this can't be passed into the search since it doens't exist in the table
 	my @args;
 	while (my ($k, $v) = each %args){
-	    push @args, ({$k => $v},"and"); # format for the add_condition subroutine
+	    push @args, ("and",{$k => $v}); # format for the add_condition subroutine
 	}
-	pop @args; # get rid of last "and"
+	push @args, ("and", {authority_id => $authority_id}) if ($authority_id);
 	my $statement = "select
           service_instance_id,
           category,