[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 28 17:13:16 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv5790/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
wrong kinds of brackets in query for collection

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.61,1.62
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/28 19:26:58	1.61
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/28 21:13:16	1.62
@@ -189,7 +189,7 @@
           collection_input_id,
           article_name 
           from collection_input as c, service_instance as si where si.service_instance_id = c.service_instance_id and si.lsid = ?";   
- 	my $result = do_query($dbh, $statement, [$serv_lsid]);
+ 	my $result = do_query($dbh, $statement, ($serv_lsid));
  	return $result;
 }
 
@@ -232,7 +232,7 @@
        article_name,
        service_instance_id
        from collection_output where service_instance_id = ? ";       
-    my $result = do_query($dbh, $statement, [$siid]);
+    my $result = do_query($dbh, $statement, ($siid));
     return $result;
 }