} else {
$rv .= "No more results, only $total";
}
- my ($next, $join, $prev, $nd, $pd);
-
+ my ($next, $join, $prev, $nd, $pd, $min, $max);
+ if ($q->{r}) { # bogus % if somebody manually entered in OOB o=$OFFSET
+ $min = $q->{-min_pct} // 0;
+ $max = $q->{-max_pct} // 100;
+ }
if ($o >= 0) { # sort descending
my $n = $o + $l;
if ($n < $total) {
$next = $q->qs_html(o => $n, l => $l);
- $nd = $q->{r} ? "[<= $q->{-min_pct}%]" : '(older)';
+ $nd = defined($min) ? "[<= $min%]" : '(older)';
}
if ($o > 0) {
$join = $n < $total ? ' | ' : "\t";
my $p = $o - $l;
$prev = $q->qs_html(o => ($p > 0 ? $p : 0));
- $pd = $q->{r} ? "[>= $q->{-max_pct}%]" : '(newer)';
+ $pd = defined($max) ? "[>= $max%]" : '(newer)';
}
} else { # o < 0, sort ascending
my $n = $o - $l;
if (-$n < $total) {
$next = $q->qs_html(o => $n, l => $l);
- $nd = $q->{r} ? "[<= $q->{-min_pct}%]" : '(newer)';
+ $nd = defined($min) ? "[<= $min%]" : '(newer)';
}
if ($o < -1) {
$join = -$n < $total ? ' | ' : "\t";
my $p = $o + $l;
$prev = $q->qs_html(o => ($p < 0 ? $p : 0));
- $pd = $q->{r} ? "[>= $q->{-max_pct}%]" : '(older)';
+ $pd = defined($max) ? "[>= $max%]" : '(older)';
}
}