|
Lines 21-26
use Modern::Perl;
Link Here
|
| 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}; |
| 24 |
|
25 |
|
| 25 |
use C4::Koha; |
26 |
use C4::Koha; |
| 26 |
|
27 |
|
|
Lines 31-37
sub GetName {
Link Here
|
| 31 |
my $sth = C4::Context->dbh->prepare($query); |
32 |
my $sth = C4::Context->dbh->prepare($query); |
| 32 |
$sth->execute($branchcode); |
33 |
$sth->execute($branchcode); |
| 33 |
my $b = $sth->fetchrow_hashref(); |
34 |
my $b = $sth->fetchrow_hashref(); |
| 34 |
return $b->{'branchname'}; |
35 |
return encode('UTF-8', $b->{'branchname'}); |
| 35 |
} |
36 |
} |
| 36 |
|
37 |
|
| 37 |
1; |
38 |
1; |