The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<h2>Menu Admin</h2>

<div class="boxer">
[% IF thanks_message %]<p>[% thanks_message %][% END %]
<p>Click on menu to add, amend or delete options.
<p><a href="[% cgipath %]/pages.cgi?act=menu-add">add a new menu</a>
</div>

<form name="datalist" method="post" action="[% cgipath %]/pages.cgi">
<input type="hidden" name='act' value='menu-admin' />

<div class="boxer">
<table class="blocker">
<tr>
    <th>Title</th>
    <th>Type</th>
    <th>Realm</th>
    <th>Select</th>
</tr>
[% FOREACH record = data %]
<tr>
    <td nowrap><a href="[% cgipath %]/pages.cgi?act=menu-edit&amp;menuid=[% record.menuid %]">[% IF record.title %][% record.title %][% ELSE %]No Title[% END %]</a></td>
    <td>[% record.type %]</td>
    <td>[% record.realm %]</td>
    <td><input type="checkbox" name="LISTED" value="[% item.linkid %]" /></td>
</tr>
[% END %]
</table>
</div>

<p align="right">
<input type="submit" name='doaction' value='Delete' />
</form>