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