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

Bug 6679 - [SIGNED-OFF] fix 4 perlcritic violations in C4/ShelfBrowser.pm 

- Variable declared in conditional statement at line 183, column 5.  Declare  variables outside of the condition.  (Severity: 5)

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Mason James 2012-06-27 02:10:11 +12:00 committed by Paul Poulain
parent 33ae9c9185
commit 2633a19b92
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C4/ShelfBrowser.pm
View File

@ -180,11 +180,16 @@ sub GetNearbyItems {
my @prev_items = reverse GetShelfInfo($sth_prev_items, $marcflavour);
my @next_items = GetShelfInfo($sth_next_items, $marcflavour);
my $next_itemnumber = $next_items[-1]->{itemnumber} if @next_items;
my $next_biblionumber = $next_items[-1]->{biblionumber} if @next_items;
my (
$next_itemnumber, $next_biblionumber,
$prev_itemnumber, $prev_biblionumber
);
my $prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items;
my $prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items;
$next_itemnumber = $next_items[-1]->{itemnumber} if @next_items;
$next_biblionumber = $next_items[-1]->{biblionumber} if @next_items;
$prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items;
$prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items;
my %result = (
next => \@next_items,