1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
%# 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
<& /RTFM/Article/Elements/Tabs,
id => $id,
Title => $title,
current_subtab => 'RTFM/Article/Display.html?id='.$id &>
<emp><%$article->Summary%></emp>
<br><br><br>
<& Elements/ShowCustomFields, article => $article &>
<br>
<& 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;
</%init>
<%args>
$id => undef
$Name => undef
</%args>
|
