[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 10 18:42:44 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1774/MOBY

Modified Files:
	Central.pm 
Log Message:
one more bug in service discovery by output squashed

moby-live/Perl/MOBY Central.pm,1.74,1.75
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -r1.74 -r1.75
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/10 22:30:11	1.74
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/10 22:42:44	1.75
@@ -1802,7 +1802,7 @@
 			$nsquery .=" OR namespace_type_uri like '%$ns%' ";
 	}
 	if ($nsquery){$nsquery =~ s/OR//;} # just the first
-	my $query = "select distinct service_instance_id from simple_input where object_type_uri = '$objectURI' and service_instance_id IS NOT NULL ";# if service_instance_id is null then it must be a collection input.
+	my $query = "select distinct service_instance_id from simple_$inout where object_type_uri = '$objectURI' and service_instance_id IS NOT NULL ";# if service_instance_id is null then it must be a collection input.
 	($nsquery) && ($query .=" AND ($nsquery) ");
 	#print "\nQUERY $query\n";
 	my $nsref = $dbh->selectall_arrayref($query);