param('organization'); my $section = $cur->param('section'); my $deptitle = c('*td(class=deptitle)'); $deptitle->append(text $organization); if (defined($section)) { $deptitle->append('*br'); $deptitle->append(text($section)); } $c->insert($deptitle) } ?>
 
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; } } ?>