21 |
|
|
22 |
my $num = 1; |
my $num = 1; |
23 |
|
|
24 |
|
my ($prev,$next) = (undef, $num + 1); |
25 |
|
|
26 |
</%init> |
</%init> |
27 |
% if ($result and $result->message) { |
% if ($result and $result->message) { |
28 |
<div class="grep-note"> |
<div class="grep-note"> |
36 |
% } |
% } |
37 |
% if ($coll) { |
% if ($coll) { |
38 |
<div class="results"> |
<div class="results"> |
39 |
% while ( my $i = $coll->next and $num++ <= $max ) { |
% while ( my $i = $coll->next and $num <= $max ) { |
40 |
<& "/fragments/item/$item_fragment", item => $i &> |
% $next = $num == $max ? undef : $num + 1; |
41 |
|
<a name="r<% $num %>"/> |
42 |
|
<& "/fragments/item/$item_fragment", item => $i, prev => $prev, next => $next &> |
43 |
|
% $prev = $num++; |
44 |
% } |
% } |
45 |
</div> |
</div> |
46 |
% if ($num > $max) { |
% if ($num > $max) { |