[Koha-cvs] koha/serials acqui-search.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/27 13:57:58

Modified files:
        serials        : acqui-search.pl 

Log message:
        Add call to Bookfund.pm

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search.pl?cvsroot=koha&r1=1.3&r2=1.4

Patches:
Index: acqui-search.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- acqui-search.pl     21 Jul 2006 09:36:42 -0000      1.3
+++ acqui-search.pl     27 Jul 2006 13:57:57 -0000      1.4
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acqui-search.pl,v 1.3 2006/07/21 09:36:42 toins Exp $
+# $Id: acqui-search.pl,v 1.4 2006/07/27 13:57:57 toins Exp $
 
 use strict;
 use CGI;
@@ -26,8 +26,9 @@
 use C4::Interface::CGI::Output;
 use C4::Database;
 use HTML::Template;
-use C4::Acquisition;
+use C4::Bookfund;
 my $query = new CGI;
+
 my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => "serials/acqui-search.tmpl",
                             query => $query,
@@ -70,8 +71,8 @@
        $totavail+=$avail;
 }
 #currencies
-my $rates=GetCurrencies();
-my $count = scalar @$rates;
+my @rates=GetCurrencies();
+my $count = scalar @rates;
 
 my @loop_currency = ();
 for (my $i=0;$i<$count;$i++){