From 8dfb69dc3f21f2a012f39c2dd1968aafb6e15582 Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Thu, 27 Jul 2006 14:02:47 +0000
Subject: [PATCH] Add a call to Bookfund & 1 sub renamed.

---
 currency.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/currency.pl b/currency.pl
index f0647c201f..1789c5195b 100755
--- 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');
-- 
2.39.5