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