Bug 11629: (follow-up) Add message for librarian that status was updated
[koha.git] / admin / aqbudgetperiods.pl
1 #!/usr/bin/perl
2
3 # Copyright 2008 BibLibre, BibLibre, Paul POULAIN
4 #                SAN Ouest Provence
5 #
6 # This file is part of Koha.
7 #
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
11 # version.
12 #
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20
21 =head1 admin/aqbudgetperiods.pl
22
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)
25
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
44
45 =cut
46
47 ## modules
48 use strict;
49 #use warnings; FIXME - Bug 2505
50 use Number::Format qw(format_price);
51 use CGI;
52 use List::Util qw/min/;
53 use C4::Dates qw/format_date format_date_in_iso/;
54 use C4::Koha;
55 use C4::Context;
56 use C4::Auth;
57 use C4::Output;
58 use C4::Acquisition;
59 use C4::Budgets;
60 use C4::Debug;
61 use C4::SQLHelper;
62
63 my $dbh = C4::Context->dbh;
64
65 my $input       = new CGI;
66
67 my $searchfield          = $input->param('searchfield');
68 my $budget_period_id     = $input->param('budget_period_id');
69 my $op                   = $input->param('op')||"else";
70
71 my $budget_period_hashref= $input->Vars;
72 #my $sort1_authcat = $input->param('sort1_authcat');
73 #my $sort2_authcat = $input->param('sort2_authcat');
74
75 my $activepagesize = 20;
76 my $inactivepagesize = 20;
77 $searchfield =~ s/\,//g;
78
79 my ($template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user(
80         {   template_name   => "admin/aqbudgetperiods.tmpl",
81                 query           => $input,
82                 type            => "intranet",
83                 authnotrequired => 0,
84                 flagsrequired   => { acquisition => 'period_manage' },
85                 debug           => 1,
86         }
87 );
88
89
90 my $cur = GetCurrency();
91 $template->param( symbol => $cur->{symbol},
92                   currency => $cur->{currency}
93                );
94 my $cur_format = C4::Context->preference("CurrencyFormat");
95 my $num;
96
97 if ( $cur_format eq 'US' ) {
98     $num = new Number::Format(
99         'int_curr_symbol'   => '',
100         'mon_thousands_sep' => ',',
101         'mon_decimal_point' => '.'
102     );
103 } elsif ( $cur_format eq 'FR' ) {
104     $num = new Number::Format(
105         'decimal_fill'      => '2',
106         'decimal_point'     => ',',
107         'int_curr_symbol'   => '',
108         'mon_thousands_sep' => ' ',
109         'thousands_sep'     => ' ',
110         'mon_decimal_point' => ','
111     );
112 }
113
114
115 # ADD OR MODIFY A BUDGET PERIOD - BUILD SCREEN
116 if ( $op eq 'add_form' ) {
117     ## add or modify a budget period (preparation)
118     ## get information about the budget period that must be modified
119
120     if ($budget_period_id) {    # MOD
121                 my $budgetperiod_hash=GetBudgetPeriod($budget_period_id);
122         # get dropboxes
123
124         my $editnum = new Number::Format(
125             'int_curr_symbol'   => '',
126             'thousands_sep'     => '',
127             'mon_thousands_sep' => '',
128             'mon_decimal_point' => '.'
129         );
130
131         $$budgetperiod_hash{budget_period_total}= $editnum->format_price($$budgetperiod_hash{'budget_period_total'});
132         $template->param(
133                         %$budgetperiod_hash
134         );
135     } # IF-MOD
136 }
137
138 elsif ( $op eq 'add_validate' ) {
139 ## add or modify a budget period (confirmation)
140
141         ## update budget period data
142         if ( $budget_period_id ne '' ) {
143                 $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
144                 my $status=ModBudgetPeriod($budget_period_hashref);
145         } 
146         else {    # ELSE ITS AN ADD
147                 my $budget_period_id=AddBudgetPeriod($budget_period_hashref);
148         }
149         $op='else';
150 }
151
152 #--------------------------------------------------
153 elsif ( $op eq 'delete_confirm' ) {
154 ## delete a budget period (preparation)
155     my $dbh = C4::Context->dbh;
156     ## $total = number of records linked to the record that must be deleted
157     my $total = 0;
158     my $data = GetBudgetPeriod( $budget_period_id);
159
160         $$data{'budget_period_total'}=$num->format_price(  $data->{'budget_period_total'});
161     $template->param(
162                 %$data
163     );
164 }
165
166 elsif ( $op eq 'delete_confirmed' ) {
167 ## delete the budget period record
168
169     my $data = GetBudgetPeriod( $budget_period_id);
170     DelBudgetPeriod($budget_period_id);
171         $op='else';
172 }
173
174 # display the form for duplicating
175 elsif ( $op eq 'duplicate_form'){
176     $template->param(
177         'duplicate_form' => '1',
178         'budget_period_id' => $budget_period_id,
179     );
180 }
181
182 # handle the actual duplication
183 elsif ( $op eq 'duplicate_budget' ){
184     die "please specify a budget period id\n" if( !defined $budget_period_id || $budget_period_id eq '' );
185     my $startdate = $input->param('budget_period_startdate');
186     my $enddate = $input->param('budget_period_enddate');
187
188     my $data = GetBudgetPeriod( $budget_period_id);
189
190     $data->{'budget_period_startdate'} = $startdate;
191     $data->{'budget_period_enddate'} = $enddate;
192     delete $data->{'budget_period_id'};
193     my $new_budget_period_id = C4::SQLHelper::InsertInTable('aqbudgetperiods', $data);
194
195     my $tree = GetBudgetHierarchy( $budget_period_id );
196
197     # hash mapping old ids to new
198     my %old_new;
199     # hash mapping old parent ids to list of new children ids
200     # only store a child here if the parents old id isnt in the old_new map
201     # when the parent is found, this map will be used, and then the entry removed and their id placed in old_new
202     my %parent_children;
203
204     for my $entry( @$tree ){
205         die "serious errors, parent period $budget_period_id doesnt match child ", $entry->{'budget_period_id'}, "\n" if( $entry->{'budget_period_id'} != $budget_period_id );
206         my $orphan = 0; # set to 1 if we need to make an entry in parent_children
207         my $old_id = delete $entry->{'budget_id'};
208         my $parent_id = delete $entry->{'budget_parent_id'};
209         $entry->{'budget_period_id'} = $new_budget_period_id;
210
211         if( !defined $parent_id ){
212         } elsif( defined $parent_id && $parent_id eq '' ){
213         } elsif( defined $old_new{$parent_id} ){
214             # set parent id now
215             $entry->{'budget_parent_id'} = $old_new{$parent_id};
216         } else {
217             # make an entry in parent_children
218             $parent_children{$parent_id} = [] unless defined $parent_children{$parent_id};
219             $orphan = 1;
220         }
221
222         # write it to db
223         my $new_id = C4::SQLHelper::InsertInTable('aqbudgets', $entry);
224         $old_new{$old_id} = $new_id;
225         push @{$parent_children{$parent_id}}, $new_id if $orphan;
226
227         # deal with any children
228         if( defined $parent_children{$old_id} ){
229             # tell my children my new id
230             for my $child ( @{$parent_children{$old_id}} ){
231                 C4::SQLHelper::UpdateInTable('aqcudgets', [ 'budget_id' => $child, 'budget_parent_id' => $new_id ]);
232             }
233             delete $parent_children{$old_id};
234         }
235     }
236
237     # display the list of budgets
238     $op = 'else';
239 }
240
241 # DEFAULT - DISPLAY AQPERIODS TABLE
242 # -------------------------------------------------------------------
243 # display the list of budget periods
244
245 my $activepage = $input->param('apage') || 1;
246 my $inactivepage = $input->param('ipage') || 1;
247 # Get active budget periods
248 my $results = GetBudgetPeriods(
249     {budget_period_active => 1},
250     [{budget_period_description => 0}]
251 );
252 my $first = ( $activepage - 1 ) * $activepagesize;
253 my $last = min( $first + $activepagesize - 1, scalar @{$results} - 1, );
254 my @period_active_loop;
255
256 foreach my $result ( @{$results}[ $first .. $last ] ) {
257     my $budgetperiod = $result;
258     $budgetperiod->{'budget_period_total'}     = $num->format_price( $budgetperiod->{'budget_period_total'} );
259     $budgetperiod->{budget_active} = 1;
260     push( @period_active_loop, $budgetperiod );
261 }
262 my $url = "aqbudgetperiods.pl";
263 $url .=  "?ipage=$inactivepage" if($inactivepage != 1);
264 my $active_pagination_bar = pagination_bar ($url, getnbpages( scalar(@$results), $activepagesize), $activepage, "apage");
265
266 # Get inactive budget periods
267 $results = GetBudgetPeriods(
268     {budget_period_active => 0},
269     [{budget_period_enddate => 1}]
270 );
271
272 $first = ( $inactivepage - 1 ) * $inactivepagesize;
273 $last = min( $first + $inactivepagesize - 1, scalar @{$results} - 1, );
274 my @period_inactive_loop;
275 foreach my $result ( @{$results}[ $first .. $last ] ) {
276     my $budgetperiod = $result;
277     $budgetperiod->{'budget_period_total'} = $num->format_price( $budgetperiod->{'budget_period_total'} );
278     $budgetperiod->{budget_active} = 1;
279     push( @period_inactive_loop, $budgetperiod );
280 }
281 $url = "aqbudgetperiods.pl?tab=2";
282 $url .= "&apage=$activepage" if($activepage != 1);
283 my $inactive_pagination_bar = pagination_bar ($url, getnbpages( scalar(@$results), $inactivepagesize), $inactivepage, "ipage");
284
285 my $tab = $input->param('tab') ? $input->param('tab') - 1 : 0;
286 $template->param(
287     period_active_loop      => \@period_active_loop,
288     period_inactive_loop    => \@period_inactive_loop,
289     active_pagination_bar   => $active_pagination_bar,
290     inactive_pagination_bar => $inactive_pagination_bar,
291     tab                     => $tab,
292 );
293
294 $template->param($op=>1);
295 output_html_with_http_headers $input, $cookie, $template->output;