%
$t->{'sb:sidebar'}{pre} = q(
);
$t->{'sb:sidebar'}{post} = ' |
';
$t->{'sb:section'}{pre} = q();
$t->{'sb:section'}{post} = q(
);
$t->{'sb:title'}{pre} = q(
);
$t->{'sb:title'}{post} = q( |
);
$t->{'sb:item'}{testcode} = sub {
my ($node, $t) = @_;
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} = "$title ";
return -1;
};
$t->{'sb:subsection'}{testcode} = sub {
my ($node, $t) = @_;
if (findvalue('@expand', $node) 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} = "$title ";
$t->{post} = '';
return -1;
}
else {
return 1;
}
};
$t->{'sb:subsection'}{pre} = q(
) . spacer(10, 1) . q( | );
$t->{'sb:subsection'}{post} = q( | );
%>
|