[Rt-commit] rtir branch, 2.9-trunk, updated. 2.6.1rc1-252-g7ddb90a

[Ruslan Zakirov]

The branch, 2.9-trunk has been updated
       via  7ddb90a60b2b8d33acbb6b98a8bf1fdc9f831186 (commit)
      from  439ae2228be7167d4bd6153cbb4cc56c75234e81 (commit)

Summary of changes:
 html/RTIR/Update.html |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 7ddb90a60b2b8d33acbb6b98a8bf1fdc9f831186
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Tue Aug 16 19:57:44 2011 +0400

    process TxnSendMailTo

diff --git a/html/RTIR/Update.html b/html/RTIR/Update.html
index 0c401b6..e4b82f6 100644
--- a/html/RTIR/Update.html
+++ b/html/RTIR/Update.html
@@ -173,6 +173,12 @@ if ( $ARGS{'SubmitTicket'} ) {
 }
 
 if ( !$checks_failure && exists $ARGS{SubmitTicket} ) {
+    my %checked = map {$_ => 1} grep {defined} @TxnSendMailTo;
+    my @squelchlist = grep {not $checked{$_}} split /,/, ($ARGS{'TxnRecipients'}||'');
+    $ARGS{'SquelchMailTo'} = \@squelchlist if @squelchlist;
+}
+
+if ( !$checks_failure && exists $ARGS{SubmitTicket} ) {
     $m->callback(CallbackName => 'BeforeDisplay', ARGSRef => \%ARGS, Ticket => $Ticket);
 
     return $m->comp('/RTIR/Display.html', %ARGS);
@@ -184,4 +190,5 @@ if ( !$checks_failure && exists $ARGS{SubmitTicket} ) {
 $id => undef
 $DefaultStatus => undef
 $Action => undef
+ at TxnSendMailTo => ()
 </%ARGS>

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