Attachment #28424 for bug #12279

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




use Carp;
use CGI;
use List::MoreUtils qw/any/;
use Encode qw/decode/;

# Copyright 2009 Chris Cormack and The Koha Dev Team
#

    return $data;
}

sub output_prefs {

    my $self = shift;
    my $vars = shift;

    my $template = $self->{ TEMPLATE };
    my $data;

    $template->process( $self->filename,
                        $vars, \$data )
      || die "Template process failed: ", $template->error();

    return decode('UTF-8',$data);
}

sub utf8_arrayref {
    my $arrayref = shift;
    foreach my $element (@$arrayref){

Lines 54-60 sub GetTab { Link Here

(-)a/admin/preferences.pl (-2 / +1 lines)
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

Lines 5-10 use warnings; Link Here

(-)a/C4/Templates.pm (+16 lines)
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){