Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 8117 follow-up remove perl warning

Browse source 
first & last were already defined, removing my
This commit is contained in:
Paul Poulain 2012-09-19 16:29:46 +02:00
parent f4dadc955c
commit d3fcc8b973
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
admin/aqbudgetperiods.pl
View file

@ -270,8 +270,9 @@ $results = GetBudgetPeriods(
{budget_period_active => 0},
[{budget_period_enddate => 1}]
);
my $first = ( $inactivepage - 1 ) * $inactivepagesize;
my $last = min( $first + $inactivepagesize - 1, scalar @{$results} - 1, );
$first = ( $inactivepage - 1 ) * $inactivepagesize;
$last = min( $first + $inactivepagesize - 1, scalar @{$results} - 1, );
my @period_inactive_loop;
foreach my $result ( @{$results}[ $first .. $last ] ) {
my $budgetperiod = $result;