Contents of /share/web/templates/fragments/result

<%ARGS>
$event => undef
$item => undef
</%ARGS>
<%init>

die "need event or item!" unless ($event or $item);

# unpack item from event
$item = $$event if ($event);

die "don't have item" unless ($item);

use Data::Dump qw/dump/;
warn "item = ",dump($item);

</%init>

<div class="result">

<a class="title" href="<% $item->link %>"><% $item->title %></a>
<span class="feed">in <% $item->in_feed->title %></span>

<div class="content">
<% $item->content | n %>
</div>

% foreach my $f ( qw/category author issued modified/ ) {
%       if ( $item->$f ) {
<span class="<% $f %>"><% $item->$f %></span>
%       }
% }

1	<%ARGS>
2	$event => undef
3	$item => undef
4	</%ARGS>
5	<%init>
6
7	die "need event or item!" unless ($event or $item);
8
9	# unpack item from event
10	$item = $$event if ($event);
11
12	die "don't have item" unless ($item);
13
14	use Data::Dump qw/dump/;
15	warn "item = ",dump($item);
16
17	</%init>
18
19	<div class="result">
20
21	<a class="title" href="<% $item->link %>"><% $item->title %></a>
22	<span class="feed">in <% $item->in_feed->title %></span>
23
24	<div class="content">
25	<% $item->content \| n %>
26	</div>
27
28	% foreach my $f ( qw/category author issued modified/ ) {
29	% if ( $item->$f ) {
30	<span class="<% $f %>"><% $item->$f %></span>
31	% }
32	% }
33