3 #script to administer the aqbudget table
4 #written 20/02/2002 by paul.poulain@free.fr
5 # This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
8 # this script use an $op to know what to do.
9 # if $op is empty or none of the above values,
10 # - the default screen is build (with all records, or filtered datas).
11 # - the user can clic on add, modify or delete record.
13 # - if primkey exists, this is a modification,so we read the $primkey record
14 # - builds the add/modify form
16 # - the user has just send datas, so we create/modify the record
18 # - we show the record having primkey=$primkey and ask for deletion validation form
19 # if $op=delete_confirm
20 # - we delete the record having primkey=$primkey
23 # Copyright 2000-2002 Katipo Communications
25 # This file is part of Koha.
27 # Koha is free software; you can redistribute it and/or modify it
28 # under the terms of the GNU General Public License as published by
29 # the Free Software Foundation; either version 3 of the License, or
30 # (at your option) any later version.
32 # Koha is distributed in the hope that it will be useful, but
33 # WITHOUT ANY WARRANTY; without even the implied warranty of
34 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
35 # GNU General Public License for more details.
37 # You should have received a copy of the GNU General Public License
38 # along with Koha; if not, see <http://www.gnu.org/licenses>.
46 use C4::Budgets qw/GetCurrency GetCurrencies/;
48 our $input = CGI->new;
49 my $searchfield = $input->param('searchfield') || $input->param('description') || q{};
50 our $offset = $input->param('offset') || 0;
51 my $op = $input->param('op') || q{};
52 my $script_name = '/cgi-bin/koha/admin/currency.pl';
55 our ($template, $loggedinuser, $cookie) = get_template_and_user({
56 template_name => 'admin/currency.tt',
59 flagsrequired => {parameters => 'parameters_remaining_permissions'},
63 $searchfield=~ s/\,//g;
66 $template->param(searchfield => $searchfield,
67 script_name => $script_name);
69 our $dbh = C4::Context->dbh;
71 if ( $op eq 'add_form' ) {
72 add_form($searchfield);
73 } elsif ( $op eq 'save' ) {
75 print $input->redirect('/cgi-bin/koha/admin/currency.pl');
76 } elsif ( $op eq 'delete_confirm' ) {
77 delete_confirm($searchfield);
78 } elsif ( $op eq 'delete_confirmed' ) {
79 delete_currency($searchfield);
81 default_path($searchfield);
84 output_html_with_http_headers $input, $cookie, $template->output;
87 my $searchfield = shift;
88 $template->param( else => 1 );
90 my @currencies = GetCurrencies();
92 @currencies = grep { $_->{currency} =~ m/^$searchfield/o } @currencies;
94 my $end_of_page = $offset + $pagesize;
95 if ( $end_of_page > @currencies ) {
96 $end_of_page = @currencies;
100 nextpage => $end_of_page
104 my @display_curr = @currencies[ $offset .. $end_of_page ];
105 my $activecurrency = GetCurrency();
108 loop => \@display_curr,
109 activecurrency => defined $activecurrency,
115 prevpage => $offset - $pagesize
121 sub delete_currency {
124 # TODO This should be a method of Currency
125 # also what about any orders using this currency
126 $template->param( delete_confirmed => 1 );
127 $dbh->do( 'delete from currency where currency=?', {}, $curr );
134 $template->param( delete_confirm => 1 );
135 my $total_row = $dbh->selectrow_hashref(
136 'select count(*) as total from aqbooksellers where currency=?',
139 my $curr_ref = $dbh->selectrow_hashref(
140 'select currency,rate from currency where currency=?',
143 if ( $total_row->{total} ) {
144 $template->param( totalgtzero => 1 );
148 rate => $curr_ref->{rate},
149 total => $total_row->{total}
158 $template->param( add_form => 1 );
160 #---- if primkey exists, it's a modify action, so read values to modify...
164 $dbh->selectrow_hashref( 'select * from currency where currency=?',
166 for ( keys %{$curr_rec} ) {
167 if($_ eq "timestamp"){ $date = $curr_rec->{$_}; }
168 $template->param( $_ => $curr_rec->{$_} );
176 $template->param( add_validate => 1 );
179 rate => $input->param('rate'),
180 symbol => $input->param('symbol') || q{},
181 isocode => $input->param('isocode') || q{},
182 active => $input->param('active') || 0,
183 currency => $input->param('currency'),
186 if ( $rec->{active} == 1 ) {
187 $dbh->do('UPDATE currency SET active = 0');
190 my ($row_count) = $dbh->selectrow_array(
191 'select count(*) as count from currency where currency = ?',
192 {}, $input->param('currency') );
195 q|UPDATE currency SET rate = ?, symbol = ?, isocode = ?, active = ? WHERE currency = ? |,
205 q|INSERT INTO currency (currency, rate, symbol, isocode, active) VALUES (?,?,?,?,?) |,