[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jan 19 18:20:40 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv26805/Perl/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
try to fix CDATA problem

moby-live/Perl/MOBY/Client Service.pm,1.18,1.19
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2005/01/19 23:06:45	1.18
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2005/01/19 23:20:40	1.19
@@ -227,6 +227,8 @@
 	</moby:MOBY>";
 	$data =~ s"&"&amp;"g;  # encode content in case it has CDATA
 	$data =~ s"\<"&lt;"g;
+	$data =~ s"\]\]\>"\]\]&gt;"g;
+
 	####################
 	####################
     ### BEFORE IT WAS JUST THIS