<table width="100%">
  <tr>
    <td valign="top" width="50%">
      <h3><&|/l&>Current Links</&></h3>

<table>
% for my $link ( keys %$link_dir ) {
    <& DeleteLinkPair, Object => $Object, Base => $link, Map => $link_types &>
% }
  <tr>
    <td></td>
    <td><i><&|/l&>(Check box to delete)</&></i></td>
  </tr>
</table>

    </td>
  </tr>
</table>

<%INIT>
my $id;
if ($Object && $Object->Id) {
    $id = $Object->Id;
} else {
    $id = 'new';
}
my $link_types = RTx::AssetTracker::Asset::LINKTYPEMAP();
my $link_dir   = RTx::AssetTracker::Asset::LINKDIRMAP();
</%INIT>

<%ARGS>
$Object => undef
</%ARGS>
