fixed XSLT utf8 bugs

diff --git a/C4/Templates.pm b/C4/Templates.pm
index a3acd08..8467b9c 100644 (file)
--- a/C4/Templates.pm
+++ b/C4/Templates.pm
@@ -109,6 +109,7 @@ sub param{
     while(@_){
        my $key = shift;
        my $val = shift;
+        utf8::decode($val) if $key eq "XSLTBloc";
        $self->{VARS}->{$key} = $val;
     }
 }