From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 10 Nov 2005 02:12:12 +0000 (+0000)
Subject: arg! cut-n-paste error
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ba5540e1bdc6ddee54b6e91499bbadf8d08ecb73;p=opensrf%2Fbjwebb.git

arg! cut-n-paste error


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@577 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index 4b70455..6c48a14 100644
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -199,7 +199,7 @@ sub perl2JSON {
 			my $outkey = NFD($key);
 			$output .= ',' if ($c); 
 
-			$outkey = NFD($perl);
+			$outkey = NFD($outkey);
 			$outkey =~ s{\\}{\\\\}sgo;
 			$outkey =~ s/"/\\"/sgo;
 			$outkey =~ s/\t/\\t/sgo;