%# 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%" cellspacing="0" cellpadding="2">
% my $i;
% while (my $transaction = $transactions->Next) {
<TR class="<% ($i++)%2 ? 'oddline' : 'evenline'%>" >
<td width="20%"><small><%$transaction->CreatedObj->AsString%></small></td>
<td><%$transaction->CreatorObj->Name%></td>
<td><%$transaction->Description%></td>
</tr>
% }
</table>
<%init>

my $article = RT::FM::Article->new($session{'CurrentUser'}); 

$article->Load($id);
unless ($article->Id) {
    $m->comp("/RTFM/Elements/Error", Why => loc("Article not found"));
}

unless ($session{'CurrentUser'}->HasRight( Object => $article->ClassObj, 
                                           Right => 'ShowArticle')) {
    $m->comp("/RTFM/Elements/Error", Why => loc("Permission Denied"));
}

my $transactions = $article->Transactions();

</%init>
<%args>
$id => undef
</%args>
