3 # Copyright 2008 BibLibre, BibLibre, Paul POULAIN
6 # This file is part of Koha.
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
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.
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.
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)
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.
32 - if primkey exists, this is a modification,so we read the $primkey record
33 - builds the add/modify form
35 - the user has just send datas, so we create/modify the record
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
45 #use warnings; FIXME - Bug 2505
46 use Number::Format qw(format_price);
48 use List::Util qw/min/;
49 use C4::Dates qw/format_date format_date_in_iso/;
58 my $dbh = C4::Context->dbh;
62 my $searchfield = $input->param('searchfield');
63 my $budget_period_id = $input->param('budget_period_id');
64 my $op = $input->param('op')||"else";
66 my $budget_period_hashref= $input->Vars;
67 #my $sort1_authcat = $input->param('sort1_authcat');
68 #my $sort2_authcat = $input->param('sort2_authcat');
71 $searchfield =~ s/\,//g;
73 my ($template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user(
74 { template_name => "admin/aqbudgetperiods.tmpl",
78 flagsrequired => { acquisition => 'period_manage' },
84 my $cur = GetCurrency();
85 $template->param( cur => $cur->{symbol} );
86 my $cur_format = C4::Context->preference("CurrencyFormat");
89 if ( $cur_format eq 'US' ) {
90 $num = new Number::Format(
91 'int_curr_symbol' => '',
92 'mon_thousands_sep' => ',',
93 'mon_decimal_point' => '.'
95 } elsif ( $cur_format eq 'FR' ) {
96 $num = new Number::Format(
97 'decimal_fill' => '2',
98 'decimal_point' => ',',
99 'int_curr_symbol' => '',
100 'mon_thousands_sep' => ' ',
101 'thousands_sep' => ' ',
102 'mon_decimal_point' => ','
107 # ADD OR MODIFY A BUDGET PERIOD - BUILD SCREEN
108 if ( $op eq 'add_form' ) {
109 ## add or modify a budget period (preparation)
110 ## get information about the budget period that must be modified
113 if ($budget_period_id) { # MOD
114 my $budgetperiod_hash=GetBudgetPeriod($budget_period_id);
116 FormatData($budgetperiod_hash);
118 my $editnum = new Number::Format(
119 'int_curr_symbol' => '',
120 'thousands_sep' => '',
121 'mon_decimal_point' => '.'
124 $$budgetperiod_hash{budget_period_total}= $editnum->format_price($$budgetperiod_hash{'budget_period_total'});
129 $template->param( DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),);
132 elsif ( $op eq 'add_validate' ) {
133 ## add or modify a budget period (confirmation)
135 ## update budget period data
136 if ( $budget_period_id ne '' ) {
137 $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
138 my $status=ModBudgetPeriod($budget_period_hashref);
140 else { # ELSE ITS AN ADD
141 my $budget_period_id=AddBudgetPeriod($budget_period_hashref);
146 #--------------------------------------------------
147 elsif ( $op eq 'delete_confirm' ) {
148 ## delete a budget period (preparation)
149 my $dbh = C4::Context->dbh;
150 ## $total = number of records linked to the record that must be deleted
152 my $data = GetBudgetPeriod( $budget_period_id);
155 $$data{'budget_period_total'}=$num->format_price( $data->{'budget_period_total'});
161 elsif ( $op eq 'delete_confirmed' ) {
162 ## delete the budget period record
164 my $data = GetBudgetPeriod( $budget_period_id);
165 DelBudgetPeriod($budget_period_id);
169 # DEFAULT - DISPLAY AQPERIODS TABLE
170 # -------------------------------------------------------------------
171 # display the list of budget periods
172 my $results = GetBudgetPeriods();
173 $template->param( period_button_only => 1 ) unless (@$results) ;
174 my $page = $input->param('page') || 1;
175 my $first = ( $page - 1 ) * $pagesize;
176 # if we are on the last page, the number of the last word to display
177 # must not exceed the length of the results array
178 my $last = min( $first + $pagesize - 1, scalar @{$results} - 1, );
181 foreach my $result ( @{$results}[ $first .. $last ] ) {
182 my $budgetperiod = $result;
183 FormatData($budgetperiod);
184 $budgetperiod->{'budget_period_total'} = $num->format_price( $budgetperiod->{'budget_period_total'} );
185 $budgetperiod->{budget_active} = 1;
186 push( @period_loop, $budgetperiod );
188 my $budget_period_dropbox = GetBudgetPeriodsDropbox();
191 budget_period_dropbox => $budget_period_dropbox,
192 period_loop => \@period_loop,
193 pagination_bar => pagination_bar("aqbudgetperiods.pl",getnbpages(scalar(@$results),$pagesize),$page),
196 $template->param($op=>1);
197 output_html_with_http_headers $input, $cookie, $template->output;