[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul  4 11:00:12 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1484/MOBY

Modified Files:
	Central.pm 
Log Message:
Possible fix for failure to discover based on input.  Some mischievious code made it into the routine that does the search.  No idea how it got there, but now it is gone.

moby-live/Perl/MOBY Central.pm,1.90,1.91
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/07/04 14:43:09	1.90
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/07/04 15:00:12	1.91
@@ -1606,12 +1606,12 @@
 	my $query = "select distinct service_instance_id from simple_$inout where object_type_uri in ($ancestor_string) and service_instance_id IS NOT NULL ";# if service_instance_id is null then it must be a collection input.
 	($nsquery) && ($query .=" AND ($nsquery) ");
 	$debug && _LOG("\nQUERY $query\n");
-	my $nsref = $dbh->selectall_arrayref($query);
-	my @ids;
-	foreach (@{$nsref}){
-		push @ids, $_->[0];
-	}
-	return @ids;	
+	my $ids = $dbh->selectall_arrayref($query);
+#	my @ids;  # ?!?  what the heck was this supposed to achieve?!  Must have been late at night...
+#	foreach (@{$nsref}){
+#		push @ids, $_->[0];
+#	}
+	return @{$ids};	
 }
 sub _searchForCollection {