%# BEGIN LICENSE BLOCK %# %# Copyright (c) 1996-2002 Jesse Vincent %# %# (Except where explictly superceded by other copyright notices) %# %# This work is made available to you under the terms of Version 2 of %# the GNU General Public License. A copy of that license should have %# been provided with this software, but in any event can be snarfed %# from www.gnu.org %# %# This work 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. %# %# %# Unless otherwise specified, all modifications, corrections or %# extensions to this work which alter its source code become the %# property of Best Practical Solutions, LLC when submitted for %# inclusion in the work. %# %# %# END LICENSE BLOCK <& /Elements/Header, Title => loc("Create a new ticket") &> <& /Elements/Tabs, current_toptab => "Ticket/Create.html" &>
<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => loc("Create a new ticket") &> %# {{{ Basics %# }}} %# {{{ Custom Fields % while( my $cf = $CFs->Next() ) { % } %# }}} %# {{{ people %# }}} %# {{{ Dates %# }}} %# {{{ Relationships %# }}} %# {{{ Body %# }}}

<&|/l&>The Basics

<&|/l&>Queue: <% $QueueObj->Name %>
<&|/l&>Subject:
<&|/l&>Status: <& /Elements/SelectStatus, Name => "Status", Default=> 'new' &>
<&|/l&>Priority:
<&|/l&>Final Priority:
<&|/l&>Time Worked:
<&|/l&>Time Left:

<&|/l&>Custom Fields

<%$cf->Name%>: <% $cf->Description && ''.$cf->Description . '
'%> <& /Ticket/Elements/EditCustomFieldValues, Name => 'CustomField-'.$cf->Id, CustomField => $cf &>

<&|/l&>People

<&|/l&>Owner: <& /Elements/SelectOwner, Name => "Owner", QueueObj => $QueueObj &>
<&|/l&>Requestors:
<&|/l&>Cc:
<&|/l&>Admin Cc:

<&|/l&>Dates

<&|/l&>Starts:
<&|/l&>Due:

<&|/l&>Relationships

<&|/l&>(Enter ticket ids or URLs, seperated with spaces)
<&|/l&>Depends on:
<&|/l&>Depended on by:
<&|/l&>Parents:
<&|/l&>Children:
<&|/l&>Refers to:
<&|/l&>Referred to by:

<&|/l&>Ticket content

<&|/l&>Attach file:
<&|/l&>Describe the issue below:
<& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &>
<& /Elements/TitleBoxEnd&> <& /Elements/Submit, Label => loc("Create") &> <%INIT> my $QueueObj = new RT::Queue($session{'CurrentUser'}); $QueueObj->Load($Queue) || Abort(loc("Queue could not be loaded.")); my $CFs = $QueueObj->CustomFields(); <%ARGS> $DependsOn => undef $DependedOnBy => undef $MemberOf => undef $QuoteTransaction => undef $Queue => undef