projects
/
koha_ffzg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f4dadc9
)
Bug 8117 follow-up remove perl warning
author
Paul Poulain
<paul.poulain@biblibre.com>
Wed, 19 Sep 2012 14:29:46 +0000
(16:29 +0200)
committer
Paul Poulain
<paul.poulain@biblibre.com>
Wed, 19 Sep 2012 14:29:46 +0000
(16:29 +0200)
first & last were already defined, removing my
admin/aqbudgetperiods.pl
patch
|
blob
|
history
diff --git
a/admin/aqbudgetperiods.pl
b/admin/aqbudgetperiods.pl
index
9e2f394
..
5f34dc2
100755
(executable)
--- a/
admin/aqbudgetperiods.pl
+++ b/
admin/aqbudgetperiods.pl
@@
-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;