[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Aug 17 20:21:23 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv21681/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
the recent modifications to allow CGI access to MOBY Central prevented multiple payloads from being returned.  This is now fixed.  I should add DUMP to the test suite so that  pick up these errors sooner.  thanks Vijay for finding this error.                                                                                                                                                                                              

moby-live/Perl/MOBY/Client Central.pm,1.48,1.49
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -r1.48 -r1.49
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/08/16 19:54:26	1.48
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/08/18 00:21:23	1.49
@@ -205,8 +205,8 @@
 		}
 	} else {
 		#print STDERR "executing SOAP call\n";
-		my $payload = $connect->call($method => $param)->paramsall;
-		return $payload;
+		my @payload = $connect->call($method => $param)->paramsall;
+		return @payload;
 	}	
 }
 
@@ -1370,8 +1370,8 @@
 	$reg =$reg?$reg:$self->default_MOBY_servername;
 	return undef unless ($self->Connection($reg));
 #	return $self->SOAP_connection($reg)->call('DUMP')->paramsall;	
-	my $payload = $self->_call($reg, 'DUMP', "");
-	return $payload;
+	my ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship) = $self->_call($reg, 'DUMP', "");
+	return ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship);
 }
 
 sub _parseServices {