<&| /Widgets/TitleBox, title => $QueueObj->Name &>
<%perl>
$showrows->(
loc("Subject") => '');
%perl>
<%loc("Describe the issue below")%>
<& /Elements/MessageBox, exists $ARGS{Content} ? (Default => $ARGS{Content}, IncludeSignature => 0 ) : ( QuoteTransaction => $QuoteTransaction ), Height => 5 &>
<&/Elements/Submit, Label => loc("Create") &>
&>
<&| /Widgets/TitleBox &>
<%perl>
$showrows->(
# loc('Queue') => $m->scomp( '/Ticket/Elements/ShowQueue', QueueObj => $QueueObj ) ,
loc('Status') =>
$m->scomp(
"/Elements/SelectStatus",
Name => "Status",
Default => $ARGS{Status} || 'new',
DefaultValue => 0,
SkipDeleted => 1
),
loc("Owner") =>
$m->scomp(
"/Elements/SelectOwner",
Name => "Owner",
QueueObj => $QueueObj,
Default => $ARGS{Owner} || $RT::Nobody->Id,
DefaultValue => 0
),
loc("Requestors") => $m->scomp(
"/Elements/EmailInput",
Name => 'Requestors',
Size => '40',
Default => $ARGS{Requestors} || $session{CurrentUser}->EmailAddress
),
loc("Cc") =>
$m->scomp( "/Elements/EmailInput", Name => 'Cc', Size => '40', Default => $ARGS{Cc} )
. '',
loc("Admin Cc") =>
$m->scomp( "/Elements/EmailInput", Name => 'AdminCc', Size => '40', Default => $ARGS{AdminCc} )
. '',
);
$m->scomp("/Ticket/Elements/EditCustomFields", %ARGS, QueueObj => $QueueObj );
$m->scomp("/Ticket/Elements/EditTransactionCustomFields", %ARGS, QueueObj => $QueueObj );
%perl>
% if (exists $session{'Attachments'}) {
<%loc("Attached file") %>
<%loc("Check box to delete")%>
% foreach my $attach_name (keys %{$session{'Attachments'}}) {
<%$attach_name%>
% } # end of foreach
% } # end of if
<%perl>
$showrows->(
loc("Attach file") =>
'
'
);
%perl>
% if ( $gnupg_widget ) {
%$m->scomp("/Elements/GnuPG/SignEncryptWidget", self => $gnupg_widget, QueueObj => $QueueObj )
% }
<&| /Widgets/TitleBox, title => loc('The Basics'),
title_class=> 'inverse',
color => "#993333" &>
<%perl>
$showrows->(
loc("Priority") => $m->scomp(
"/Elements/SelectPriority",
Name => "InitialPriority",
Default => $ARGS{InitialPriority} ? $ARGS{InitialPriority} : $QueueObj->InitialPriority,
),
loc("Final Priority") => $m->scomp(
"/Elements/SelectPriority",
Name => "FinalPriority",
Default => $ARGS{FinalPriority} ? $ARGS{FinalPriority} : $QueueObj->FinalPriority,
),
loc("Time Estimated") => ''.$m->scomp(
"/Elements/EditTimeValue",
Name => 'TimeEstimated',
Default => $ARGS{TimeEstimated} || '',
InUnits => $ARGS{'TimeEstimated-TimeUnits'}
).'',
loc("Time Worked") => ''.$m->scomp(
"/Elements/EditTimeValue",
Name => 'TimeWorked',
Default => $ARGS{TimeWorked} || '',
InUnits => $ARGS{'TimeWorked-TimeUnits'}
). '',
loc("Time Left") => ''.$m->scomp(
"/Elements/EditTimeValue",
Name => 'TimeLeft',
Default => $ARGS{TimeLeft} || '',
InUnits => $ARGS{'TimeLeft-TimeUnits'}
).'',
);
%perl>
&>
<&|/Widgets/TitleBox, title => loc("Dates"),
title_class=> 'inverse',
color => "#663366" &>
<%perl>
$showrows->(
loc("Starts") => $m->scomp( "/Elements/SelectDate", Name => "Starts", Default => ( $ARGS{Starts} || '' )),
loc("Due") => $m->scomp( "/Elements/SelectDate", Name => "Due", Default => ($ARGS{Due} || '' ))
);
%perl>
&>
<&|/Widgets/TitleBox, title => loc('Links'), title_class=> 'inverse' &>
<%loc("(Enter ticket ids or URLs, separated with spaces)")%>
<%perl>
$showrows->(
loc("Depends on") => '',
loc("Depended on by") => '',
loc("Parents") => '',
loc("Children") => '',
loc("Refers to") => '',
loc("Referred to by") => ''
);
%perl>
&>
<& /Elements/Submit, Label => loc("Create") &>
&>
&>