From 74302d7570e5bf6301a3eac07b3f1006d645e9cc Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 23:27:13 +0200 Subject: [PATCH] Serials, use Budget instead of Bookfund --- serials/acqui-search.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl index 408ac83740..5eeaead986 100755 --- a/serials/acqui-search.pl +++ b/serials/acqui-search.pl @@ -23,7 +23,6 @@ use warnings; use CGI; use C4::Auth; use C4::Output; -use C4::Bookfund; my $query = new CGI; @@ -45,7 +44,7 @@ my $sthtemp = "Select flags, branchcode from borrowers where borrowernumber = ?"); $sthtemp->execute($loggedinuser); my ( $flags, $homebranch ) = $sthtemp->fetchrow; -my @results = GetBookFunds($homebranch); +my @results = GetBookFunds(1, $homebranch); my $count = scalar(@results); my $classlist = ''; -- 2.39.5