%# 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/Elements/Tabs, Title => loc('Extract a new article from ticket #[_1]',$Ticket) &> <&|/l&>Select topics for this article:
<& Elements/EditTopics, Classes => [$ClassObj], OnlyThisClass => 1, id => 'new', &>
<%args> $Ticket => undef $Class => undef <%init> my $ClassObj = RT::FM::Class->new($session{'CurrentUser'}); $ClassObj->Load($Class); unless ($ClassObj->Id) { $m->comp("/RTFM/Elements/Error", Why => "'%1' isn't a valid class identifier", $Class); }