%# BEGIN LICENSE BLOCK %# %# Copyright (c) 2002-2003 Jesse Vincent %# %# 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 <& /RTFM/Article/Elements/Tabs, id => $id, Title => $title, current_subtab => 'RTFM/Article/Display.html?id='.$id &> <%$article->Summary%>


<& /Elements/TitleBoxStart, title => loc('Custom Fields'), title_class=> 'inverse', color => "#993333" &> <& Elements/ShowCustomFields, article => $article &> <& /Elements/TitleBoxEnd &>
<& /Elements/TitleBoxStart, title => loc('Links'), title_class=> 'inverse', titleright => '', color=> "#336633" &> <& Elements/ShowLinks, article => $article &> <& /Elements/TitleBoxEnd &> <%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 $cfs = $article->ClassObj->CustomFields; my $title = loc( "Article #[_1]: [_2]", $article->Id, $article->Name); <%args> $id => undef