[Rt-commit] r9886 - rt/branches/3.7-RTIR-RELENG/html/Elements/GnuPG

[ruz at bestpractical.com]

Author: ruz
Date: Tue Dec 11 09:21:48 2007
New Revision: 9886

Modified:
   rt/branches/3.7-RTIR-RELENG/html/Elements/GnuPG/SignEncryptWidget

Log:
* make Check method of SignEncryptWidget re-entrant

Modified: rt/branches/3.7-RTIR-RELENG/html/Elements/GnuPG/SignEncryptWidget
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/html/Elements/GnuPG/SignEncryptWidget	(original)
+++ rt/branches/3.7-RTIR-RELENG/html/Elements/GnuPG/SignEncryptWidget	Tue Dec 11 09:21:48 2007
@@ -93,7 +93,7 @@
         : ( $QueueObj->CorrespondAddress || RT->Config->Get('CorrespondAddress') );
 
     unless ( RT::Crypt::GnuPG::DrySign( $address ) ) {
-        $self->{'GnuPGCanNotSignAs'} = [ $address ];
+        push @{ $self->{'GnuPGCanNotSignAs'} ||= [] }, $address;
         $checks_failure = 1;
     } else {
         RT::Crypt::GnuPG::UseKeyForSigning( $self->{'SignUsing'} )
@@ -138,7 +138,7 @@
     );
 
     my ($status, @issues) = RT::Crypt::GnuPG::CheckRecipients( @recipients );
-    $self->{'GnuPGRecipientsKeyIssues'} = \@issues;
+    push @{ $self->{'GnuPGRecipientsKeyIssues'} ||= [] }, @issues;
     $checks_failure = 1 unless $status;
 }