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

<%args>
$event
</%args>
<%init>

use Data::Dump qw/dump/;
#warn "event = ",dump($$event);

my $coll = $$event->{coll} || die "no coll in incomming event = ", dump( $event );
die "no item_fragment in event" unless ($$event->{item_fragment} || $$event->{message});

my $nr = $coll->count;
my $q = $$event->{q} || die "no q";

my $message = $$event->{message} || "$nr results for $q";
my $class = $$event->{class} || 'messages';

warn "<$class> $message in fragment/item/", $$event->{item_fragment};

</%init>
% if ( $message ) {
<div class="grep-note">
<div class="<% $class %>">
<% $message %>
</div>
</div>
% }
% if ($nr) {
</div>
%       while ( my $i = $coll->next ) {
<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
%       }
</div>
% }
1	dpavlin	28	<%args>
2			$event
3			</%args>
4			<%init>
5
6			use Data::Dump qw/dump/;
7			#warn "event = ",dump($$event);
8
9	dpavlin	29	my $coll = $$event->{coll} \|\| die "no coll in incomming event = ", dump( $event );
10	dpavlin	32	die "no item_fragment in event" unless ($$event->{item_fragment} \|\| $$event->{message});
11	dpavlin	28
12	dpavlin	30	my $nr = $coll->count;
13			my $q = $$event->{q} \|\| die "no q";
14	dpavlin	28
15	dpavlin	32	my $message = $$event->{message} \|\| "$nr results for $q";
16			my $class = $$event->{class} \|\| 'messages';
17	dpavlin	30
18	dpavlin	32	warn "<$class> $message in fragment/item/", $$event->{item_fragment};
19
20	dpavlin	28	</%init>
21	dpavlin	32	% if ( $message ) {
22	dpavlin	33	<div class="grep-note">
23	dpavlin	32	<div class="<% $class %>">
24			<% $message %>
25			</div>
26	dpavlin	33	</div>
27	dpavlin	32	% }
28	dpavlin	30	% if ($nr) {
29			</div>
30	dpavlin	28	% while ( my $i = $coll->next ) {
31			<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
32			% }
33			</div>
34	dpavlin	30	% }