|
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 |
- |
|
|