From dde84179904125fcb1d8f70bcb0eecbdf71b784e Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 9 Mar 2007 14:27:05 +0000
Subject: [PATCH] 1st commit for rel_3_0 => HEAD branch move (to test)

---
 acqui/acqui-home.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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++ ) {
-- 
2.20.1