|
Lines 172-178
sub GetNearbyItems {
Link Here
|
| 172 |
|
172 |
|
| 173 |
my $sth_prev_items = $dbh->prepare($prev_query . $query_cond . ' ORDER BY cn_sort DESC, itemnumber LIMIT ?'); |
173 |
my $sth_prev_items = $dbh->prepare($prev_query . $query_cond . ' ORDER BY cn_sort DESC, itemnumber LIMIT ?'); |
| 174 |
my $sth_next_items = $dbh->prepare($next_query . $query_cond . ' ORDER BY cn_sort, itemnumber LIMIT ?'); |
174 |
my $sth_next_items = $dbh->prepare($next_query . $query_cond . ' ORDER BY cn_sort, itemnumber LIMIT ?'); |
| 175 |
push @params, $num_each_side; |
175 |
push @params, $num_each_side + 1; |
| 176 |
$sth_prev_items->execute(@params); |
176 |
$sth_prev_items->execute(@params); |
| 177 |
$sth_next_items->execute(@params); |
177 |
$sth_next_items->execute(@params); |
| 178 |
|
178 |
|
|
Lines 185-195
sub GetNearbyItems {
Link Here
|
| 185 |
$prev_itemnumber, $prev_biblionumber |
185 |
$prev_itemnumber, $prev_biblionumber |
| 186 |
); |
186 |
); |
| 187 |
|
187 |
|
| 188 |
$next_itemnumber = $next_items[-1]->{itemnumber} if @next_items; |
188 |
if ( @next_items and $#next_items > $num_each_side - 1 ) { |
| 189 |
$next_biblionumber = $next_items[-1]->{biblionumber} if @next_items; |
189 |
my $next_item = pop @next_items; |
|
|
190 |
$next_itemnumber = $next_item->{itemnumber}; |
| 191 |
$next_biblionumber = $next_item->{biblionumber}; |
| 192 |
} |
| 190 |
|
193 |
|
| 191 |
$prev_itemnumber = $prev_items[0]->{itemnumber} if @prev_items; |
194 |
if ( @prev_items and $#prev_items > $num_each_side - 1 ) { |
| 192 |
$prev_biblionumber = $prev_items[0]->{biblionumber} if @prev_items; |
195 |
my $prev_item = shift @prev_items; |
|
|
196 |
$prev_itemnumber = $prev_item->{itemnumber}; |
| 197 |
$prev_biblionumber = $prev_item->{biblionumber}; |
| 198 |
} |
| 193 |
|
199 |
|
| 194 |
my %result = ( |
200 |
my %result = ( |
| 195 |
next => \@next_items, |
201 |
next => \@next_items, |
| 196 |
- |
|
|