1 |
<%args> |
<%args> |
2 |
$item_fragment => 'long' |
$item_fragment => 'long' |
3 |
|
$max => 10 |
4 |
$coll => undef |
$coll => undef |
5 |
$moniker => 'search' |
$moniker => 'search' |
6 |
|
$q |
7 |
</%args> |
</%args> |
8 |
<%init> |
<%init> |
9 |
|
|
15 |
} elsif (! $coll) { |
} elsif (! $coll) { |
16 |
# warn "called without results for $moniker"; |
# warn "called without results for $moniker"; |
17 |
} |
} |
18 |
|
|
19 |
|
my $i = 1; |
20 |
|
|
21 |
</%init> |
</%init> |
22 |
% if ($coll) { |
% if ($coll) { |
23 |
<div class="results"> |
<div class="results"> |
24 |
% while ( my $i = $coll->next ) { |
% while ( my $i = $coll->next and $i++ <= $max ) { |
25 |
<& "/fragments/item/$item_fragment", item => $i &> |
<& "/fragments/item/$item_fragment", item => $i &> |
26 |
% } |
% } |
27 |
</div> |
</div> |
28 |
|
% if ($i > $max) { |
29 |
|
<div class="grep-note"> |
30 |
|
<div class="message"> |
31 |
|
Found more than <% $max %> results for '<% $q %>', refine search query.... |
32 |
|
</div> |
33 |
|
</div> |
34 |
|
% } |
35 |
% } |
% } |