[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 27 12:03:29 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv29634/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
simples of collections not being discovered properly

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.52,1.53
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 15:58:36	1.52
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 16:03:29	1.53
@@ -283,6 +283,8 @@
 	my $condition;
       $siid && ($condition = " service_instance_id = ? and collection_input_id IS NULL");
       $collid && ($condition = " service_instance_id IS NULL and collection_input_id = ?");
+      $statement .= $condition;
+      
     my $result = do_query($dbh, $statement, ($siid || $collid));
     return $result;
 }
@@ -372,7 +374,8 @@
       my $condition;
       $siid && ($condition = " service_instance_id = ? and collection_output_id IS NULL");
       $collid && ($condition = " service_instance_id IS NULL and collection_output_id = ?");
-      
+    $statement .= $condition;
+
 
     my $result = do_query($dbh, $statement, ($siid || $collid));
     return $result;