1 package OpenILS::Template::Plugin::WebUtils;
2 use strict; use warnings;
3 use OpenILS::Utils::Fieldmapper;
6 use base qw/Template::Plugin/;
7 use OpenSRF::AppSession;
10 use OpenSRF::Utils::SettingsParser;
11 use OpenSRF::Utils::JSON;
15 $class = ref($class) || $class;
17 return bless($self,$class);
22 my( $self, $doc ) = @_;
23 return OpenSRF::Utils::SettingsParser::XML2perl($doc);
28 my( $self, $perl ) = @_;
29 my $json = OpenSRF::Utils::JSON->perl2JSON($perl);
30 warn "Created JSON from perl:\n$json\n";
35 my( $self, $perl ) = @_;
36 warn "Turning JSON into perl:\n$perl\n";
37 my $obj = OpenSRF::Utils::JSON->JSON2perl($perl);
38 warn "Created Perl from JSON: $obj \n";
43 my( $self, $perl ) = @_;
44 return OpenSRF::Utils::JSON->perl2prettyJSON($perl);