[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 19:04:39 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv5005/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
logic error in locate by authURI
moby-live/Perl/MOBY Central.pm,1.49,1.50
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -r1.49 -r1.50
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 22:59:54	1.49
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 23:04:39	1.50
@@ -1661,13 +1661,16 @@
 			return &_serviceListResponse($dbh,undef);
 		}
 		my $ids = $dbh->selectall_arrayref(q{select service_instance_id from service_instance where authority_id=?}, undef, $id);
+		unless (scalar @{$ids}){
+			return &_serviceListResponse($dbh,undef);
+		}		
 		foreach (@{$ids}){
 			++$valid_service_ids{$_->[0]}; # increment that particular id's count by one
 		}
 	}
 	if ($findme{servicename}){
 		++$criterion_count;
-		my $ids = $dbh->selectall_arrayref(q{select service_instance_id from service_instance where servicename=?}, undef, lc($findme{servicename}));
+		my $ids = $dbh->selectall_arrayref(q{select service_instance_id from service_instance where servicename=?}, undef, $findme{servicename});
 		unless (scalar @{$ids}){
 			return &_serviceListResponse($dbh,undef);
 		}