# linkbar my $title = $self->title; my $output; my (%description) = ( new => 'newest entries', all => 'all entries', chapbook => 'unrequired poetry', hack => 'code and such', 2000 => 'entries for 2000', 2001 => 'entries for 2001', 2002 => 'entries for 2001', 2003 => 'entries for 2003', 2004 => 'entries for 2004', 2005 => 'entries for 2005', 2006 => 'entries for 2006', 2007 => 'entries for 2007', feed => 'an Atom feed of new entries' ); my (@linklist) = qw(new all 2007 2006 2005 2004 2003 chapbook hack feed); foreach my $link (@linklist) { if ($title ne $link) { my $href = $self->url_root . $link; if ($link eq 'new') { $href = $self->url_root; } $output .= a("href: $href", "title: $description{$link}", $link) . " \n"; } else { $output .= qq{
$link
\n}; } } return p($output);
if ($self->title() eq 'new') { return qq{
\n\n}; } return '';
${title}