From 0514a7483cbc39f4572ceb0d6b7a4d8243631855 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 6 Mar 2014 17:05:53 +0100 Subject: [PATCH] Bug 766: Move GetAuthvalueDropbox to C4::Koha GetAuthvalueDropbox is in C4::Budgets, this does not make sense. Signed-off-by: Bernardo Gonzalez Kriegel Signed-off-by: Katrin Fischer Signed-off-by: Galen Charlton --- C4/Budgets.pm | 40 ---------------------------------------- C4/Koha.pm | 38 ++++++++++++++++++++++++++++++++++++++ 2 files changed, 38 insertions(+), 40 deletions(-) diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 882172f05e..c0b6a2bec6 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -58,8 +58,6 @@ BEGIN { &AddBudgetPeriod &DelBudgetPeriod - &GetAuthvalueDropbox - &ModBudgetPlan &GetCurrency @@ -401,44 +399,6 @@ sub GetBudgetAuthCats { return \@auth_cats_loop; } -# ------------------------------------------------------------------- -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; -} - # ------------------------------------------------------------------- sub GetBudgetPeriods { my ($filters,$orderby) = @_; diff --git a/C4/Koha.pm b/C4/Koha.pm index 4c704802a3..c7aa3ed742 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -1434,6 +1434,44 @@ sub GetNormalizedOCLCNumber { } } +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