Annotation of /share/web/templates/fragments/results

<%args>
$item_fragment => 'long'
$max => 10
$coll => undef
$moniker => 'search'
$q
</%args>
<%init>

use Data::Dump qw/dump/;

my $results = Jifty->web->response->result( $moniker );
if ( $results and $results->content('search') ) {
        $coll = $results->content('search');
} elsif (! defined($coll)) {
        warn "called without results for $moniker";
}

my $i = 1;

</%init>
% if ($coll) {
<div class="results">
%       while ( my $i = $coll->next and $i++ <= $max ) {
<& "/fragments/item/$item_fragment", item => $i &>
%       }
</div>
%       if ($i > $max) {
<div class="grep-note">
<div class="message">
Found more than <% $max %> results for '<% $q %>', refine search query....
</div>
</div>
%       }
% }
1	dpavlin	24	<%args>
2	dpavlin	28	$item_fragment => 'long'
3	dpavlin	40	$max => 10
4	dpavlin	24	$coll => undef
5			$moniker => 'search'
6	dpavlin	40	$q
7	dpavlin	24	</%args>
8			<%init>
9
10			use Data::Dump qw/dump/;
11
12			my $results = Jifty->web->response->result( $moniker );
13			if ( $results and $results->content('search') ) {
14			$coll = $results->content('search');
15	dpavlin	43	} elsif (! defined($coll)) {
16			warn "called without results for $moniker";
17	dpavlin	24	}
18	dpavlin	40
19			my $i = 1;
20
21	dpavlin	24	</%init>
22			% if ($coll) {
23			<div class="results">
24	dpavlin	40	% while ( my $i = $coll->next and $i++ <= $max ) {
25	dpavlin	28	<& "/fragments/item/$item_fragment", item => $i &>
26	dpavlin	24	% }
27			</div>
28	dpavlin	40	% 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	dpavlin	24	% }