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 );
my $item_fragment = $$event->{item_fragment} or warn "no item_fragment";
die "no item_fragment in event" unless ($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/$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/' . $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	my $item_fragment = $$event->{item_fragment} or warn "no item_fragment";
11	die "no item_fragment in event" unless ($item_fragment \|\| $$event->{message});
12
13	my $nr = $coll->count;
14	my $q = $$event->{q} \|\| die "no q";
15
16	my $message = $$event->{message} \|\| "$nr results for $q";
17	my $class = $$event->{class} \|\| 'messages';
18
19	warn "<$class> $message in fragment/item/$item_fragment";
20
21	</%init>
22	% if ( $message ) {
23	<div class="grep-note">
24	<div class="<% $class %>">
25	<% $message %>
26	</div>
27	</div>
28	% }
29	% if ($nr) {
30	</div>
31	% while ( my $i = $coll->next ) {
32	<& '/fragments/item/' . $item_fragment, item => $i &>
33	% }
34	</div>
35	% }