From 5f2ed4c0378eb27188eda422b6f526717f6b44ce Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 4 Jan 2017 15:41:22 +0100 Subject: [PATCH] Bug 17847: Remove C4::Koha::GetAuthvalueDropbox Content-Type: text/plain; charset=utf-8 Signed-off-by: Josef Moravec Signed-off-by: Marcel de Rooy --- C4/Koha.pm | 38 -------------------------------------- 1 file changed, 38 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 9f06226..810e6a4 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -900,44 +900,6 @@ sub GetNormalizedOCLCNumber { return } -sub GetAuthvalueDropbox { - my ( $authcat, $default ) = @_; - my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; - my $dbh = C4::Context->dbh; - - my $query = qq{ - SELECT * - FROM authorised_values - }; - $query .= qq{ - LEFT JOIN authorised_values_branches ON ( id = av_id ) - } if $branch_limit; - $query .= qq{ - WHERE category = ? - }; - $query .= " AND ( branchcode = ? OR branchcode IS NULL )" if $branch_limit; - $query .= " GROUP BY lib ORDER BY category, lib, lib_opac"; - my $sth = $dbh->prepare($query); - $sth->execute( $authcat, $branch_limit ? $branch_limit : () ); - - - my $option_list = []; - my @authorised_values = ( q{} ); - while (my $av = $sth->fetchrow_hashref) { - push @{$option_list}, { - value => $av->{authorised_value}, - label => $av->{lib}, - default => ($default eq $av->{authorised_value}), - }; - } - - if ( @{$option_list} ) { - return $option_list; - } - return; -} - - =head2 GetDailyQuote($opts) Takes a hashref of options -- 2.1.4