Add a call to Bookfund & 1 sub renamed.

diff --git a/currency.pl b/currency.pl
index f0647c2..1789c51 100755 (executable)
--- a/currency.pl
+++ b/currency.pl
@@ -27,6 +27,7 @@
 use CGI;
 use C4::Acquisition;
 use C4::Biblio;
+use C4::Bookfund;
 
 my $input=new CGI;
 
@@ -35,7 +36,7 @@ foreach my $param (@params){
        if ($param ne 'type' && $param !~ /submit/){
                my $data=$input->param($param);
                warn "$data / $param";
-               updatecurrencies($param,$data);
+               ModCurrencies($param,$data);
 }
 }
 print $input->redirect('/cgi-bin/koha/acqui/acqui-home.pl');