Annotation 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>
<a href="#a<% $item->id %>">&gt;&gt;</a>

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

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

</div><!-- result -->
<a name="a<% $item->id %>"/>
1	dpavlin	9	<%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	dpavlin	14	<a href="#a<% $item->id %>">>></a>
24	dpavlin	9
25			<div class="content">
26			<% $item->content \| n %>
27	dpavlin	14	</div><!-- content -->
28	dpavlin	9
29			% foreach my $f ( qw/category author issued modified/ ) {
30			% if ( $item->$f ) {
31			<span class="<% $f %>"><% $item->$f %></span>
32			% }
33			% }
34
35	dpavlin	14	</div><!-- result -->
36			<a name="a<% $item->id %>"/>