gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
tipaul 2007-03-09 14:27:05 +00:00
parent 5ef6eddd6a
commit dde8417990
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
acqui/acqui-home.pl
View File

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