Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

bug fix: syntax error in sub getbranches

Browse source
This commit is contained in:
btoumi 2006-06-07 07:50:04 +00:00
parent 0a7c849997
commit 3eb754b995
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
C4/Koha.pm
View file

@ -120,6 +120,7 @@ sub getbranches {
# returns a reference to a hash of references to branches...
my ($type) = @_;
my %branches;
my $branch;
my $dbh = C4::Context->dbh;
my $sth;
if (C4::Context->preference("IndependantBranches") && (C4::Context->userenv->{flags}!=1)){
@ -131,7 +132,7 @@ sub getbranches {
$sth = $dbh->prepare("Select * from branches order by branchname");
}
$sth->execute;
while (my $branch=$sth->fetchrow_hashref) {
while ($branch=$sth->fetchrow_hashref) {
my $nsth = $dbh->prepare("select categorycode from branchrelations where branchcode = ?");
if ($type){
$nsth = $dbh->prepare("select categorycode from branchrelations where branchcode = ? and categorycode = ?");
@ -158,7 +159,7 @@ sub getbranches {
if (!$type){
$branches{$branch->{'branchcode'}}=$branch;
}
}
return (\%branches);
}