[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jan 29 19:26:18 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv32571/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.272,1.273
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.272
retrieving revision 1.273
diff -u -r1.272 -r1.273
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/30 00:16:25	1.272
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/30 00:26:18	1.273
@@ -2195,7 +2195,7 @@
 	}
 	
 	unless ($criterion_count){  # in case all criterion are null, find everything
-		my $ids = _extract_ids($adaptor->query_service_instance(category => "%" ));
+		my $ids = _extract_ids($adaptor->query_service_instance(category => "IS NOT NULL" ));
 		unless ( scalar @{$ids} ) {
 			return &_serviceListResponse( undef );
 		}