[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed May  7 19:11:37 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv30004/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
fixed problem with deregisterServie client message structure
moby-live/Perl/MOBY/Client Central.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/07 21:26:36	1.8
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/07 23:11:37	1.9
@@ -404,7 +404,7 @@
 	my $id = $a{'serviceTypeAcc'}; $id ||="";
 	my $message = "
 		<deregisterServiceType>
-			<serviceTypeAcc>$id</serviceTypeAcc>
+			<serviceType>$id</serviceType>
 		</deregisterServiceType>";
 	my $return = $self->SOAP_connection->call(deregisterServiceType => ($message))->paramsall;