diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl index c8fb8cce9f..0f0d76c2ad 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -45,7 +45,9 @@ use CGI; use C4::Auth; use C4::Output; use C4::Interface::CGI::Output; + use C4::Suggestions; + use C4::Acquisition; use C4::Bookfund; use C4::Members; @@ -63,10 +65,11 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( ); # budget -my $me= C4::Context->userenv; -my $homebranch=$me->{'branch'} ; +my ( $flags, $homebranch ) = GetFlagsAndBranchFromBorrower($loggedinuser); + my @results = GetBookFunds($homebranch); my $count = scalar @results; + my $classlist = ''; my $total = 0; my $totspent = 0; @@ -92,7 +95,7 @@ for (my $i=0; $i<$count; $i++){ # currencies my @rates = GetCurrencies(); -my $count = scalar @rates; +$count = scalar @rates; my @loop_currency = (); for ( my $i = 0 ; $i < $count ; $i++ ) {