<% $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(

); %>