| Line 0
          
      
      
        Link Here | 
            
              |  |  | 1 | package Koha::Template::Plugin::Filter; | 
            
              | 2 |  | 
            
              | 3 | # This file is part of Koha. | 
            
              | 4 | # | 
            
              | 5 | # Koha is free software; you can redistribute it and/or modify it under the | 
            
              | 6 | # terms of the GNU General Public License as published by the Free Software | 
            
              | 7 | # Foundation; either version 3 of the License, or (at your option) any later | 
            
              | 8 | # version. | 
            
              | 9 | # | 
            
              | 10 | # Koha is distributed in the hope that it will be useful, but WITHOUT ANY | 
            
              | 11 | # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR | 
            
              | 12 | # A PARTICULAR PURPOSE.  See the GNU General Public License for more details. | 
            
              | 13 | # | 
            
              | 14 | # You should have received a copy of the GNU General Public License along | 
            
              | 15 | # with Koha; if not, write to the Free Software Foundation, Inc., | 
            
              | 16 | # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. | 
            
              | 17 |  | 
            
              | 18 | use Modern::Perl; | 
            
              | 19 |  | 
            
              | 20 | use Template::Plugin::Filter; | 
            
              | 21 | use base qw( Template::Plugin::Filter ); | 
            
              | 22 |  | 
            
              | 23 | our $DYNAMIC = 1; | 
            
              | 24 |  | 
            
              | 25 | sub no_double_encode { | 
            
              | 26 |     my ( $self, $value ) = @_; | 
            
              | 27 |  | 
            
              | 28 |     $value =~ s/%25([0-9a-f]{2})/%$1/gi; | 
            
              | 29 |     return $value; | 
            
              | 30 | } | 
            
              | 31 |  | 
            
              | 32 | 1; |