From c8c52ba72e90656304e85f2958f3f6f5ff0f3487 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 Signed-off-by: Josef Moravec Signed-off-by: Marcel de Rooy Signed-off-by: Kyle M Hall --- C4/Koha.pm | 38 -------------------------------------- 1 file changed, 38 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index b48d324324..d827d2a0dd 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -847,44 +847,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.39.5