[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Oct 17 17:29:52 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv25355/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
bug fixes as per Martins reports

moby-live/Perl/MOBY/Client Central.pm,1.54,1.55
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/09/15 03:12:37	1.54
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/10/17 21:29:51	1.55
@@ -1409,10 +1409,13 @@
 	$reg =$reg?$reg:$self->default_MOBY_servername;
 	return undef unless ($self->Connection($reg));
 #	return $self->SOAP_connection($reg)->call('DUMP')->paramsall;	
-	my ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship) = $self->_call($reg, 'DUMP', "");
+	my $SQLs = $self->_call($reg, 'DUMP_MySQL', "");
+	my ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship) = @{SQLs};
 	return ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship);
 }
 
+*DUMP_MySQL =\&DUMP;
+
 sub _parseServices {
     my ($self, $Registry, $XML) = @_;
     my $Parser = new XML::DOM::Parser;