SF.net SVN: ledger-smb:[4748] trunk/LedgerSMB/REST_Format/xml.pm

[..hidden..]

Revision: 4748
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4748&view=rev
Author:   einhverfr
Date:     2012-05-22 07:29:25 +0000 (Tue, 22 May 2012)
Log Message:
-----------
Slight improvements for cdata handling for XML

Modified Paths:
--------------
    trunk/LedgerSMB/REST_Format/xml.pm

Modified: trunk/LedgerSMB/REST_Format/xml.pm
===================================================================
--- trunk/LedgerSMB/REST_Format/xml.pm	2012-05-22 07:24:32 UTC (rev 4747)
+++ trunk/LedgerSMB/REST_Format/xml.pm	2012-05-22 07:29:25 UTC (rev 4748)
@@ -25,12 +25,13 @@
 
 sub from_input{
     my $request = shift @_;
-    return XMLin($request->{payload}, ForceArray=>1);
+    return XMLin($request->{payload}, ForceArray=>1, ContentKey => 'text');
 }
 
 sub to_output{
     my $request = shift @_; 
-    return XMLout($request->{payload}, RootName => $request->{class_name});
+    return XMLout($request->{payload}, RootName => $request->{class_name},
+           ContentKey => 'text');
 }
 
 1;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.