better fix for utf8 problems, also fixed search
authorChristopher Hall <chris.hall@catalyst.net.nz>
Tue, 25 Jan 2011 02:26:36 +0000 (15:26 +1300)
committerChristopher Hall <chris.hall@catalyst.net.nz>
Tue, 25 Jan 2011 02:26:36 +0000 (15:26 +1300)
C4/Templates.pm

index 8467b9c..93fb9ff 100644 (file)
@@ -98,7 +98,6 @@ sub output {
        $vars->{$k} = $self->{VARS}->{$k};
     }
     my $data;
-    binmode( STDOUT, ":utf8" );
     $template->process( $self->filename, $vars, \$data) || die "Template process failed: ", $template->error();; 
     return $data;
 }
@@ -109,7 +108,7 @@ sub param{
     while(@_){
        my $key = shift;
        my $val = shift;
-        utf8::decode($val) if $key eq "XSLTBloc";
+        utf8::decode($val) if utf::is_utf8($val);
        $self->{VARS}->{$key} = $val;
     }
 }