[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 21 13:43:24 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv29494/MOBY

Modified Files:
	service_instance.pm 
Log Message:
service_instance_exists needs to return boolean

moby-live/Perl/MOBY service_instance.pm,1.20,1.21
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/21 16:37:35	1.20
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/21 17:43:24	1.21
@@ -307,10 +307,7 @@
 	my $authority;
 
 	my $result = $adaptor->query_service_existence(authority_uri => $self->authority_uri, servicename => $self->servicename);
-	my $row = shift(@$result);
-	my $svc = $row->{service_instance_id};
-	
-	return $svc;
+	return $result
 }
 
 sub _get_authority