[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

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

moby-live/Perl/MOBY/Client Service.pm,1.17,1.18
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2005/01/19 23:05:06	1.17
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2005/01/19 23:06:45	1.18
@@ -219,14 +219,14 @@
 	#  this was added on January 19th, 2005 and may not work!
 	###################
 	###################
-	$data =~ s"&"&"g;  # encode content in case it has CDATA
-	$data =~ s"\<"&lt;"g;
 	$data = "<?xml version='1.0' encoding='UTF-8'?>
 	<moby:MOBY xmlns:moby='http://www.biomoby.org/moby-s'>
 	      <moby:mobyContent>
 	          $data
 	      </moby:mobyContent>
 	</moby:MOBY>";
+	$data =~ s"&"&amp;"g;  # encode content in case it has CDATA
+	$data =~ s"\<"&lt;"g;
 	####################
 	####################
     ### BEFORE IT WAS JUST THIS