Annotation 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 object";
die "no item_fragment in event" unless ($$event->{item_fragment});

warn "adding ", $coll->count, " results from event";

</%init>
<div class="results">
%       while ( my $i = $coll->next ) {
<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
%       }
</div>
** EOF **
1	dpavlin	28	<%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 object";
10			die "no item_fragment in event" unless ($$event->{item_fragment});
11
12			warn "adding ", $coll->count, " results from event";
13
14			</%init>
15			<div class="results">
16			% while ( my $i = $coll->next ) {
17			<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
18			% }
19			</div>
20			EOF