@@ -, +, @@ git grep GetKohaAuthorisedValuesFromField --- C4/Koha.pm | 32 -------------------------------- 1 file changed, 32 deletions(-) --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -56,7 +56,6 @@ BEGIN { &GetAuthorisedValues &GetAuthorisedValueCategories &GetKohaAuthorisedValues - &GetKohaAuthorisedValuesFromField &GetKohaAuthorisedValuesMapping &GetAuthorisedValueByCode &GetAuthValCode @@ -1134,37 +1133,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 --