1st commit for rel_3_0 => HEAD branch move (to test)

diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl
index c8fb8cc..0f0d76c 100755 (executable)
--- 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++ ) {