<%perl> my %entries = ( 'default' => [ { 'name' => 'FAQ' , 'url' => 'faq.html', 'text' => 'FAQ' } , { 'name' => 'perl' , 'url' => 'perl.html', 'text' => 'Perl stuff' } , { 'name' => 'cstuff', 'url' =>'cstuff.html' , 'text' => 'C stuff' } , { 'name' => 'randomness', 'url' =>'randomness.html' , 'text' => 'Randomness'} , { 'name' => 'punditry' , 'url'=> 'punditry.html' , 'text' => 'Punditry'}, { 'name' => 'links' , 'url'=> 'links.html' , 'text' => 'Links'} ], 'perl' => [ { 'name' => 'mason' , 'url' => 'mason.html' , 'text' => 'Mason stuff'}, { 'name' => 'tk' , 'url' => 'tk.html' , 'text' => 'Tk stuff'}, { 'name' => 'RecDescent' , 'url' => 'RecDescent.html' , 'text' => 'RecDescent
stuff'} ] ); my @names = split ':', $sidebar_subtopic; my $subtopic = shift @names; my $colspan=""; my $next_subtopic = join(':',@names); % foreach my $entry ( @{$entries{$sidebar_topic}}) { % if ($subtopic ne '' && defined $entries{$subtopic} ){ % $colspan="colspan=\"2\""; % } % if ($subtopic eq $entry->{name} && defined $entries{$subtopic}) { % } % }

> % if ($subtopic eq $entry->{name} && $next_subtopic eq '') { % } <% $entry->{text} %>
	<& sidetable.comp , sidebar_border => '0', sidebar_width => '99%' , sidebar_subtopic => "$next_subtopic", sidebar_depth => "x$sidebar_depth", sidebar_topic => "$subtopic" &>

<%args> $sidebar_bg => "#22bb22" $sidebar_highlight_bg => "black" $sidebar_fg => "#ff0000" $sidebar_subtopic => '' $sidebar_topic => 'default' $sidebar_border => '0' $sidebar_width => '50%' $sidebar_align => 'left' $sidebar_depth => 'x'