[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 13:25:24 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv591/MOBY

Modified Files:
	service_instance.pm 
Log Message:
deanonymysing the arguents to query_service_instance

moby-live/Perl/MOBY service_instance.pm,1.21,1.22
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/21 17:43:24	1.21
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2005/07/22 17:25:24	1.22
@@ -212,8 +212,8 @@
 		  ? $self->service_type_uri( $self->service_type )
 		  : $self->service_type_uri($servicetypeURI);
 	}
-	my $existing_services = $self->adaptor->query_service_instance({servicename => $self->servicename},"and",
-								      {authority_uri => $self->authority_uri});
+	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->{servicename}) { # if service exists, then instantiate it from the database retrieval we just did
 		$self->service_instance_id( $existing_service->{'serviceid'} );