[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Fri Jul 22 20:18:28 UTC 2005


mwilkinson
Fri Jul 22 16:18:28 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1486/MOBY

Modified Files:
	Central.pm 
Log Message:
various queries not being sent to the adaptor

moby-live/Perl/MOBY Central.pm,1.170,1.171
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.170
retrieving revision 1.171
diff -u -r1.170 -r1.171
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 20:15:48	1.170
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 20:18:28	1.171
@@ -3462,7 +3462,7 @@
 		$output .= "\t</Input>\n";
 		$output .= "\t<Output>\n";
 
-		$result = query_simple_output({service_instance_id => $_}, 'and', {collection_output_id => undef});
+		$result = $adaptor->query_simple_output({service_instance_id => $_}, 'and', {collection_output_id => undef});
 		
 		foreach my $row (@$result)
 		{
@@ -3483,7 +3483,7 @@
 		    $output .= "\t\t</Simple>\n";
 		}
 
-		$result = query_collection_output({service_instance_id => $_});
+		$result = $adaptor->query_collection_output({service_instance_id => $_});
 		foreach my $row (@$result)
 		{
 		    my $collid = $row->{collection_output_id};




More information about the MOBY-guts mailing list