C4::Context->preference('opaclayoutstylesheet');
# add variables set via param to $vars for processing
- # and clean any utf8 mess
for my $k ( keys %{ $self->{VARS} } ) {
$vars->{$k} = $self->{VARS}->{$k};
- if (ref($vars->{$k}) eq 'ARRAY'){
- utf8_arrayref($vars->{$k});
- }
- elsif (ref($vars->{$k}) eq 'HASH'){
- utf8_hashref($vars->{$k});
- }
- else {
- utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k});
- }
}
+
my $data;
binmode( STDOUT, ":utf8" );
$template->process( $self->filename, $vars, \$data )
return $data;
}
-sub utf8_arrayref {
- my $arrayref = shift;
- foreach my $element (@$arrayref){
- if (ref($element) eq 'ARRAY'){
- utf8_arrayref($element);
- next;
- }
- if (ref($element) eq 'HASH'){
- utf8_hashref($element);
- next;
- }
- utf8::encode($element) if utf8::is_utf8($element);
- }
-}
-
-sub utf8_hashref {
- my $hashref = shift;
- for my $key (keys %{$hashref}){
- if (ref($hashref->{$key}) eq 'ARRAY'){
- utf8_arrayref($hashref->{$key});
- next;
- }
- if (ref($hashref->{$key}) eq 'HASH'){
- utf8_hashref($hashref->{$key});
- next;
- }
- utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
- }
-}
-
# wrapper method to allow easier transition from HTML template pro to Template Toolkit
sub param {
my $self = shift;