%# BEGIN LICENSE BLOCK
%# 
%#  Copyright (c) 2002-2003 Jesse Vincent <jesse@bestpractical.com>
%#  
%#  This program is free software; you can redistribute it and/or modify
%#  it under the terms of version 2 of the GNU General Public License 
%#  as published by the Free Software Foundation.
%# 
%#  A copy of that license should have arrived with this
%#  software, but in any event can be snarfed from www.gnu.org.
%# 
%#  This program is distributed in the hope that it will be useful,
%#  but WITHOUT ANY WARRANTY; without even the implied warranty of
%#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%#  GNU General Public License for more details.
%# 
%# END LICENSE BLOCK

    <table width="100%">
    <tr>
    <td valign="top">

<&|/l&>Refers to</&>:<BR>
<UL>
% my $refersto = $article->RefersTo;

% while (my $link = $refersto->Next) {
% my $member = $link->TargetURI;
<LI>
% if ($link->TargetURI->IsLocal) {

<a href="<%$member->Resolver->HREF%>"><%$member->Object->Id%></a>: 
% if (UNIVERSAL::can($member->Object, 'Name')) {
<%$member->Object->Name%>
% } elsif (UNIVERSAL::can($member->Object, 'Subject')) {
<%$member->Object->Subject%>
% }
</a>
% } else {
<A HREF="<%$member->Resolver->HREF%>"><%$link->Target%></A>
% }
%}
</UL>
</td>
<td valign="top">
<&|/l&>Referred to by</&>:<BR>
<UL>
% my $referredtoby = $article->ReferredToBy;
% while (my $link = $referredtoby->Next) {
% my $member = $link->BaseURI;
<LI>
% if ($member->IsLocal) {
<a href="<%$member->Resolver->HREF%>"><%$member->Object->Id%></a>: 
% if (UNIVERSAL::can($member->Object, 'Name')) {
<%$member->Object->Name%>
% } elsif (UNIVERSAL::can($member->Object, 'Subject')) {
<%$member->Object->Subject%>
% }
</a>
% } else {
<A HREF="<%$member->Resolver->HREF%>"><%$link->Base%></A>
%}
% }
</UL>
</tr>
</table>
<%args>
$article => undef
</%args>
