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 with fragment/item/$item_fragment user ", $$event->{user_id}; |
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 |
% } |