gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct POD and misleading variable names from copy/paste laziness 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
Joe Atzberger 2009-06-18 11:31:32 -05:00 committed by Henri-Damien LAURENT
parent 1d6c94b1bf
commit 4c8bbd51df
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C4/Branch.pm
View File

@ -379,21 +379,18 @@ sub GetBranch ($$) {
=head2 GetBranchDetail
$branchname = &GetBranchDetail($branchcode);
$branch = &GetBranchDetail($branchcode);
Given the branch code, the function returns the corresponding
branch name for a comprehensive information display
Given the branch code, the function returns a
hashref for the corresponding row in the branches table.
=cut
sub GetBranchDetail {
my ($branchcode) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT * FROM branches WHERE branchcode = ?");
my ($branchcode) = shift or return;
my $sth = C4::Context->dbh->prepare("SELECT * FROM branches WHERE branchcode = ?");
$sth->execute($branchcode);
my $branchname = $sth->fetchrow_hashref();
$sth->finish();
return $branchname;
return $sth->fetchrow_hashref();
}
=head2 get_branchinfos_of