<%perl> if ($heading) { $heading = '

' . $heading . "

\n" ; } else { $heading = '

' . $title . "

\n" ; } <% $title %> <% $heading %> <%perl> my @hierarchy = split(':',$name); foreach $entry (@entries) { } <%doc> To include the sidetable: <& sidetable.comp , sidebar_subtopic => "$sidebar_subtopic" &> <%args> $name => '' $title $heading => '' $bgcolor => "#006600" $txcolor => "#FFFFFF" $vlcolor => "#999999" $lncolor => "#FFFFFF" <%shared> my @entries = [ 'default' => { 'name' = 'index' , 'contents => [ { 'name' => 'faq' , 'url' => 'faq.html', 'text' => 'faq' } , { 'name' => 'perl' , 'url' => 'perl.html', 'text' => 'Perl stuff' } , { 'name' => 'cstuff', 'url' =>'cstuff' , 'text' => 'C stuff' } , { 'name' => 'randomness', 'url' =>'randomness.html' , 'text' => 'Randomness'} ] }, 'perl' => { 'name' => 'perl', 'contents' => [ { 'name' => 'mason' , 'url' => 'mason.html' , 'text' => 'Mason stuff'}, { 'name' => 'tk' , 'url' => 'tk.html' , 'text' => 'Tk stuff'}, { 'name' => 'RecDescent' , 'url' => 'RecDescent.html' , 'text' => 'RecDescent
stuff'} ] } ];