<%
$t->{'rss'}{testcode} = sub {
my ($node, $t) = @_;
$t->{'pre'} = q(
| ) . spacer(1,1) . q( | ![);
$t->{'pre'} .= findvalue('channel/image/title/text()', $node);
$t->{'pre'} .= q(]();
$t->{'pre'} .= findvalue('channel/image/url/text()', $node);
$t->{'pre'} .= q() | ) . spacer(1,1) . q( |
|
|
|
|
);
return 'channel/item[position() < 5]';
};
$t->{'item'}{testcode} = sub {
my ($node, $t) = @_;
if ($node->getParentNode->getName ne 'channel') {
return 1;
}
$t->{'pre'} = '
' .
findvalue('title/text()', $node) . ' - ' .
findvalue('description/text()', $node);
$t->{'post'} = "
\n\n";
return -1;
};
%>