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

Bug 5880: Correct misleading pod in new subroutine

Browse source 
Also remove some whitespace noise from prev commit

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Colin Campbell 2011-03-22 15:24:06 +00:00 committed by Chris Cormack
parent b1e3b6753e
commit 0e1ea3ef81
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
C4/Koha.pm
View file

@ -57,8 +57,8 @@ BEGIN {
&GetKohaAuthorisedValues
&GetKohaAuthorisedValuesFromField
&GetKohaAuthorisedValueLib
&GetAuthorisedValueByCode
&GetKohaImageurlFromAuthorisedValues
&GetAuthorisedValueByCode
&GetKohaImageurlFromAuthorisedValues
&GetAuthValCode
&GetNormalizedUPC
&GetNormalizedISBN
@ -957,9 +957,9 @@ sub GetKohaImageurlFromAuthorisedValues {
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT imageurl FROM authorised_values WHERE category=? AND lib =?");
$sth->execute( $category, $lib );
while ( my $data = $sth->fetchrow_hashref ) {
return $data->{'imageurl'};
}
while ( my $data = $sth->fetchrow_hashref ) {
return $data->{'imageurl'};
}
}
=head2 GetAuthValCode
@ -1060,19 +1060,20 @@ sub GetAuthorisedValueCategories {
$authhorised_value = GetAuthorisedValueByCode( $category, $authvalcode );
Return an hashref of the authorised value represented by $authvalcode.
Return the lib attribute from authorised_values from the row identified
by the passed category and code
=cut
sub GetAuthorisedValueByCode {
my ( $category, $authvalcode ) = @_;
my ( $category, $authvalcode ) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT lib FROM authorised_values WHERE category=? AND authorised_value =?");
$sth->execute( $category, $authvalcode );
while ( my $data = $sth->fetchrow_hashref ) {
return $data->{'lib'};
}
while ( my $data = $sth->fetchrow_hashref ) {
return $data->{'lib'};
}
}
=head2 GetKohaAuthorisedValues