%# 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/ShowCustomFields, article => $article &>
<& Elements/ShowLinks, article => $article &> <%init> my $article = RT::FM::Article->new($session{'CurrentUser'}); if ($Name) { $article->LoadByCols(Name => $Name); } elsif ($id) { $article->Load($id); } unless ($article->Id) { if ($ARGS{'Name'}) { $m->comp('Edit.html',%ARGS ); return(); } else { $m->comp("/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 $title = loc( "Article #[_1]: [_2]", $article->Id, $article->Name); $id = $article->id; <%args> $id => undef $Name => undef