Lines 183-189
LIMIT ?
Link Here
|
183 |
$sth->execute($biblionumber, $limit); |
183 |
$sth->execute($biblionumber, $limit); |
184 |
push @{ $res }, @{$sth->fetchall_arrayref({})}; |
184 |
push @{ $res }, @{$sth->fetchall_arrayref({})}; |
185 |
|
185 |
|
186 |
$res = \@{ @{$res}[0..$limit] } if (@$res > $limit); |
186 |
$res = [ @{$res}[0..$limit] ] if (@$res > $limit); |
187 |
|
187 |
|
188 |
my @res = sort { $b->{hit_count} <=> $a->{hit_count} } @$res; |
188 |
my @res = sort { $b->{hit_count} <=> $a->{hit_count} } @$res; |
189 |
return \@res; |
189 |
return \@res; |
190 |
- |
|
|