jungerl/lib/xmlrpc/src xmlrpc_encode.erl,1.3,1.4

[Richard C. <ric...@us...>]

Update of /cvsroot/jungerl/jungerl/lib/xmlrpc/src
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv22490/src

Modified Files:
	xmlrpc_encode.erl 
Log Message:
applied patch by jocke, originally dated 2005-02-02

Index: xmlrpc_encode.erl
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/xmlrpc/src/xmlrpc_encode.erl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- xmlrpc_encode.erl	24 Oct 2008 13:01:52 -0000	1.3
+++ xmlrpc_encode.erl	24 Oct 2008 13:05:46 -0000	1.4
@@ -35,7 +35,7 @@
 	{error, Reason} -> {error, Reason};
 	EncodedParams ->
 	    EncodedPayload =
-		["<?xml version=\"1.0\"?><methodCall><methodName>",
+		["<?xml version=\"1.0\" encoding=\"iso_8859-1\"?><methodCall><methodName>",
 		 atom_to_list(Name), "</methodName>", EncodedParams,
 		 "</methodCall>"],
 	    {ok, EncodedPayload}
@@ -44,7 +44,7 @@
     case xmlrpc_util:is_string(String) of
 	yes ->
 	    EncodedPayload =
-		["<?xml version=\"1.0\"?><methodResponse><fault>"
+		["<?xml version=\"1.0\" encoding=\"iso_8859-1\"?><methodResponse><fault>"
 		 "<value><struct><member><name>faultCode</name><value><int>",
 		 integer_to_list(Code), "</int></value></member><member><name>"
 		 "faultString</name><value><string>", escape_string(String),