  <tr>
    <td class="labeltop"><& ShowRelationLabel, uri => $uri, Label => loc($Base_name), Relation => $Base &>:</td>
    <td class="value">
% while (my $link = $Object->$Base->Next) {
      <input type="checkbox" class="checkbox" name="DeleteLink--<%$link->Type%>-<%$link->Target%>" value="1" />
        <& /Elements/ShowLink, URI => $link->TargetURI &><br>
% }
    </td>
  </tr>
  <tr>
    <td class="labeltop"><& ShowRelationLabel, uri => $uri, Label => loc($Target_name), Relation => $Target &>:</td>
    <td class="value">
% while (my $link = $Object->$Target->Next) {
      <input type="checkbox" class="checkbox" name="DeleteLink-<%$link->Base%>-<%$link->Type%>-" value="1" />
        <& /Elements/ShowLink, URI => $link->BaseURI &><br>
% }
    </td>
  </tr>

<%INIT>
my $uri;
if ($Object && $Object->Id) {
    $uri = $Object->URI;
} else {
    $uri = 'new';
}

my ($Target, $Base_name, $Target_name);

$Base_name = $Map->{$Base}{Name};
$Target = $Map->{$Base}{Mate};
$Target_name = $Map->{$Target}{Name};
</%INIT>
<%ARGS>
$Object
$Base
$Map
</%ARGS>
