$title); return -1; }; my $sbsubpre = q(
| ) . spacer(10, 1) . q( | ); # "
$t->{'sb:subsection'}{testcode} = sub {
my ($node, $t) = @_;
if ($node->findvalue('@expand') eq "no") {
my $title = findvalue('sb:title/text()', $node);
my $url = findvalue('sb:url/text()', $node);
my $sel = '';
$sel = '_sel' if $r->uri eq $url;
$t->{pre} = qq($title ); if ($r->uri eq $url) { $t->{pre} .= $sbsubpre; return 'sb:item'; } $t->{post} = ''; return -1; } else { return 1; } }; $t->{'sb:subsection'}{pre} = $sbsubpre; $t->{'sb:subsection'}{post} = q( |