| 23 |
|
|
| 24 |
my ($prev,$next) = (undef, $pos + 1); |
my ($prev,$next) = (undef, $pos + 1); |
| 25 |
|
|
| 26 |
|
my $uid = time(); |
| 27 |
|
|
| 28 |
</%init> |
</%init> |
| 29 |
% if ($result and $result->message) { |
% if ($result and $result->message) { |
| 30 |
<div class="grep-note"> |
<div class="grep-note"> |
| 41 |
<div class="results"> |
<div class="results"> |
| 42 |
% while ( my $i = $coll->next and $pos <= $max ) { |
% while ( my $i = $coll->next and $pos <= $max ) { |
| 43 |
% $next = ( $pos == $max or $pos == $count ) ? undef : $pos + 1; |
% $next = ( $pos == $max or $pos == $count ) ? undef : $pos + 1; |
| 44 |
<& "/fragments/item/$item_fragment", item => $i, pos => $pos, prev => $prev, next => $next &> |
<& "/fragments/item/$item_fragment", item => $i, pos => "$uid-$pos", prev => $prev ? "$uid-$prev" : undef, next => $next ? "$uid-$next" : undef &> |
| 45 |
% $prev = $pos++; |
% $prev = $pos++; |
| 46 |
% } |
% } |
| 47 |
</div> |
</div> |
Parent Directory
| 
Revision Log
| 
Patch