[Rt-commit] rtir branch, 4.0/fix-recipient-squelching-on-update, created. 4.0.1-3-g558d66d7

[Dianne Skoll]

The branch, 4.0/fix-recipient-squelching-on-update has been created
        at  558d66d7ad109df251df79cc686055a156071c25 (commit)

- Log -----------------------------------------------------------------
commit 558d66d7ad109df251df79cc686055a156071c25
Author: Dianne Skoll <dianne at bestpractical.com>
Date:   Wed Dec 9 13:53:48 2020 -0500

    Fix bug: Deselecting recipients when commenting/corresponding did not squelch them.

diff --git a/html/RTIR/Update.html b/html/RTIR/Update.html
index 83068b6b..7c7e0c7e 100644
--- a/html/RTIR/Update.html
+++ b/html/RTIR/Update.html
@@ -52,6 +52,7 @@
 <& /Elements/ListActions, actions => \@results &>
 
 <form action="Update.html" name="TicketUpdate" method="post" enctype="multipart/form-data">
+<input type="hidden" name="NeedTxnRecipientsHiddenInput" value="1">
 <input type="hidden" name="id" value="<% $id %>" />
 <input type="hidden" class="hidden" name="Token" value="<% $ARGS{'Token'} %>" />
 <input type="hidden" name="QuoteTransaction" value="<% $ARGS{'QuoteTransaction'} || '' %>" />
@@ -235,9 +236,8 @@ if ( $SubmitTicket ) {
 }
 
 if ( !$checks_failure && $SubmitTicket ) {
-    my %checked = map {$_ => 1} grep {defined} @TxnSendMailTo;
-    my @squelchlist = grep {not $checked{$_}} split /,/, $TxnRecipients;
-    $ARGS{'SquelchMailTo'} = \@squelchlist if @squelchlist;
+    my %squelched = ProcessTransactionSquelching( \%ARGS );
+    $ARGS{'SquelchMailTo'} = [ keys %squelched ] if keys %squelched;
 }
 
 if ( !$checks_failure && $SubmitTicket ) {

-----------------------------------------------------------------------