Contents 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});

warn "adding ", $coll->count, " results for ", $$event->{q};

</%init>
<div class="results">
<% $coll->count %> results for '<% $$event->{q} %>'
%       while ( my $i = $coll->next ) {
<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
%       }
</div>
1	<%args>
2	$event
3	</%args>
4	<%init>
5
6	use Data::Dump qw/dump/;
7	#warn "event = ",dump($$event);
8
9	my $coll = $$event->{coll} \|\| die "no coll in incomming event = ", dump( $event );
10	die "no item_fragment in event" unless ($$event->{item_fragment});
11
12	warn "adding ", $coll->count, " results for ", $$event->{q};
13
14	</%init>
15	<div class="results">
16	<% $coll->count %> results for '<% $$event->{q} %>'
17	% while ( my $i = $coll->next ) {
18	<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
19	% }
20	</div>