[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 20 17:23:54 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv25922/MOBY

Modified Files:
	service_instance.pm 
Log Message:
query_service_instance does not return boolean, so the test has to be more explicit

moby-live/Perl/MOBY service_instance.pm,1.16,1.17
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/20 17:00:26	1.16
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/20 21:23:54	1.17
@@ -225,12 +225,12 @@
 		  ? $self->service_type_uri( $self->service_type )
 		  : $self->service_type_uri($servicetypeURI);
 	}
-	my $existing_service = $self->adaptor->query_service_instance(
+	my $existing_services = $self->adaptor->query_service_instance(
 								      servicename => $self->servicename,
 								      authority_uri => $self->authority_uri);
+	my $existing_service = shift(@$existing_services);
 	if (
-		($existing_service
-		) # if it exists, you are not allowed to have passed anything other than service name and authorityURI
+		($existing_service->{servicename}) # if it exists, you are not allowed to have passed anything other than service name and authorityURI
 		&& (    ( defined $self->category )
 			 || ( defined $self->service_type )
 			 || ( defined $self->url )