Bug 18376: Do not need to prepare a single statement, use do
[koha.git] / admin / aqbudgetperiods.pl
blobca2171f145bbfdee6258b65bec4b2f44de1e6360
1 #!/usr/bin/perl
3 # Copyright 2008 BibLibre, BibLibre, Paul POULAIN
4 # SAN Ouest Provence
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 =head1 admin/aqbudgetperiods.pl
23 script to administer the budget periods table
24 This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
26 ALGO :
27 this script use an $op to know what to do.
28 if $op is empty or none of the above values,
29 - the default screen is build (with all records, or filtered datas).
30 - the user can clic on add, modify or delete record.
31 if $op=add_form
32 - if primkey exists, this is a modification,so we read the $primkey record
33 - builds the add/modify form
34 if $op=add_validate
35 - the user has just send datas, so we create/modify the record
36 if $op=delete_confirm
37 - we show the record having primkey=$primkey and ask for deletion validation form
38 if $op=delete_confirmed
39 - we delete the record having primkey=$primkey
40 if $op=duplicate_form
41 - displays the duplication of budget period form (allowing specification of dates)
42 if $op=duplicate_budget
43 - we perform the duplication of the budget period specified as budget_period_id
45 =cut
47 use Modern::Perl;
49 use CGI qw ( -utf8 );
50 use List::Util qw/min/;
51 use Koha::DateUtils;
52 use Koha::Database;
53 use C4::Koha;
54 use C4::Context;
55 use C4::Auth;
56 use C4::Output;
57 use C4::Acquisition;
58 use C4::Budgets;
59 use C4::Debug;
60 use Koha::Acquisition::Currencies;
62 my $dbh = C4::Context->dbh;
64 my $input = new CGI;
66 my $searchfield = $input->param('searchfield') // '';
67 my $budget_period_id = $input->param('budget_period_id');
68 my $op = $input->param('op')||"else";
69 #my $sort1_authcat = $input->param('sort1_authcat');
70 #my $sort2_authcat = $input->param('sort2_authcat');
72 # get only the columns of aqbudgetperiods in budget_period_hashref
73 my @columns = Koha::Database->new()->schema->source('Aqbudgetperiod')->columns;
74 my $budget_period_hashref = { map { join(' ',@columns) =~ /$_/ ? ( $_ => scalar $input->param($_) ) : () } keys( %{$input->Vars()} ) } ;
75 $budget_period_hashref->{budget_period_startdate} = dt_from_string( scalar $input->param('budget_period_startdate') );
76 $budget_period_hashref->{budget_period_enddate} = dt_from_string( scalar $input->param('budget_period_enddate') );
78 $searchfield =~ s/\,//g;
80 my ($template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user(
82 template_name => "admin/aqbudgetperiods.tt",
83 query => $input,
84 type => "intranet",
85 authnotrequired => 0,
86 flagsrequired => { acquisition => 'period_manage' },
87 debug => 1,
92 # This is used in incbudgets-active-currency.inc
93 my $active_currency = Koha::Acquisition::Currencies->get_active;
94 $template->param( symbol => $active_currency->symbol,
95 currency => $active_currency->currency
98 # ADD OR MODIFY A BUDGET PERIOD - BUILD SCREEN
99 if ( $op eq 'add_form' ) {
100 ## add or modify a budget period (preparation)
101 ## get information about the budget period that must be modified
103 if ($budget_period_id) { # MOD
104 my $budgetperiod_hash=GetBudgetPeriod($budget_period_id);
105 # get dropboxes
107 $template->param(
108 %$budgetperiod_hash
110 } # IF-MOD
113 elsif ( $op eq 'add_validate' ) {
114 ## add or modify a budget period (confirmation)
116 ## update budget period data
117 if ( $budget_period_id ne '' ) {
118 $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
119 my $status=ModBudgetPeriod($budget_period_hashref);
121 else { # ELSE ITS AN ADD
122 my $budget_period_id=AddBudgetPeriod($budget_period_hashref);
124 $op='else';
127 #--------------------------------------------------
128 elsif ( $op eq 'delete_confirm' ) {
129 ## delete a budget period (preparation)
130 my $dbh = C4::Context->dbh;
131 ## $total = number of records linked to the record that must be deleted
132 my $total = 0;
133 my $data = GetBudgetPeriod( $budget_period_id);
135 $template->param(
136 %$data
140 elsif ( $op eq 'delete_confirmed' ) {
141 ## delete the budget period record
143 my $data = GetBudgetPeriod( $budget_period_id);
144 DelBudgetPeriod($budget_period_id);
145 $op='else';
148 # display the form for duplicating
149 elsif ( $op eq 'duplicate_form'){
150 my $budgetperiod = GetBudgetPeriod($budget_period_id, $input);
151 $template->param(
152 'duplicate_form' => '1',
153 'budget_period_id' => $budget_period_id,
154 'budgetperiod' => $budgetperiod,
158 # handle the actual duplication
159 elsif ( $op eq 'duplicate_budget' ){
160 die "please specify a budget period id\n" if( !defined $budget_period_id || $budget_period_id eq '' );
162 my $budget_period_startdate = dt_from_string scalar $input->param('budget_period_startdate');
163 my $budget_period_enddate = dt_from_string scalar $input->param('budget_period_enddate');
164 my $budget_period_description = $input->param('budget_period_description');
165 my $amount_change_percentage = $input->param('amount_change_percentage');
166 my $amount_change_round_increment = $input->param('amount_change_round_increment');
167 my $mark_original_budget_as_inactive = $input->param('mark_original_budget_as_inactive');
168 my $reset_all_budgets = $input->param('reset_all_budgets');
170 my $new_budget_period_id = C4::Budgets::CloneBudgetPeriod(
172 budget_period_id => $budget_period_id,
173 budget_period_startdate => $budget_period_startdate,
174 budget_period_enddate => $budget_period_enddate,
175 budget_period_description => $budget_period_description,
176 amount_change_percentage => $amount_change_percentage,
177 amount_change_round_increment => $amount_change_round_increment,
178 mark_original_budget_as_inactive => $mark_original_budget_as_inactive,
179 reset_all_budgets => $reset_all_budgets,
183 # display the list of budgets
184 $op = 'else';
187 elsif ( $op eq 'close_form' ) {
189 my $budget_period = GetBudgetPeriod($budget_period_id);
191 my $active_budget_periods =
192 C4::Budgets::GetBudgetPeriods( { budget_period_active => 1 } );
194 # Remove the budget period from the list
195 $active_budget_periods =
196 [ map { ( $_->{budget_period_id} == $budget_period_id ) ? () : $_ }
197 @$active_budget_periods ];
199 my $budgets_to_move = GetBudgetHierarchy($budget_period_id);
201 my $number_of_unreceived_orders = 0;
202 for my $budget (@$budgets_to_move) {
204 # We want to move funds from this budget
205 my $unreceived_orders = C4::Acquisition::SearchOrders(
207 budget_id => $budget->{budget_id},
208 pending => 1,
211 $budget->{unreceived_orders} = $unreceived_orders;
212 $number_of_unreceived_orders += scalar(@$unreceived_orders);
215 $template->param(
216 close_form => 1,
217 budget_period_id => $budget_period_id,
218 budget_period_description =>
219 $budget_period->{budget_period_description},
220 budget_periods => $active_budget_periods,
221 budgets_to_move => $budgets_to_move,
222 number_of_unreceived_orders => $number_of_unreceived_orders,
226 elsif ( $op eq 'close_confirmed' ) {
227 my $to_budget_period_id = $input->param('to_budget_period_id');
228 my $move_remaining_unspent = $input->param('move_remaining_unspent');
229 my $report = C4::Budgets::MoveOrders(
231 from_budget_period_id => $budget_period_id,
232 to_budget_period_id => $to_budget_period_id,
233 move_remaining_unspent => $move_remaining_unspent,
237 my $from_budget_period = GetBudgetPeriod($budget_period_id);
238 my $to_budget_period = GetBudgetPeriod($to_budget_period_id);
239 $template->param(
240 closed => 1,
241 budget_period_id => $from_budget_period->{budget_period_id},
242 budget_period_description => $from_budget_period->{budget_period_description},
243 from_budget_period => $from_budget_period,
244 to_budget_period => $to_budget_period,
245 report => $report,
249 # DEFAULT - DISPLAY AQPERIODS TABLE
250 # -------------------------------------------------------------------
251 # display the list of budget periods
253 my $activepage = $input->param('apage') || 1;
254 my $inactivepage = $input->param('ipage') || 1;
255 # Get active budget periods
256 my $results = GetBudgetPeriods(
257 { budget_period_active => 1 },
258 { -asc => 'budget_period_description' },
261 my @period_active_loop;
263 foreach my $result ( @{$results} ) {
264 my $budgetperiod = $result;
265 $budgetperiod->{budget_active} = 1;
266 push( @period_active_loop, $budgetperiod );
269 # Get inactive budget periods
270 $results = GetBudgetPeriods(
271 { budget_period_active => 0 },
272 { -desc => 'budget_period_enddate' },
275 my @period_inactive_loop;
276 foreach my $result ( @{$results} ) {
277 my $budgetperiod = $result;
278 $budgetperiod->{budget_active} = 1;
279 push( @period_inactive_loop, $budgetperiod );
282 my $tab = $input->param('tab') ? $input->param('tab') - 1 : 0;
283 $template->param(
284 period_active_loop => \@period_active_loop,
285 period_inactive_loop => \@period_inactive_loop,
286 tab => $tab,
289 $template->param($op=>1);
290 output_html_with_http_headers $input, $cookie, $template->output;