From bdc63b4ee68fb08d3ef281212bdffac2bc038717 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 15 Sep 2014 20:54:03 -0700 Subject: RT 4.0.22 - remove inadvertantly commited files --- rt/share/html/Ticket/Create.html.orig | 463 --------------------- .../Elements/EditTransactionCustomFields.orig | 112 ----- rt/share/html/Ticket/Update.html.orig | 353 ---------------- 3 files changed, 928 deletions(-) delete mode 100755 rt/share/html/Ticket/Create.html.orig delete mode 100644 rt/share/html/Ticket/Elements/EditTransactionCustomFields.orig delete mode 100755 rt/share/html/Ticket/Update.html.orig (limited to 'rt/share/html/Ticket') diff --git a/rt/share/html/Ticket/Create.html.orig b/rt/share/html/Ticket/Create.html.orig deleted file mode 100755 index 697db546b..000000000 --- a/rt/share/html/Ticket/Create.html.orig +++ /dev/null @@ -1,463 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC -%# -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# 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. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -<& /Elements/Header, - Title => $title, - onload => "function () { hide('Ticket-Create-details') }" &> -<& /Elements/Tabs &> - -<& /Elements/ListActions, actions => \@results &> - -
- - -% $m->callback( CallbackName => 'FormStart', QueueObj => $QueueObj, ARGSRef => \%ARGS ); - -% if ($gnupg_widget) { - <& /Elements/GnuPG/SignEncryptWidget:ShowIssues, self => $gnupg_widget &> -% } - -
- - -
- <&| /Widgets/TitleBox, title => loc("Basics"), class=>'ticket-info-basics' &> - - <& /Ticket/Elements/EditBasics, - InTable => 1, - fields => [ - { name => 'Queue', - comp => '/Elements/SelectQueue', - args => { - Name => 'Queue', - Default => $QueueObj->Name, - QueueObj => $QueueObj, - ShowNullOption => 0, - ShowAllQueues => 0, - OnChange => "document.getElementsByName('id')[0].value = 'refresh'; form.submit()", - }, - }, - { name => 'Status', - comp => '/Elements/SelectStatus', - args => { - Name => "Status", - Default => $ARGS{Status} || $QueueObj->Lifecycle->DefaultOnCreate, - DefaultValue => 0, - SkipDeleted => 1, - QueueObj => $QueueObj, - }, - }, - { name => 'Owner', - comp => '/Elements/SelectOwner', - args => { - Name => "Owner", - Default => $ARGS{Owner} || RT->Nobody->Id, - DefaultValue => 0, - QueueObj => $QueueObj, - }, - } - ] - &> - -% $m->callback( CallbackName => 'AfterOwner', ARGSRef => \%ARGS ); - - <& /Ticket/Elements/EditCustomFields, %ARGS, QueueObj => $QueueObj, InTable => 1 &> - <& /Ticket/Elements/EditTransactionCustomFields, %ARGS, QueueObj => $QueueObj, InTable => 1 &> -
- -% $m->callback( CallbackName => 'AfterBasics', QueueObj => $QueueObj, ARGSRef => \%ARGS ); -
- -
- <&| /Widgets/TitleBox, title => $title, class => 'messagedetails' &> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -% if ( $gnupg_widget ) { - -% } - - - - - - <& /Ticket/Elements/AddAttachments, %ARGS, QueueObj => $QueueObj &> -
-<&|/l&>Requestors: - -<& /Elements/EmailInput, Name => 'Requestors', Size => undef, Default => exists($ARGS{Requestors}) ? $ARGS{Requestors} : $session{CurrentUser}->EmailAddress &> -% $m->callback( CallbackName => 'AfterRequestors', QueueObj => $QueueObj, ARGSRef => \%ARGS ); -
-<&|/l&>Cc: -<& /Elements/EmailInput, Name => 'Cc', Size => undef, Default => $ARGS{Cc} &>
  - - <&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of email addresses. These people will receive future updates.) - -
-<&|/l&>Admin Cc: -<& /Elements/EmailInput, Name => 'AdminCc', Size => undef, Default => $ARGS{AdminCc} &>
  - - <&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of administrative email addresses. These people will receive future updates.) - -
-<&|/l&>Subject: - - -% $m->callback( %ARGS, CallbackName => 'AfterSubject' ); -
  -<& /Elements/GnuPG/SignEncryptWidget, self => $gnupg_widget, QueueObj => $QueueObj &> -
-<&|/l&>Describe the issue below:
-% if ( RT->Config->Get('ArticleOnTicketCreate')) { -<& /Articles/Elements/BeforeMessageBox, %ARGS, QueueObj => $QueueObj &> -% } -% $m->callback( %ARGS, QueueObj => $QueueObj, CallbackName => 'BeforeMessageBox' ); -% if (exists $ARGS{Content}) { -<& /Elements/MessageBox, Default => $ARGS{Content}, IncludeSignature => 0 &> -% } else { -<& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &> -%} -% $m->callback( %ARGS, QueueObj => $QueueObj, CallbackName => 'AfterMessageBox' ); - -
-
- - <& /Elements/Submit, Label => loc("Create"), id => 'SubmitTicket' &> -
-
- -
- - - - - - - -
-
- <&| /Widgets/TitleBox, title => loc('The Basics'), - title_class=> 'inverse', - color => "#993333" &> - - - - - - - - - - - - -
<&|/l&>Priority:<& /Elements/SelectPriority, - Name => "InitialPriority", - Default => $ARGS{InitialPriority} ? $ARGS{InitialPriority} : $QueueObj->InitialPriority, -&>
<&|/l&>Final Priority:<& /Elements/SelectPriority, - Name => "FinalPriority", - Default => $ARGS{FinalPriority} ? $ARGS{FinalPriority} : $QueueObj->FinalPriority, -&>
<&|/l&>Time Estimated: -<& /Elements/EditTimeValue, Name => 'TimeEstimated', Default => $ARGS{TimeEstimated} || '', InUnits => $ARGS{'TimeEstimated-TimeUnits'} &> - -
<&|/l&>Time Worked: -<& /Elements/EditTimeValue, Name => 'TimeWorked', Default => $ARGS{TimeWorked} || '', InUnits => $ARGS{'TimeWorked-TimeUnits'} &> -
<&|/l&>Time Left: -<& /Elements/EditTimeValue, Name => 'TimeLeft', Default => $ARGS{TimeLeft} || '', InUnits => $ARGS{'TimeLeft-TimeUnits'} &> -
- -
-
-<&|/Widgets/TitleBox, title => loc("Dates"), - title_class=> 'inverse', - color => "#663366" &> - - - - -
<&|/l&>Starts:<& /Elements/SelectDate, Name => "Starts", Default => $ARGS{Starts} || '' &>
<&|/l&>Due:<& /Elements/SelectDate, Name => "Due", Default => $ARGS{Due} || '' &>
- -
-
-
-		 -
-<&| /Widgets/TitleBox, title => loc('Links'), title_class=> 'inverse' &> - -<&|/l&>(Enter ticket ids or URLs, separated with spaces) - - - - - - - - - -
<&|/l&>Depends on
<&|/l&>Depended on by
<&|/l&>Parents
<&|/l&>Children
<&|/l&>Refers to
<&|/l&>Referred to by
Customer ID
- -
-
- -
-<& /Elements/Submit, Label => loc("Create") &> -
-
- -<%INIT> -$m->callback( CallbackName => "Init", ARGSRef => \%ARGS ); -my $Queue = $ARGS{Queue}; -$session{DefaultQueue} = $Queue; - -if ($CloneTicket) { - my $CloneTicketObj = RT::Ticket->new( $session{CurrentUser} ); - $CloneTicketObj->Load($CloneTicket) - or Abort( loc("Ticket could not be loaded") ); - - my $clone = { - Requestors => join( ',', $CloneTicketObj->RequestorAddresses ), - Cc => join( ',', $CloneTicketObj->CcAddresses ), - AdminCc => join( ',', $CloneTicketObj->AdminCcAddresses ), - InitialPriority => $CloneTicketObj->Priority, - }; - - $clone->{$_} = $CloneTicketObj->$_() - for qw/Owner Subject FinalPriority Status/; - # not TimeWorked, TimeEstimated, or TimeLeft - - $clone->{$_} = $CloneTicketObj->$_->AsString - for grep { $CloneTicketObj->$_->Unix } - map { $_ . "Obj" } qw/Starts Started Due Resolved/; - - my $members = $CloneTicketObj->Members; - my ( @members, @members_of, @refers, @refers_by, @depends, @depends_by ); - my $refers = $CloneTicketObj->RefersTo; - my $get_link_value = sub { - my ($link, $type) = @_; - my $uri_method = $type . 'URI'; - my $local_method = 'Local' . $type; - my $uri = $link->$uri_method; - return if $uri->IsLocal and - $uri->Object and - $uri->Object->isa('RT::Ticket') and - $uri->Object->Type eq 'reminder'; - - return $link->$local_method || $uri->URI; - }; - while ( my $refer = $refers->Next ) { - my $refer_value = $get_link_value->($refer, 'Target'); - push @refers, $refer_value if defined $refer_value; - } - $clone->{'new-RefersTo'} = join ' ', @refers; - - my $refers_by = $CloneTicketObj->ReferredToBy; - while ( my $refer_by = $refers_by->Next ) { - my $refer_by_value = $get_link_value->($refer_by, 'Base'); - push @refers_by, $refer_by_value if defined $refer_by_value; - } - $clone->{'RefersTo-new'} = join ' ', @refers_by; - - my $cfs = $CloneTicketObj->QueueObj->TicketCustomFields(); - while ( my $cf = $cfs->Next ) { - next if $cf->FirstAttribute('NoClone'); - my $cf_id = $cf->id; - my $cf_values = $CloneTicketObj->CustomFieldValues( $cf->id ); - my @cf_values; - while ( my $cf_value = $cf_values->Next ) { - push @cf_values, $cf_value->Content; - } - - if ( @cf_values > 1 && $cf->Type eq 'Select' ) { - $clone->{"Object-RT::Ticket--CustomField-$cf_id-Value"} = \@cf_values; - } - else { - $clone->{"Object-RT::Ticket--CustomField-$cf_id-Value"} = join "\n", - @cf_values; - } - } - - # Pass customer links along (even though cloning of parent links - # in general is disabled). - my $customers = $CloneTicketObj->Customers; - my @customers; - while ( my $customer = $customers->Next ) { - my ($custnum) = $customer->Target =~ /cust_main\/(\d+)$/; - push @customers, $custnum if $custnum; - } - $clone->{'new-Customer'} = join(' ', @customers); - - for ( keys %$clone ) { - $ARGS{$_} = $clone->{$_} if not defined $ARGS{$_}; - } - -} - -my @results; - -my $title = loc("Create a new ticket"); - -my $QueueObj = RT::Queue->new($session{'CurrentUser'}); -$QueueObj->Load($Queue) || Abort(loc("Queue could not be loaded.")); - -$m->callback( QueueObj => $QueueObj, title => \$title, results => \@results, ARGSRef => \%ARGS ); - -$QueueObj->Disabled && Abort(loc("Cannot create tickets in a disabled queue.")); - -my $CFs = $QueueObj->TicketCustomFields(); - -my $ValidCFs = $m->comp( - '/Elements/ValidateCustomFields', - CustomFields => $CFs, - ARGSRef => \%ARGS -); - -ProcessAttachments(ARGSRef => \%ARGS); - -my $checks_failure = 0; - -my $gnupg_widget = $m->comp('/Elements/GnuPG/SignEncryptWidget:new', Arguments => \%ARGS ); -$m->comp( '/Elements/GnuPG/SignEncryptWidget:Process', - self => $gnupg_widget, - QueueObj => $QueueObj, -); - - -if ( !exists $ARGS{'AddMoreAttach'} && ($ARGS{'id'}||'') eq 'new' ) { - my $status = $m->comp('/Elements/GnuPG/SignEncryptWidget:Check', - self => $gnupg_widget, - Operation => 'Create', - QueueObj => $QueueObj, - ); - $checks_failure = 1 unless $status; -} - -# check email addresses for RT's -{ - foreach my $field ( qw(Requestors Cc AdminCc) ) { - my $value = $ARGS{ $field }; - next unless defined $value && length $value; - - my @emails = Email::Address->parse( $value ); - foreach my $email ( grep RT::EmailParser->IsRTAddress($_->address), @emails ) { - push @results, loc("[_1] is an address RT receives mail at. Adding it as a '[_2]' would create a mail loop", $email->format, loc($field =~ /^(.*?)s?$/) ); - $checks_failure = 1; - $email = undef; - } - $ARGS{ $field } = join ', ', map $_->format, grep defined, @emails; - } -} - -my $skip_create = 0; -$m->callback( CallbackName => 'BeforeCreate', ARGSRef => \%ARGS, skip_create => \$skip_create, - checks_failure => $checks_failure, results => \@results ); - -$m->comp( '/Articles/Elements/CheckSkipCreate', ARGSRef => \%ARGS, skip_create => \$skip_create, - checks_failure => $checks_failure, results => \@results ); - -if ((!exists $ARGS{'AddMoreAttach'}) and (defined($ARGS{'id'}) and $ARGS{'id'} eq 'new')) { # new ticket? - if ( $ValidCFs && !$checks_failure && !$skip_create ) { -# CREATE THE TICKET. -# For some reason it's done by a Mason component named "Display.html" -# and the call is buried in obscure error-handling stuff. -# This comment exists to make it more visually obvious. -# ************************************************************ - - $m->comp('Display.html', %ARGS); - -# ************************************************************ -# Execution should not continue here. Display.html calls -# Redirect() which does an $m->abort. We only get here if the -# code dies before then, hence "$@". - $RT::Logger->crit("After display call; error is $@"); - $m->abort(); - } - elsif ( !$ValidCFs ) { - # Invalid CFs - while (my $CF = $CFs->Next) { - my $msg = $m->notes('InvalidField-' . $CF->Id) or next; - push @results, $CF->Name . ': ' . $msg; - } - } -} -PageMenu->child( basics => raw_html => q[] . loc('Basics') . q[]); -PageMenu->child( details => raw_html => q[] . loc('Details') . q[]); - - -<%ARGS> -$DependsOn => undef -$DependedOnBy => undef -$MemberOf => undef -$QuoteTransaction => undef -$CloneTicket => undef - diff --git a/rt/share/html/Ticket/Elements/EditTransactionCustomFields.orig b/rt/share/html/Ticket/Elements/EditTransactionCustomFields.orig deleted file mode 100644 index a52ecc349..000000000 --- a/rt/share/html/Ticket/Elements/EditTransactionCustomFields.orig +++ /dev/null @@ -1,112 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC -%# -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# 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. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -% $m->callback( CallbackName => 'BeforeTransactionCustomFields', TicketObj => $TicketObj, QueueObj => $QueueObj, NamePrefix => $NamePrefix ); -% if ( $WRAP ) { -<<% $WRAP %> class="edit-transaction-custom-fields"> -% } -% if ($CustomFields->Count) { -% while (my $CF = $CustomFields->Next()) { -% $CF->SetContextObject($TicketObj || $QueueObj); -% next unless $CF->CurrentUserHasRight('ModifyCustomField'); -% next unless $CF->UILocation eq $UILocation; -<<% $FIELD %>> -<<% $CELL %> class="label cflabel"> - <% loc($CF->Name) %>:
-% if ( $CF->Type ne 'TimeValue' ) { - <% $CF->FriendlyType %> -% } -> -<<% $CELL %>> -<& /Elements/EditCustomField, - CustomField => $CF, - NamePrefix => $NamePrefix -&> -% if (my $msg = $m->notes('InvalidField-' . $CF->Id)) { -
- <% $msg %> -% } -> -> -% } -% } -% if ( $WRAP ) { -> -% } -% $m->callback( CallbackName => 'AfterTransactionCustomFields', TicketObj => $TicketObj, QueueObj => $QueueObj, NamePrefix => $NamePrefix ); - -<%INIT> -my $CustomFields; - -if ($TicketObj) { - $CustomFields = $TicketObj->TransactionCustomFields(); -} else { - $CustomFields = $QueueObj->TicketTransactionCustomFields(); -} - -$m->callback( CallbackName => 'MassageTransactionCustomFields', CustomFields => $CustomFields ); - -$AsTable ||= $InTable; -my $FIELD = $AsTable ? 'tr' : 'div'; -my $CELL = $AsTable ? 'td' : 'div'; -my $WRAP = ''; -if ( $AsTable ) { - $WRAP = 'table' unless $InTable; -} else { - $WRAP = 'div'; -} - - -<%ARGS> -$NamePrefix => "Object-RT::Transaction--CustomField-" -$TicketObj => undef -$QueueObj => undef -$AsTable => 0 -$InTable => 0 -$UILocation => '' - - diff --git a/rt/share/html/Ticket/Update.html.orig b/rt/share/html/Ticket/Update.html.orig deleted file mode 100755 index ae6b70095..000000000 --- a/rt/share/html/Ticket/Update.html.orig +++ /dev/null @@ -1,353 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC -%# -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# 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. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -<& /Elements/Header, Title => $title &> -<& /Elements/Tabs &> - -% $m->callback(CallbackName => 'BeforeActionList', ARGSRef => \%ARGS, Ticket => $TicketObj); -<& /Elements/ListActions, actions => \@results &> - -
-% $m->callback( CallbackName => 'FormStart', ARGSRef => \%ARGS, Ticket => $TicketObj, CanRespond => $CanRespond, CanComment => $CanComment, ResponseDefault => $ResponseDefault, CommentDefault => $CommentDefault ); - - - - -<& /Elements/GnuPG/SignEncryptWidget:ShowIssues, self => $gnupg_widget &> - -
- <&|/Widgets/TitleBox, title => loc('Ticket and Transaction') &> - -% $m->callback(CallbackName => 'AfterTableOpens', ARGSRef => \%ARGS, Ticket => $TicketObj); - -<& /Ticket/Elements/EditTransactionCustomFields, - %ARGS, - TicketObj => $TicketObj, - UILocation => 'TimeWorked', -&> - -% my $skip; -% $m->callback( %ARGS, CallbackName => 'BeforeUpdateType', skip => \$skip ); -% if (!$skip) { -
-% } - - - - - -<& /Ticket/Elements/EditBasics, - TicketObj => $TicketObj, - InTable => 1, - fields => [ - { name => 'Status', - comp => '/Elements/SelectStatus', - args => { - Name => 'Status', - DefaultLabel => loc("[_1] (Unchanged)", loc($TicketObj->Status)), - Default => $ARGS{'Status'} || ($TicketObj->Status eq $DefaultStatus ? undef : $DefaultStatus), - TicketObj => $TicketObj, - QueueObj => $TicketObj->QueueObj, - onchange => 'changeStatus()' - }, - }, - { name => 'Resolve this Ticket on', - comp => '/Elements/SelectDate', - args => { - menu_prefix => 'WillResolve', - current => 0, - ShowTime => 0, - }, - }, - { name => 'Owner', - comp => '/Elements/SelectOwner', - args => { - Name => "Owner", - TicketObj => $TicketObj, - QueueObj => $TicketObj->QueueObj, - DefaultLabel => loc("[_1] (Unchanged)", $m->scomp('/Elements/ShowUser', User => $TicketObj->OwnerObj)), - Default => $ARGS{'Owner'} - } - }, - { name => 'Worked', - comp => '/Elements/EditTimeValue', - args => { - Name => 'UpdateTimeWorked', - Default => $ARGS{UpdateTimeWorked}||'', - InUnits => $ARGS{'UpdateTimeWorked-TimeUnits'}||'minutes', - } - }, - ] -&> - - - -% $m->callback( %ARGS, CallbackName => 'AfterWorked', Ticket => $TicketObj ); - -<& /Ticket/Elements/EditTransactionCustomFields, %ARGS, TicketObj => $TicketObj, AsTable => 1 &> - - - - - -
- <& /Ticket/Elements/ShowSimplifiedRecipients, TicketObj => $TicketObj, %ARGS &> - - <&|/Widgets/TitleBox, title => loc('Message'), class => 'messagedetails' &> -
<&|/l&>Update Type: - - - -% $m->callback( %ARGS, CallbackName => 'AfterUpdateType' ); -
-<& /Ticket/Elements/UpdateCc, %ARGS, TicketObj => $TicketObj &> - -% if ( $gnupg_widget ) { - -% } -% $m->callback( %ARGS, CallbackName => 'AfterGnuPG' ); - - - - - - - <& /Ticket/Elements/AddAttachments, %ARGS, TicketObj => $TicketObj &> -
  -<& /Elements/GnuPG/SignEncryptWidget, - self => $gnupg_widget, - TicketObj => $TicketObj, -&> -
<&|/l&>Subject: -% $m->callback( %ARGS, CallbackName => 'AfterSubject' ); -
<&|/l&>Message: -<& /Articles/Elements/BeforeMessageBox, %ARGS &> -% $m->callback( %ARGS, CallbackName => 'BeforeMessageBox' ); -% if (exists $ARGS{UpdateContent}) { -% # preserve QuoteTransaction so we can use it to set up sane references/in/reply to -% my $temp = $ARGS{'QuoteTransaction'}; -% delete $ARGS{'QuoteTransaction'}; -<& /Elements/MessageBox, Name=>"UpdateContent", Default=>$ARGS{UpdateContent}, IncludeSignature => 0, %ARGS&> -% $ARGS{'QuoteTransaction'} = $temp; -% } else { -% my $IncludeSignature = 1; -% $IncludeSignature = 0 if $Action ne 'Respond' && !RT->Config->Get('MessageBoxIncludeSignatureOnComment'); -<& /Elements/MessageBox, Name=>"UpdateContent", IncludeSignature => $IncludeSignature, %ARGS &> -% } -% $m->callback( %ARGS, CallbackName => 'AfterMessageBox' ); -
- - -% $m->callback( %ARGS, CallbackName => 'BeforeSubmit', Ticket => $TicketObj ); - - <& /Elements/Submit, Label => loc('Update Ticket'), Name => 'SubmitTicket', id => 'SubmitTicket' &> - -% $m->callback( %ARGS, CallbackName => 'BeforeScrips', Ticket => $TicketObj ); - -% if ($TicketObj->CurrentUserHasRight('ShowOutgoingEmail')) { - <&|/Widgets/TitleBox, title => loc('Scrips and Recipients'), id => 'previewscrips', rolledup => RT->Config->Get('SimplifiedRecipients', $session{'CurrentUser'}) &> - <& /Ticket/Elements/PreviewScrips, TicketObj => $TicketObj, %ARGS &> - -% } -
- -% $m->callback( %ARGS, CallbackName => 'AfterScrips', Ticket => $TicketObj ); - -% if (my $recips = $m->notes("DryRun-Recipients-".$TicketObj->Id)) { -" /> -% } - -
-
- -% $m->callback( %ARGS, CallbackName => 'AfterForm', Ticket => $TicketObj ); - -<%INIT> -my $CanRespond = 0; -my $CanComment = 0; -my $checks_failure = 0; - -my $TicketObj = LoadTicket($id); - -my @results; - -$m->callback( Ticket => $TicketObj, ARGSRef => \%ARGS, checks_failure => \$checks_failure, results => \@results, CallbackName => 'Initial' ); - -unless($DefaultStatus){ - $DefaultStatus=($ARGS{'Status'} ||$TicketObj->Status()); -} - -my $title = loc("Update ticket #[_1] ([_2])", $TicketObj->id, $TicketObj->Subject||''); - -# Things needed in the template - we'll do the processing here, just -# for the convenience: - -my ($CommentDefault, $ResponseDefault); -if ($Action ne 'Respond') { - $CommentDefault = qq[ selected="selected"]; - $ResponseDefault = ""; -} else { - $CommentDefault = ""; - $ResponseDefault = qq[ selected="selected"]; -} - -my $type = $ARGS{'UpdateType'} ? $ARGS{'UpdateType'} : - lc $ARGS{'Action'} eq 'respond' ? 'response' : - lc $ARGS{'Action'} eq 'comment' ? 'private' : - 'none' ; - - -$CanRespond = 1 if ( $TicketObj->CurrentUserHasRight('ReplyToTicket') or - $TicketObj->CurrentUserHasRight('ModifyTicket') ); - -$CanComment = 1 if ( $TicketObj->CurrentUserHasRight('CommentOnTicket') or - $TicketObj->CurrentUserHasRight('ModifyTicket') ); - - -ProcessAttachments(ARGSRef => \%ARGS); - -my $gnupg_widget = $m->comp('/Elements/GnuPG/SignEncryptWidget:new', Arguments => \%ARGS ); -$m->comp( '/Elements/GnuPG/SignEncryptWidget:Process', - self => $gnupg_widget, - TicketObj => $TicketObj, -); - -if ( $ARGS{'SubmitTicket'} ) { - - my %squelched = ProcessTransactionSquelching( \%ARGS ); - $ARGS{'SquelchMailTo'} = [keys %squelched] if keys %squelched; - - my $CFs = $TicketObj->TransactionCustomFields; - my $ValidCFs = $m->comp( - '/Elements/ValidateCustomFields', - CustomFields => $CFs, - NamePrefix => "Object-RT::Transaction--CustomField-", - ARGSRef => \%ARGS - ); - unless ( $ValidCFs ) { - $checks_failure = 1; - while (my $CF = $CFs->Next) { - my $msg = $m->notes('InvalidField-' . $CF->Id) or next; - push @results, loc($CF->Name) . ': ' . $msg; - } - } - my $status = $m->comp('/Elements/GnuPG/SignEncryptWidget:Check', - self => $gnupg_widget, - TicketObj => $TicketObj, - ); - $checks_failure = 1 unless $status; -} - -# check email addresses for RT's -{ - foreach my $field ( qw(UpdateCc UpdateBcc) ) { - my $value = $ARGS{ $field }; - next unless defined $value && length $value; - - my @emails = Email::Address->parse( $value ); - foreach my $email ( grep RT::EmailParser->IsRTAddress($_->address), @emails ) { - push @results, loc("[_1] is an address RT receives mail at. Adding it as a '[_2]' would create a mail loop", $email->format, loc(substr($field, 6)) ); - $checks_failure = 1; - $email = undef; - } - $ARGS{ $field } = join ', ', map $_->format, grep defined, @emails; - } -} -my $skip_update = 0; -$m->callback( CallbackName => 'BeforeUpdate', ARGSRef => \%ARGS, skip_update => \$skip_update, - checks_failure => $checks_failure, results => \@results, TicketObj => $TicketObj ); - -if ( !$checks_failure && !$skip_update && exists $ARGS{SubmitTicket} ) { - $m->callback( Ticket => $TicketObj, ARGSRef => \%ARGS, CallbackName => 'BeforeDisplay' ); - return $m->comp('Display.html', TicketObj => $TicketObj, %ARGS); -} - - -<%ARGS> -$id => undef -$Action => undef -$DefaultStatus => undef - -- cgit v1.2.1