View | Details | Raw Unified | Return to bug 12279
Collapse All | Expand All

(-)a/C4/Templates.pm (+16 lines)
Lines 5-10 use warnings; Link Here
5
use Carp;
5
use Carp;
6
use CGI;
6
use CGI;
7
use List::MoreUtils qw/any/;
7
use List::MoreUtils qw/any/;
8
use Encode qw/decode/;
8
9
9
# Copyright 2009 Chris Cormack and The Koha Dev Team
10
# Copyright 2009 Chris Cormack and The Koha Dev Team
10
#
11
#
Lines 134-139 sub output { Link Here
134
    return $data;
135
    return $data;
135
}
136
}
136
137
138
sub output_prefs {
139
140
    my $self = shift;
141
    my $vars = shift;
142
143
    my $template = $self->{ TEMPLATE };
144
    my $data;
145
146
    $template->process( $self->filename,
147
                        $vars, \$data )
148
      || die "Template process failed: ", $template->error();
149
150
    return decode('UTF-8',$data);
151
}
152
137
sub utf8_arrayref {
153
sub utf8_arrayref {
138
    my $arrayref = shift;
154
    my $arrayref = shift;
139
    foreach my $element (@$arrayref){
155
    foreach my $element (@$arrayref){
(-)a/admin/preferences.pl (-2 / +1 lines)
Lines 54-60 sub GetTab { Link Here
54
        local_currency => $local_currency, # currency code is used, because we do not know how a given currency is formatted.
54
        local_currency => $local_currency, # currency code is used, because we do not know how a given currency is formatted.
55
    );
55
    );
56
56
57
    return YAML::Syck::Load( $tab_template->output() );
57
    return YAML::Syck::Load( $tab_template->output_prefs() );
58
}
58
}
59
59
60
sub _get_chunk {
60
sub _get_chunk {
61
- 

Return to bug 12279