From 3b2dac122cf345d47c054d975bd5a28312d4c0b9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 10 Aug 2016 12:10:46 +0100 Subject: [PATCH] [SIGNED-OFF] Bug 17249: Remove GetKohaAuthorisedValuesFromField Content-Type: text/plain; charset="utf-8" Remove the subroutine, it's no longer in used. Test plan: git grep GetKohaAuthorisedValuesFromField should not return any occurrences. Signed-off-by: Owen Leonard --- C4/Koha.pm | 32 -------------------------------- 1 file changed, 32 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index b6828c1..3f8a20f 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -55,7 +55,6 @@ BEGIN { &GetAuthorisedValues &GetAuthorisedValueCategories &GetKohaAuthorisedValues - &GetKohaAuthorisedValuesFromField &GetKohaAuthorisedValuesMapping &GetAuthorisedValueByCode &GetAuthValCode @@ -1133,37 +1132,6 @@ sub GetKohaAuthorisedValues { } } -=head2 GetKohaAuthorisedValuesFromField - -Takes $field, $subfield, $fwcode as parameters. - -If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist. -$subfield can be undefined - -Returns hashref of Code => description - -Returns undef if no authorised value category is defined for the given field and subfield - -=cut - -sub GetKohaAuthorisedValuesFromField { - my ($field, $subfield, $fwcode,$opac) = @_; - $fwcode='' unless $fwcode; - my %values; - my $dbh = C4::Context->dbh; - my $avcode = GetAuthValCodeFromField($field, $subfield, $fwcode); - if ($avcode) { - my $sth = $dbh->prepare("select authorised_value, lib, lib_opac from authorised_values where category=? "); - $sth->execute($avcode); - while ( my ($val, $lib, $lib_opac) = $sth->fetchrow_array ) { - $values{$val} = ($opac && $lib_opac) ? $lib_opac : $lib; - } - return \%values; - } else { - return; - } -} - =head2 GetKohaAuthorisedValuesMapping Takes a hash as a parameter. The interface key indicates the -- 2.1.4