Lines 21-26
use strict;
Link Here
|
21 |
require Exporter; |
21 |
require Exporter; |
22 |
use C4::Context; |
22 |
use C4::Context; |
23 |
|
23 |
|
|
|
24 |
use Koha::BusinessLogic::Branch; |
25 |
|
24 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
26 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
25 |
|
27 |
|
26 |
BEGIN { |
28 |
BEGIN { |
Lines 177-189
sub GetBranchesLoop { # since this is what most pages want anyway
Link Here
|
177 |
|
179 |
|
178 |
sub GetBranchName { |
180 |
sub GetBranchName { |
179 |
my ($branchcode) = @_; |
181 |
my ($branchcode) = @_; |
180 |
my $dbh = C4::Context->dbh; |
182 |
return "" unless $branchcode; #FIXME ? sometimes GetBranchName is called without branchcode, we must return immediatly to avoid an arror in ->first->branchname |
181 |
my $sth; |
183 |
return Koha::BusinessLogic::Branch->read({'branchcode' => $branchcode})->first->branchname; |
182 |
$sth = $dbh->prepare("Select branchname from branches where branchcode=?"); |
|
|
183 |
$sth->execute($branchcode); |
184 |
my $branchname = $sth->fetchrow_array; |
185 |
$sth->finish; |
186 |
return ($branchname); |
187 |
} |
184 |
} |
188 |
|
185 |
|
189 |
=head2 ModBranch |
186 |
=head2 ModBranch |
190 |
- |
|
|