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 with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA 02111-1307 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 Number
::Format
qw(format_price);
47 use List
::Util qw
/min/;
48 use C4
::Dates qw
/format_date format_date_in_iso/;
57 my $dbh = C4
::Context
->dbh;
61 my $searchfield = $input->param('searchfield');
62 my $budget_period_id = $input->param('budget_period_id');
63 my $op = $input->param('op')||"else";
65 my $budget_period_hashref= $input->Vars;
66 #my $sort1_authcat = $input->param('sort1_authcat');
67 #my $sort2_authcat = $input->param('sort2_authcat');
70 $searchfield =~ s/\,//g;
72 my ($template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user
(
73 { template_name
=> "admin/aqbudgetperiods.tmpl",
77 flagsrequired
=> { acquisition
=> 'period_manage' },
83 my $cur = GetCurrency
();
84 $template->param( cur
=> $cur->{symbol
} );
85 my $cur_format = C4
::Context
->preference("CurrencyFormat");
88 if ( $cur_format eq 'US' ) {
89 $num = new Number
::Format
(
90 'int_curr_symbol' => '',
91 'mon_thousands_sep' => ',',
92 'mon_decimal_point' => '.'
94 } elsif ( $cur_format eq 'FR' ) {
95 $num = new Number
::Format
(
96 'decimal_fill' => '2',
97 'decimal_point' => ',',
98 'int_curr_symbol' => '',
99 'mon_thousands_sep' => ' ',
100 'thousands_sep' => ' ',
101 'mon_decimal_point' => ','
106 # ADD OR MODIFY A BUDGET PERIOD - BUILD SCREEN
107 if ( $op eq 'add_form' ) {
108 ## add or modify a budget period (preparation)
109 ## get information about the budget period that must be modified
112 if ($budget_period_id) { # MOD
113 my $budgetperiod_hash=GetBudgetPeriod
($budget_period_id);
115 FormatData
($budgetperiod_hash);
117 my $editnum = new Number
::Format
(
118 'int_curr_symbol' => '',
119 'thousands_sep' => '',
120 'mon_decimal_point' => '.'
123 $$budgetperiod_hash{budget_period_total
}= $editnum->format_price($$budgetperiod_hash{'budget_period_total'});
128 $template->param( DHTMLcalendar_dateformat
=> C4
::Dates
->DHTMLcalendar(),);
131 elsif ( $op eq 'add_validate' ) {
132 ## add or modify a budget period (confirmation)
134 ## update budget period data
135 if ( $budget_period_id ne '' ) {
136 $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
137 my $status=ModBudgetPeriod
($budget_period_hashref);
139 else { # ELSE ITS AN ADD
140 my $budget_period_id=AddBudgetPeriod
($budget_period_hashref);
145 #--------------------------------------------------
146 elsif ( $op eq 'delete_confirm' ) {
147 ## delete a budget period (preparation)
148 my $dbh = C4
::Context
->dbh;
149 ## $total = number of records linked to the record that must be deleted
151 my $data = GetBudgetPeriod
( $budget_period_id);
154 $$data{'budget_period_total'}=$num->format_price( $data->{'budget_period_total'});
160 elsif ( $op eq 'delete_confirmed' ) {
161 ## delete the budget period record
163 my $data = GetBudgetPeriod
( $budget_period_id);
164 DelBudgetPeriod
($budget_period_id);
168 # DEFAULT - DISPLAY AQPERIODS TABLE
169 # -------------------------------------------------------------------
170 # display the list of budget periods
171 my $results = GetBudgetPeriods
();
172 $template->param( period_button_only
=> 1 ) unless (@
$results) ;
173 my $page = $input->param('page') || 1;
174 my $first = ( $page - 1 ) * $pagesize;
175 # if we are on the last page, the number of the last word to display
176 # must not exceed the length of the results array
177 my $last = min
( $first + $pagesize - 1, scalar @
{$results} - 1, );
180 foreach my $result ( @
{$results}[ $first .. $last ] ) {
181 my $budgetperiod = $result;
182 FormatData
($budgetperiod);
183 $budgetperiod->{'budget_period_total'} = $num->format_price( $budgetperiod->{'budget_period_total'} );
184 $budgetperiod->{budget_active
} = 1;
185 push( @period_loop, $budgetperiod );
187 my $budget_period_dropbox = GetBudgetPeriodsDropbox
();
190 budget_period_dropbox
=> $budget_period_dropbox,
191 period_loop
=> \
@period_loop,
192 pagination_bar
=> pagination_bar
("aqbudgetperiods.pl",getnbpages
(scalar(@
$results),$pagesize),$page),
195 $template->param($op=>1);
196 output_html_with_http_headers
$input, $cookie, $template->output;