[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Fri Jul 29 19:33:42 UTC 2005


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

Modified Files:
	mysql.pm 
Log Message:
query doesn't work on older versions of mySQL

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.68,1.69
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -r1.68 -r1.69
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/29 19:28:27	1.68
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/29 19:33:41	1.69
@@ -675,9 +675,14 @@
 			description, 
 			signatureURL,
 			lsid 
-			from service_instance, authority where authority.authority_id = service_instance.authority_id ";
+			from service_instance, authority ";
         my @bindvalues;
  	($statement, @bindvalues) =_add_condition($statement, @args);
+	if (keys(%args)){
+	    $statement .= " and authority.authority_id = service_instance.authority_id";
+	} else {
+	    $statement .= " where authority.authority_id = service_instance.authority_id";
+	}
  	my $final = do_query($dbh, $statement, @bindvalues);
  	return $final;
 }




More information about the MOBY-guts mailing list