[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jan 29 19:41:29 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv32729/MOBY

Modified Files:
	Central.pm 
Log Message:
adding behaviour to return all services if no criterion are passed to findService
moby-live/Perl/MOBY Central.pm,1.273,1.274
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.273
retrieving revision 1.274
diff -u -r1.273 -r1.274
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/30 00:26:18	1.273
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/30 00:41:29	1.274
@@ -2193,8 +2193,10 @@
 			++$valid_service_ids{$_};
 		}
 	}
-	
+print STDERR "Criterion Count was $criterion_count\n";	
 	unless ($criterion_count){  # in case all criterion are null, find everything
+		++$criterion_count;  # this is an AWFUL hack.  We need to add a criterion in order for teh next while loop to be successful in finding each of these services.  This is really really terrible, but it works until someone tries to "fix" something...
+		
 		my $ids = _extract_ids($adaptor->query_service_instance(category => "IS NOT NULL" ));
 		unless ( scalar @{$ids} ) {
 			return &_serviceListResponse( undef );