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( symbol => $cur->{symbol},
86 currency => $cur->{currency}
88 my $cur_format = C4::Context->preference("CurrencyFormat");
91 if ( $cur_format eq 'US' ) {
92 $num = new Number::Format(
93 'int_curr_symbol' => '',
94 'mon_thousands_sep' => ',',
95 'mon_decimal_point' => '.'
97 } elsif ( $cur_format eq 'FR' ) {
98 $num = new Number::Format(
99 'decimal_fill' => '2',
100 'decimal_point' => ',',
101 'int_curr_symbol' => '',
102 'mon_thousands_sep' => ' ',
103 'thousands_sep' => ' ',
104 'mon_decimal_point' => ','
109 # ADD OR MODIFY A BUDGET PERIOD - BUILD SCREEN
110 if ( $op eq 'add_form' ) {
111 ## add or modify a budget period (preparation)
112 ## get information about the budget period that must be modified
115 if ($budget_period_id) { # MOD
116 my $budgetperiod_hash=GetBudgetPeriod($budget_period_id);
118 FormatData($budgetperiod_hash);
120 my $editnum = new Number::Format(
121 'int_curr_symbol' => '',
122 'thousands_sep' => '',
123 'mon_decimal_point' => '.'
126 $$budgetperiod_hash{budget_period_total}= $editnum->format_price($$budgetperiod_hash{'budget_period_total'});
131 $template->param( DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),);
134 elsif ( $op eq 'add_validate' ) {
135 ## add or modify a budget period (confirmation)
137 ## update budget period data
138 if ( $budget_period_id ne '' ) {
139 $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
140 my $status=ModBudgetPeriod($budget_period_hashref);
142 else { # ELSE ITS AN ADD
143 my $budget_period_id=AddBudgetPeriod($budget_period_hashref);
148 #--------------------------------------------------
149 elsif ( $op eq 'delete_confirm' ) {
150 ## delete a budget period (preparation)
151 my $dbh = C4::Context->dbh;
152 ## $total = number of records linked to the record that must be deleted
154 my $data = GetBudgetPeriod( $budget_period_id);
157 $$data{'budget_period_total'}=$num->format_price( $data->{'budget_period_total'});
163 elsif ( $op eq 'delete_confirmed' ) {
164 ## delete the budget period record
166 my $data = GetBudgetPeriod( $budget_period_id);
167 DelBudgetPeriod($budget_period_id);
171 # DEFAULT - DISPLAY AQPERIODS TABLE
172 # -------------------------------------------------------------------
173 # display the list of budget periods
174 my $results = GetBudgetPeriods();
175 $template->param( period_button_only => 1 ) unless (@$results) ;
176 my $page = $input->param('page') || 1;
177 my $first = ( $page - 1 ) * $pagesize;
178 # if we are on the last page, the number of the last word to display
179 # must not exceed the length of the results array
180 my $last = min( $first + $pagesize - 1, scalar @{$results} - 1, );
183 foreach my $result ( @{$results}[ $first .. $last ] ) {
184 my $budgetperiod = $result;
185 FormatData($budgetperiod);
186 $budgetperiod->{'budget_period_total'} = $num->format_price( $budgetperiod->{'budget_period_total'} );
187 $budgetperiod->{budget_active} = 1;
188 push( @period_loop, $budgetperiod );
190 my $budget_period_dropbox = GetBudgetPeriodsDropbox();
193 budget_period_dropbox => $budget_period_dropbox,
194 period_loop => \@period_loop,
195 pagination_bar => pagination_bar("aqbudgetperiods.pl",getnbpages(scalar(@$results),$pagesize),$page),
198 $template->param($op=>1);
199 output_html_with_http_headers $input, $cookie, $template->output;