[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Feb 20 10:13:42 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv8480/Client

Modified Files:
	Service.pm 
Log Message:
rolling back the data typing. it isnt needed, because the wsdl states that the input is already a string.
moby-live/Perl/MOBY/Client Service.pm,1.36,1.37
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/19 21:10:23	1.36
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/20 15:13:42	1.37
@@ -295,7 +295,7 @@
   my $response;
 
 	if ($self->category eq 'moby'){
-		eval { ( $response ) = $self->_soapService->$METHOD( SOAP::Data->type('string' => $data) ) };
+		eval { ( $response ) = $self->_soapService->$METHOD( $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( SOAP::Data->type('string' => $data) ) };
+		eval { ( $response ) = $self->_soapService->$METHOD(  $data ) };
 		if ($@) { die "Service execution failed: $@"}
 		else {return $response;} # the service execution failed then pass back ""
 	} elsif ($self->category eq 'post'){