%perl>
if ($heading) {
$heading = '
' . $heading . "
\n" ;
} else {
$heading = '' . $title . "
\n" ;
}
%perl>
<% $title %>
<% $heading %>
<%perl>
my @hierarchy = split(':',$name);
foreach $entry (@entries) {
}
<%doc>
To include the sidetable:
<& sidetable.comp , sidebar_subtopic => "$sidebar_subtopic" &>
%doc>
<%args>
$name => ''
$title
$heading => ''
$bgcolor => "#006600"
$txcolor => "#FFFFFF"
$vlcolor => "#999999"
$lncolor => "#FFFFFF"
%args>
<%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'}
]
}
];
%shared>