Contents of /share/web/templates/fragments/results

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

use Data::Dump qw/dump/;

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

warn "notes: ",dump($result->message, $result->error) if ($result);

my $num = 1;

my ($prev,$next) = (undef, $num + 1);

</%init>
% if ($result and $result->message) {
<div class="grep-note">
<div class="message"><% $result->message %></div>
</div>
% }
% if ($result and $result->error) {
<div class="grep-note">
<div class="error"><% $result->error %></div>
</div>
% }
% if ($coll) {
<div class="results">
%       while ( my $i = $coll->next and $num <= $max ) {
%               $next = $num == $max ? undef : $num + 1;
<a name="r<% $num %>"/>
<& "/fragments/item/$item_fragment", item => $i, prev => $prev, next => $next &>
%               $prev = $num++;
%       }
</div>
%       if ($num > $max) {
<div class="grep-note">
<div class="message">
Found more than <% $max %> results for '<% $q %>', refine search query....
</div>
</div>
%       }
% }
1	<%args>
2	$q
3	$max => 10
4	$item_fragment => 'long'
5	$coll => undef
6	$result_moniker => 'search'
7	$result => undef
8	</%args>
9	<%init>
10
11	use Data::Dump qw/dump/;
12
13	$result \|\|= Jifty->web->response->result( $result_moniker );
14	if ( $result and $result->content('search') ) {
15	$coll = $result->content('search');
16	} elsif (! defined($coll)) {
17	warn "called without result for $result_moniker";
18	}
19
20	warn "notes: ",dump($result->message, $result->error) if ($result);
21
22	my $num = 1;
23
24	my ($prev,$next) = (undef, $num + 1);
25
26	</%init>
27	% if ($result and $result->message) {
28	<div class="grep-note">
29	<div class="message"><% $result->message %></div>
30	</div>
31	% }
32	% if ($result and $result->error) {
33	<div class="grep-note">
34	<div class="error"><% $result->error %></div>
35	</div>
36	% }
37	% if ($coll) {
38	<div class="results">
39	% while ( my $i = $coll->next and $num <= $max ) {
40	% $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>
46	% if ($num > $max) {
47	<div class="grep-note">
48	<div class="message">
49	Found more than <% $max %> results for '<% $q %>', refine search query....
50	</div>
51	</div>
52	% }
53	% }