%# 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=> $title &> <& /Ticket/Elements/Tabs, Ticket => $Ticket &> <& /Elements/TitleBoxStart, title => $title &>
<&|/l&>Ticket watchers <&|/l&>Requestor: <% $Ticket->RequestorAddresses %>
  <&|/l&>Cc: <% $Ticket->CcAddresses %>
  <&|/l&>AdminCc: <% $Ticket->AdminCcAddresses %>


<&|/l&>Status: <& /Elements/SelectStatus, Name=>"Status", Default => $DefaultStatus &> <&|/l&>Owner: <& /Elements/SelectOwner, Name=>"Owner", Default => $Ticket->OwnerObj->Id(), QueueObj => $Ticket->QueueObj, TicketObj => $Ticket &> <&|/l&>Worked: <&|/l&>minutes
<&|/l&>Update Type:
<&|/l&>Subject:
<&|/l&>Cc:
<&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of email addresses. Does not change who will recieve future updates.)
<&|/l&>Bcc:
<&|/l&>(Sends a blind carbon-copy of this update to a comma-delimited list of email addresses. Does not change who will recieve future updates.)
<&|/l&>Attach:
<&|/l&>Message:<& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &>
<& /Elements/TitleBoxEnd &> <& /Elements/Submit &> <%INIT> my $CanRespond = 0; my $CanComment = 0; my $title; my $Ticket = LoadTicket($id); if ($DefaultStatus eq 'resolved') { $title = loc("Resolve"); } else { $title = loc("Update"); } $title .= " ticket #" . $Ticket->id . " (" .$Ticket->Subject.")"; # Things needed in the template - we'll do the processing here, just # for the convinience: my $CommentDefault=$Action eq "Comment" ? "SELECTED" : ""; my $ResponseDefault=$Action eq "Respond" ? "SELECTED" : ""; $DefaultStatus = $Ticket->Status() unless ($DefaultStatus); $CanRespond = 1 if ( $Ticket->CurrentUserHasRight('ReplyToTicket') or $Ticket->CurrentUserHasRight('ModifyTicket') ); $CanComment = 1 if ( $Ticket->CurrentUserHasRight('CommentOnTicket') or $Ticket->CurrentUserHasRight('ModifyTicket') ); <%ARGS> $id => undef $Action => undef $DefaultStatus => undef