[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 27 10:24:06 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv28861/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
missing where on auto-generated SQL 

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.46,1.47
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 14:19:42	1.46
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 14:24:06	1.47
@@ -656,19 +656,19 @@
 #    	    pop @args;  # remove final "and"
 #	}
 	
-	my $statement = "select
-          service_instance_id,
-          category,
-          servicename,
-          service_type_uri,
-          authority.authority_uri,
-          url,
-          contact_email,
-          authoritative,
-          description,
-		  signatureURL,
-		  lsid 
-          from service_instance left join authority on authority.authority_id ";
+	my $statement = "select 
+			service_instance_id, 
+			category, 
+			servicename, 
+			service_type_uri, 
+			authority.authority_uri, 
+			url, 
+			contact_email, 
+			authoritative, 
+			description, 
+			signatureURL,
+			lsid 
+			from service_instance left join authority on authority.authority_id where ";
         my @bindvalues;
  	($statement, @bindvalues) =_add_condition($statement, @args);
  	my $final = do_query($dbh, $statement, @bindvalues);