[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Feb 19 16:10:23 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv5182/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
somehow the encodig of the MOBY message got screwed up.  Should be correct now.
moby-live/Perl/MOBY/Client Service.pm,1.35,1.36
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/10 01:52:57	1.35
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/19 21:10:23	1.36
@@ -295,7 +295,7 @@
   my $response;
 
 	if ($self->category eq 'moby'){
-		eval { ( $response ) = $self->_soapService->$METHOD( $data ) };
+		eval { ( $response ) = $self->_soapService->$METHOD( SOAP::Data->type('string' => $data) ) };
 		if ($@) { die "Service execution failed: $@"}
 		else {return $response;} # the service execution failed then pass back ""
 	} elsif ($self->category eq 'post'){
@@ -419,7 +419,7 @@
   my $response;
 
 	if ($self->category eq 'moby'){
-		eval { ( $response ) = $self->_soapService->$METHOD( $data ) };
+		eval { ( $response ) = $self->_soapService->$METHOD( SOAP::Data->type('string' => $data) ) };
 		if ($@) { die "Service execution failed: $@"}
 		else {return $response;} # the service execution failed then pass back ""
 	} elsif ($self->category eq 'post'){