my $order = getSort('search', 'sql', $param->{'sort'});
+ # XXX LIMIT $on_page doesn't work since we don't get correct number of results
my $sql_order = qq{
ORDER BY $order
- LIMIT $on_page
OFFSET ?
};
my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
my $sth = $dbh->prepare($sql_results);
- $sth->execute( $offset );
+ my $rows = $sth->execute( $offset );
my @ret;
-
+
while (my $row = $sth->fetchrow_hashref()) {
push @ret, $row;
+ last if $#ret + 1 >= $on_page;
}
$sth->finish();
- return ($sth->rows, \@ret);
+ return ($rows, \@ret);
}
sub getFilesHyperEstraier($) {