Bug 20891: Escape html then JSON

[koha-equinox.git] / Koha / Template / Plugin / To.pm

diff --git a/Koha/Template/Plugin/To.pm b/Koha/Template/Plugin/To.pm
index f87a39c..b0a03c4 100644 (file)
--- a/Koha/Template/Plugin/To.pm
+++ b/Koha/Template/Plugin/To.pm
@@ -19,9 +19,11 @@ package Koha::Template::Plugin::To;
 
 use Modern::Perl;
 
-use base qw( Template::Plugin );
+use Template::Plugin::Filter;
+use base qw( Template::Plugin::Filter );
 
 use JSON qw( to_json );
+our $DYNAMIC = 1;
 
 sub json {
     my ( $self, $value ) = @_;
@@ -34,4 +36,9 @@ sub json {
     return $json;
 }
 
+sub filter {
+    my ( $self, $value ) = @_;
+    return $self->json($value);
+}
+
 1;