[Rt-commit] r10087 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Dec 24 18:49:38 2007
New Revision: 10087

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Elements/GnuPG/SignEncryptWidget

Log:
 r9887 at cubic-pc (orig r9886):  ruz | 2007-12-11 17:21:48 +0300
 * make Check method of SignEncryptWidget re-entrant


Modified: rt/branches/3.7-EXPERIMENTAL/html/Elements/GnuPG/SignEncryptWidget
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Elements/GnuPG/SignEncryptWidget	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Elements/GnuPG/SignEncryptWidget	Mon Dec 24 18:49:38 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;
 }