insert(breadcrumbs($cur, includecur => 1,
separator => text(' > '))); ?>
param('navbar')) {
# build navigation table
my $navbar = navbar($cur, undef,
topopen => 1,
forwardopen => 1,
class => 'navmenu',
markcurrent =>
sub { $_[1]->setatt('class' => 'navcurrent') },
markswitch =>
sub { $_[1]->append(text ' »') } );
if ($navbar) {
# set up table for two large rule-separated columns
# (left navigation information, right content)
$content=c('*table(id=container, summary="page content",
*tr(*td(class=leftnav,
*div(class=navlist)),
*td(class=rule, " "),
*td(class=content,
*a(name=startcontent,
id=startcontent))))');
$content->cd('.l(*div(class=navlist))')
->append0->move($navbar);
} else {
warn " you requested a navbar, but the navigation tree is empty\n";
}
}
if (!$content) {
# no navigation table
$content = c('*div(id=content, *a(name=startcontent,
id=startcontent))');
}
$content = $c->insert0->move($content);
# insert body
if (my $body = $src->cd('.l(*body)')) {
$content->cd('.l(*a(id=startcontent))')->parent
->copyfrom_list($body);
}
?>
insert(wrap(c('*p(class=footer)'), @footer));
# add small links (policy, etc.) to right-hand side footer
if (my $links = relocate_html($cur->paramc('footlinks'), $cur)) {
my @l = $links->list;
$c->insert(c('*p(class=rfooter)')
->append(interleave(text ' | ', @l))) if @l;
}
}
?>