Attachment #27206 for bug #11944

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




use Template::Plugin;
use base qw( Template::Plugin );

use Encode qw{encode is_utf8};

use C4::Koha;

=pod


sub GetByCode {
    my ( $self, $category, $code, $opac ) = @_;
    return GetAuthorisedValueByCode( $category, $code, $opac );
    return $av;
}

1;

Lines 21-27 use Modern::Perl; Link Here

(-)a/Koha/Template/Plugin/Branches.pm (-2 / +1 lines)
21		21
22	use Template::Plugin;	22	use Template::Plugin;
23	use base qw( Template::Plugin );	23	use base qw( Template::Plugin );
24	use Encode qw{encode is_utf8};
25		24
26	use C4::Koha;	25	use C4::Koha;
27	use C4::Context;	26	use C4::Context;
Lines 33-39 sub GetName { Link Here
33	my $sth = C4::Context->dbh->prepare($query);	32	my $sth = C4::Context->dbh->prepare($query);
34	$sth->execute($branchcode);	33	$sth->execute($branchcode);
35	my $b = $sth->fetchrow_hashref();	34	my $b = $sth->fetchrow_hashref();
36	return $b->{branchname};	35	return $b ? $b->{'branchname'} : q{};
37	}	36	}
38		37
39	sub GetLoggedInBranchcode {	38	sub GetLoggedInBranchcode {

Lines 21-27 use Modern::Perl; Link Here

(-)a/Koha/Template/Plugin/ItemTypes.pm (-2 lines)
21		21
22	use Template::Plugin;	22	use Template::Plugin;
23	use base qw( Template::Plugin );	23	use base qw( Template::Plugin );
24	use Encode qw{encode decode};
25		24
26	use C4::Koha;	25	use C4::Koha;
27		26
28	-

Return to bug 11944

Lines 22-29 use Modern::Perl; Link Here

(-)a/Koha/Template/Plugin/AuthorisedValues.pm (-4 / +1 lines)
22	use Template::Plugin;	22	use Template::Plugin;
23	use base qw( Template::Plugin );	23	use base qw( Template::Plugin );
24		24
25	use Encode qw{encode is_utf8};
26
27	use C4::Koha;	25	use C4::Koha;
28		26
29	=pod	27	=pod
Lines 40-47 The parameters are identical to those used by the subroutine C4::Koha::GetAuthor Link Here
40		38
41	sub GetByCode {	39	sub GetByCode {
42	my ( $self, $category, $code, $opac ) = @_;	40	my ( $self, $category, $code, $opac ) = @_;
43	my $av = GetAuthorisedValueByCode( $category, $code, $opac );	41	return GetAuthorisedValueByCode( $category, $code, $opac );
44	return $av;
45	}	42	}
46		43
47	1;	44	1;