[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon May 12 11:05:28 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv5598/Perl/MOBY-Server/lib/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
Fixed DUMP
  Not sure when DUMP broke, but our custom serializer (MOBY::SOAP::Serializer) stated that 'this wont work for the DUMP call if and when a SOAP::Data object is passed' and sure enough, in the _call() method in MOBY::Client::Central, a SOAP::Data object was passed to DUMP. This is now fixed thanks to Pieter Neerincx
moby-live/Perl/MOBY-Server/lib/MOBY/Client Central.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Central.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Central.pm	2008/03/06 18:04:35	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Central.pm	2008/05/12 15:05:28	1.4
@@ -1924,10 +1924,16 @@
 	#	return $self->SOAP_connection($reg)->call('DUMP')->paramsall;
 	my ($SQLs) = $self->_call( $reg, 'DUMP_MySQL', "" );
 	my (
-		$mobycentral,   $mobyobject, $mobyservice,
-		$mobynamespace, $mobyrelationship
-	  )
-	  = @{$SQLs};
+            $mobycentral,   $mobyobject, $mobyservice,
+            $mobynamespace, $mobyrelationship
+        ) = @{$SQLs} unless ref($SQLs) eq 'HASH';
+
+		# cases where soap message is serialized as a HASH
+        (
+            $mobycentral,   $mobyobject, $mobyservice,
+            $mobynamespace, $mobyrelationship
+        ) = @{$SQLs->{item}} if ref($SQLs) eq 'HASH';
+        
 	return (
 		$mobycentral,   $mobyobject, $mobyservice,
 		$mobynamespace, $mobyrelationship