[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Feb 20 09:01:01 EST 2013
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv20691

Modified Files:
	Central.pm 
Log Message:
fixed bug reported by J Rodriguez.  retrieveService was returning Services as an xml tag.  Fixed to return Service as the tagname.
moby-live/Perl/MOBY-Server/lib/MOBY Central.pm,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2010/05/03 18:34:40	1.13
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2013/02/20 14:01:01	1.14
@@ -2622,14 +2622,14 @@
 	my ( $pkg, $payload ) = @_;
 	my ( $AuthURI, $serviceName, $InputXML, $OutputXML, $SecondaryXML ) =
 	  &_retrieveServicePayload($payload);
-	unless ( $AuthURI && $serviceName ) { return "<Services/>" }
+	unless ( $AuthURI && $serviceName ) { return "<Service/>" }
 	my $SI = MOBY::service_instance->new(
 		authority_uri => $AuthURI,
 		servicename   => $serviceName
 	);
+	return "<Service/>" unless ($SI);
 	my $servlsid = $SI->lsid;
 	my $wsdls;
-	return "<Services/>" unless ($SI);
 	&listener(authority => $AuthURI, servicename => $serviceName);  # log the requst for research purposes	
 	my $wsdl = &_getServiceWSDL( $SI, $InputXML, $OutputXML, $SecondaryXML );
 	if ($wsdl) {