From 8158cfbf0eea80ee5c698fa917a56416f6843c4d Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 15 Jul 2005 21:30:05 +0000
Subject: [PATCH] escaping for xml

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1224 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/extras/Perl2REST.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Open-ILS/src/extras/Perl2REST.pl b/Open-ILS/src/extras/Perl2REST.pl
index e205994387..2f5fe3ddef 100755
--- a/Open-ILS/src/extras/Perl2REST.pl
+++ b/Open-ILS/src/extras/Perl2REST.pl
@@ -54,6 +54,9 @@ sub Perl2REST {
 	my $level = shift || 0;
 	return unless defined($obj);
 	if (!ref($obj)) {
+		$obj =~ s/&/&amp;/osg;
+		$obj =~ s/</&lt;/osg;
+		$obj =~ s/</&gt;/osg;
 		$$val .= '  'x$level . "<datum>$obj</datum>\n";
 	} elsif (ref($obj) eq 'ARRAY') {
 		my $next = $level + 1;
@@ -74,16 +77,12 @@ sub Perl2REST {
 		my $class = ref($obj);
 		(my $class_name = $class) =~ s/::/_/go;
 		my $hint = $class->json_hint || $class_name;
-		my $json = JSON->perl2JSON($obj);
-		$json =~ s/&/&amp;/go;
-		$json =~ s/</&lt;/go;
-		$json =~ s/>/&gt;/go;
 		my %hash;
 		for ($obj->properties) {
 			$hash{$_} = $obj->$_;
 		}
 		my $next = $level + 2;
-		$$val .= '  'x$level . "<Fieldmapper hint='$hint' json='$json'>\n";
+		$$val .= '  'x$level . "<Fieldmapper hint='$hint'>\n";
 		for (sort keys %hash) {
 			if ($hash{$_}) {
 				$$val .= '  'x$level . "  <$_>\n";
-- 
2.43.2