admin/currency.pl

   1 #!/usr/bin/perl
   2
   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)
   6
   7 # ALGO :
   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.
  12 # if $op=add_form
  13 #       - if primkey exists, this is a modification,so we read the $primkey record
  14 #       - builds the add/modify form
  15 # if $op=add_validate
  16 #       - the user has just send datas, so we create/modify the record
  17 # if $op=delete_form
  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
  21
  22
  23 # Copyright 2000-2002 Katipo Communications
  24 #
  25 # This file is part of Koha.
  26 #
  27 # Koha is free software; you can redistribute it and/or modify it under the
  28 # terms of the GNU General Public License as published by the Free Software
  29 # Foundation; either version 2 of the License, or (at your option) any later
  30 # version.
  31 #
  32 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  33 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  34 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  35 #
  36 # You should have received a copy of the GNU General Public License along
  37 # with Koha; if not, write to the Free Software Foundation, Inc.,
  38 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  39
  40 use strict;
  41 use warnings;
  42 use CGI;
  43 use C4::Context;
  44 use C4::Auth;
  45 use C4::Dates qw(format_date);
  46 use C4::Output;
  47 use C4::Budgets qw/GetCurrency GetCurrencies/;
  48
  49 our $input = CGI->new;
  50 my $searchfield = $input->param('searchfield') || $input->param('description') || q{};
  51 our $offset      = $input->param('offset') || 0;
  52 my $op          = $input->param('op')     || q{};
  53 my $script_name = '/cgi-bin/koha/admin/currency.pl';
  54 our $pagesize = 20;
  55
  56 our ($template, $loggedinuser, $cookie) = get_template_and_user({
  57     template_name => 'admin/currency.tmpl',
  58     query => $input,
  59     type => 'intranet',
  60     flagsrequired => {parameters => 'parameters_remaining_permissions'},
  61     authnotrequired => 0,
  62 });
  63
  64 $searchfield=~ s/\,//g;
  65
  66
  67 $template->param(searchfield => $searchfield,
  68         script_name => $script_name);
  69
  70 our $dbh = C4::Context->dbh;
  71
  72 if ( $op eq 'add_form' ) {
  73     add_form($searchfield);
  74 } elsif ( $op eq 'save' ) {
  75     add_validate();
  76     print $input->redirect('/cgi-bin/koha/admin/currency.pl');
  77 } elsif ( $op eq 'delete_confirm' ) {
  78     delete_confirm($searchfield);
  79 } elsif ( $op eq 'delete_confirmed' ) {
  80     delete_currency($searchfield);
  81 } else {
  82     default_path($searchfield);
  83 }
  84
  85 output_html_with_http_headers $input, $cookie, $template->output;
  86
  87 sub default_path {
  88     my $searchfield = shift;
  89     $template->param( else => 1 );
  90
  91     my @currencies = GetCurrencies();
  92     if ($searchfield) {
  93         @currencies = grep { $_->{currency} =~ m/^$searchfield/o } @currencies;
  94     }
  95     my $end_of_page = $offset + $pagesize;
  96     if ( $end_of_page > @currencies ) {
  97         $end_of_page = @currencies;
  98     } else {
  99         $template->param(
 100             ltcount  => 1,
 101             nextpage => $end_of_page
 102         );
 103     }
 104     $end_of_page--;
 105     my @display_curr = @currencies[ $offset .. $end_of_page ];
 106     for my $c (@display_curr) {
 107         $c->{timestamp} = format_date( $c->{timestamp} );
 108     }
 109     my $activecurrency = GetCurrency();
 110
 111     $template->param(
 112         loop           => \@display_curr,
 113         activecurrency => defined $activecurrency,
 114     );
 115
 116     if ( $offset > 0 ) {
 117         $template->param(
 118             offsetgtzero => 1,
 119             prevpage     => $offset - $pagesize
 120         );
 121     }
 122     return;
 123 }
 124
 125 sub delete_currency {
 126     my $curr = shift;
 127
 128     # TODO This should be a method of Currency
 129     # also what about any orders using this currency
 130     $template->param( delete_confirmed => 1 );
 131     $dbh->do( 'delete from currency where currency=?', {}, $curr );
 132     return;
 133 }
 134
 135 sub delete_confirm {
 136     my $curr = shift;
 137
 138     $template->param( delete_confirm => 1 );
 139     my $total_row = $dbh->selectrow_hashref(
 140         'select count(*) as total from aqbooksellers where currency=?',
 141         {}, $curr );
 142
 143     my $curr_ref = $dbh->selectrow_hashref(
 144         'select currency,rate from currency where currency=?',
 145         {}, $curr );
 146
 147     if ( $total_row->{total} ) {
 148         $template->param( totalgtzero => 1 );
 149     }
 150
 151     $template->param(
 152         rate  => $curr_ref->{rate},
 153         total => $total_row->{total}
 154     );
 155
 156     return;
 157 }
 158
 159 sub add_form {
 160     my $curr = shift;
 161
 162     $template->param( add_form => 1 );
 163
 164     #---- if primkey exists, it's a modify action, so read values to modify...
 165     my $date;
 166     if ($curr) {
 167         my $curr_rec =
 168           $dbh->selectrow_hashref( 'select * from currency where currency=?',
 169             {}, $curr );
 170         for ( keys %{$curr_rec} ) {
 171             if($_ eq "timestamp"){ $date = $curr_rec->{$_}; }
 172             $template->param( $_ => $curr_rec->{$_} );
 173         }
 174     }
 175     if ($date) {
 176         $template->param( 'timestamp' => format_date($date) );
 177     }
 178
 179     return;
 180 }
 181
 182 sub add_validate {
 183     $template->param( add_validate => 1 );
 184
 185     my $rec = {
 186         rate     => $input->param('rate'),
 187         symbol   => $input->param('symbol') || q{},
 188         isocode  => $input->param('isocode') || q{},
 189         active   => $input->param('active') || 0,
 190         currency => $input->param('currency'),
 191     };
 192
 193     if ( $rec->{active} == 1 ) {
 194         $dbh->do('UPDATE currency SET active = 0');
 195     }
 196
 197     my ($row_count) = $dbh->selectrow_array(
 198         'select count(*) as count from currency where currency = ?',
 199         {}, $input->param('currency') );
 200     if ($row_count) {
 201         $dbh->do(
 202 q|UPDATE currency SET rate = ?, symbol = ?, isocode = ?, active = ? WHERE currency = ? |,
 203             {},
 204             $rec->{rate},
 205             $rec->{symbol},
 206             $rec->{isocode},
 207             $rec->{active},
 208             $rec->{currency}
 209         );
 210     } else {
 211         $dbh->do(
 212 q|INSERT INTO currency (currency, rate, symbol, isocode, active) VALUES (?,?,?,?,?) |,
 213             {},
 214             $rec->{currency},
 215             $rec->{rate},
 216             $rec->{symbol},
 217             $rec->{isocode},
 218             $rec->{active}
 219         );
 220
 221     }
 222     return;
 223 }