View | Details | Raw Unified | Return to bug 15083
Collapse All | Expand All

(-)a/C4/Budgets.pm (-20 lines)
Lines 61-67 BEGIN { Link Here
61
61
62
        &GetCurrency
62
        &GetCurrency
63
        &GetCurrencies
63
        &GetCurrencies
64
        &ModCurrencies
65
        &ConvertCurrency
64
        &ConvertCurrency
66
        
65
        
67
		&GetBudgetsPlanCell
66
		&GetBudgetsPlanCell
Lines 956-980 sub GetCurrency { Link Here
956
    return $r;
955
    return $r;
957
}
956
}
958
957
959
=head2 ModCurrencies
960
961
&ModCurrencies($currency, $newrate);
962
963
Sets the exchange rate for C<$currency> to be C<$newrate>.
964
965
=cut
966
967
sub ModCurrencies {
968
    my ( $currency, $rate ) = @_;
969
    my $dbh   = C4::Context->dbh;
970
    my $query = qq|
971
        UPDATE currency
972
        SET    rate=?
973
        WHERE  currency=? |;
974
    my $sth = $dbh->prepare($query);
975
    $sth->execute( $rate, $currency );
976
}
977
978
# -------------------------------------------------------------------
958
# -------------------------------------------------------------------
979
959
980
=head2 ConvertCurrency
960
=head2 ConvertCurrency
(-)a/acqui/currency.pl (-43 lines)
Lines 1-42 Link Here
1
#!/usr/bin/perl
2
3
#script to display and update currency rates
4
5
# Copyright 2000-2002 Katipo Communications
6
# Copyright 2008-2009 BibLibre SARL
7
#
8
# This file is part of Koha.
9
#
10
# Koha is free software; you can redistribute it and/or modify it
11
# under the terms of the GNU General Public License as published by
12
# the Free Software Foundation; either version 3 of the License, or
13
# (at your option) any later version.
14
#
15
# Koha is distributed in the hope that it will be useful, but
16
# WITHOUT ANY WARRANTY; without even the implied warranty of
17
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18
# GNU General Public License for more details.
19
#
20
# You should have received a copy of the GNU General Public License
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
23
use strict;
24
use warnings;
25
use CGI qw ( -utf8 );
26
use C4::Acquisition;
27
use C4::Biblio;
28
use C4::Budgets;
29
30
# FIXME: CHECK AUTH
31
# FIXME: This should be part of another script, not a throwaway standalone.
32
# FIXME: params should have better checks before passed to ModCurrencies
33
# FIXME: need error handling if ModCurrencies FAILS.
34
35
my $input = new CGI;
36
37
foreach my $param ($input->param) {
38
    if ($param ne 'type' && $param !~ /submit/) {
39
        ModCurrencies($param, $input->param($param));
40
    }
41
}
42
print $input->redirect('/cgi-bin/koha/acqui/acqui-home.pl');
43
- 

Return to bug 15083