[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Feb  1 09:14:12 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv10553/Client

Modified Files:
	Central.pm 
Log Message:
typed the soap data to string in the _call sub routine

moby-live/Perl/MOBY/Client Central.pm,1.143,1.144
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -r1.143 -r1.144
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/01/30 14:37:44	1.143
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/02/01 14:14:11	1.144
@@ -238,7 +238,7 @@
 	else {
 
 		#print STDERR "executing SOAP call\n";
-		my @payload = $connect->call( $method => $param )->paramsall;
+		my @payload = $connect->call( $method =>  SOAP::Data->type('string' => $param ) )->paramsall;
 		return @payload;
 	}
 }
@@ -1904,6 +1904,8 @@
 sub _parseServices {
 	my ( $self, $Registry, $XML ) = @_;
 	my $Parser   = XML::LibXML->new();
+	# fix empty string problem
+	return [] unless $XML;
 	my $doc      = $Parser->parse_string($XML);
 	my $Object   = $doc->getDocumentElement();
 	my $Services = $Object->getElementsByTagName("Service");