From 286b6f4e3e8db593fbe218ab08c622e5491ac44d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 10 Aug 2016 09:10:52 +0100 Subject: [PATCH] Bug 17249: GetKohaAuthorisedValuesFromField - rm GetAuthValCodeFromField The subroutine GetAuthValCodeFromField was only used from GetKohaAuthorisedValuesFromField. Test plan: git grep GetAuthValCodeFromField should not return any occurrences. Signed-off-by: Owen Leonard Signed-off-by: Martin Renvoize --- C4/Koha.pm | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 8889c665af..f7fe9cbfcd 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -972,30 +972,6 @@ sub GetAuthValCode { return $authvalcode; } -=head2 GetAuthValCodeFromField - - $authvalcode = GetAuthValCodeFromField($field,$subfield,$frameworkcode); - -C<$subfield> can be undefined - -=cut - -sub GetAuthValCodeFromField { - my ($field,$subfield,$fwcode) = @_; - my $dbh = C4::Context->dbh; - $fwcode='' unless $fwcode; - my $sth; - if (defined $subfield) { - $sth = $dbh->prepare('select authorised_value from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?'); - $sth->execute($field,$subfield,$fwcode); - } else { - $sth = $dbh->prepare('select authorised_value from marc_tag_structure where tagfield=? and frameworkcode=?'); - $sth->execute($field,$fwcode); - } - my ($authvalcode) = $sth->fetchrow_array; - return $authvalcode; -} - =head2 GetAuthorisedValues $authvalues = GetAuthorisedValues([$category]); -- 2.39.5