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