[Koha-cvs] koha/acqui acqui-home.pl

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     paul poulain <tipaul>   07/03/09 14:27:05

Modified files:
        acqui          : acqui-home.pl 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/acqui-home.pl?cvsroot=koha&r1=1.16&r2=1.17

Patches:
Index: acqui-home.pl
===================================================================
RCS file: /sources/koha/koha/acqui/acqui-home.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- acqui-home.pl       20 Sep 2006 21:44:36 -0000      1.16
+++ acqui-home.pl       9 Mar 2007 14:27:05 -0000       1.17
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acqui-home.pl,v 1.16 2006/09/20 21:44:36 tgarip1957 Exp $
+# $Id: acqui-home.pl,v 1.17 2007/03/09 14:27:05 tipaul Exp $
 
 
 =head1 NAME
@@ -45,7 +45,9 @@
 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 @@
 );
 
 # 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 @@
 
 # currencies
 my @rates = GetCurrencies();
-my $count = scalar @rates;
+$count = scalar @rates;
 
 my @loop_currency = ();
 for ( my $i = 0 ; $i < $count ; $i++ ) {