Annotation 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 $pos = 1;

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

my $uid = time();

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