Lines 180-190
sub GetNearbyItems {
Link Here
|
180 |
my @prev_items = reverse GetShelfInfo($sth_prev_items, $marcflavour); |
180 |
my @prev_items = reverse GetShelfInfo($sth_prev_items, $marcflavour); |
181 |
my @next_items = GetShelfInfo($sth_next_items, $marcflavour); |
181 |
my @next_items = GetShelfInfo($sth_next_items, $marcflavour); |
182 |
|
182 |
|
183 |
my $next_itemnumber = $next_items[-1]->{itemnumber} if @next_items; |
183 |
my ( |
184 |
my $next_biblionumber = $next_items[-1]->{biblionumber} if @next_items; |
184 |
$next_itemnumber, $next_biblionumber, |
|
|
185 |
$prev_itemnumber, $prev_biblionumber |
186 |
); |
187 |
|
188 |
$next_itemnumber = $next_items[-1]->{itemnumber} if @next_items; |
189 |
$next_biblionumber = $next_items[-1]->{biblionumber} if @next_items; |
185 |
|
190 |
|
186 |
my $prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items; |
191 |
$prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items; |
187 |
my $prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items; |
192 |
$prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items; |
188 |
|
193 |
|
189 |
my %result = ( |
194 |
my %result = ( |
190 |
next => \@next_items, |
195 |
next => \@next_items, |
191 |
- |
|
|