The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%# "Don't go around saying the world owes you a living.  The world owes
%# you nothing.  It was here first."
%# 		-- Mark Twain

<table border=0 cellpadding=0 cellspacing=0 bgcolor="#C4E1F0"><tr> 
% my $postfix;
% while (my $k = shift(@$Map)) {
<td><input type="button" value="<% loc($k) %>"></td>
% }
<td><select>
<option><&|/l&>defect</&></option>
<option><&|/l&>patch</&></option>
<option><&|/l&>enhancement</&></option>
</select></td>
</tr></table>
<%INIT>
my $url = $r->uri;
$Map = [
    'Overview',
    'List',
    'Add',
    'Search',
];
$url =~ s!//+!/!g;
</%INIT>
<%ARGS>
$Map	=> []
$Name	=> 'Map'
$Show	=> ''
$URL	=> ''
$Skip	=> ''
</%ARGS>