moved JSON code here
[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Template / Plugin / WebUtils.pm
index 6637e55..2fe9b08 100644 (file)
@@ -8,6 +8,7 @@ use OpenSRF::AppSession;
 use OpenSRF::System;
 use XML::LibXML;
 use OpenSRF::Utils::SettingsParser;
+use JSON;
 
 sub new {
        my ($class) = @_;
@@ -23,5 +24,21 @@ sub XML2perl {
 }
 
 
+sub perl2JSON {
+       my( $self, $perl ) = @_;
+       return JSON->perl2JSON($perl);
+}
+       
+sub JSON2perl {
+       my( $self, $perl ) = @_;
+       return JSON->JSON2perl($perl);
+}
+
+sub perl2prettyJSON {
+       my( $self, $perl ) = @_;
+       return JSON->perl2prettyJSON($perl);
+}
+
+
 
 1;