use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
BEGIN {
- $VERSION = 3.02;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
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
+ );
+
+ $next_itemnumber = $next_items[-1]->{itemnumber} if @next_items;
+ $next_biblionumber = $next_items[-1]->{biblionumber} if @next_items;
- my $prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items;
- my $prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items;
+ $prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items;
+ $prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items;
my %result = (
next => \@next_items,