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

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

warn "adding $nr results for $q in ", $$event->{item_fragment};

</%init>
% if ($nr) {
<div class="results">
<div class="message">
<% $nr %> results for '<% $q %>'
</div>
%       while ( my $i = $coll->next ) {
<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
%       }
</div>
% } else {
<div class="error">
No results found for '<% $q %>'
</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	my $nr = $coll->count;
13	my $q = $$event->{q} \|\| die "no q";
14
15	warn "adding $nr results for $q in ", $$event->{item_fragment};
16
17	</%init>
18	% if ($nr) {
19	<div class="results">
20	<div class="message">
21	<% $nr %> results for '<% $q %>'
22	</div>
23	% while ( my $i = $coll->next ) {
24	<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
25	% }
26	</div>
27	% } else {
28	<div class="error">
29	No results found for '<% $q %>'
30	</div>
31	% }