%# 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 &>

<&|/l&>Basics

<&|/l&>Class: <%$article->ClassObj->Name%>
<%$article->Summary%>

<&|/l&>Content

<& /Elements/ShowCustomFields, Object => $article &>

<&|/l&>Links

<& Elements/ShowLinks, article => $article &>

<&|/l&>Topics

<& Elements/ShowTopics, 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 ( $article->CurrentUserHasRight('ShowArticle') ) { $m->comp( "/RTFM/Elements/Error", Why => loc("Permission Denied") ); } my $title = loc( "Article #[_1]: [_2]", $article->Id, $article->Name || loc("(no name)")); $id = $article->id; <%args> $id => undef $Name => undef