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

[ruz at bestpractical.com]

Author: ruz
Date: Thu Apr 19 17:49:44 2007
New Revision: 7573

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm

Log:
 r5000 at cubic-pc:  cubic | 2007-04-20 01:36:42 +0400
 * normalize key reporting in messages


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	Thu Apr 19 17:49:44 2007
@@ -817,7 +817,7 @@
             if ( exists $res{'User'}->{'EmailAddress'} ) {
                 $res{'Message'} .= ' for '. $res{'User'}->{'EmailAddress'};
             } else {
-                $res{'Message'} .= ' for '. $key_id;
+                $res{'Message'} .= " for '0x$key_id'";
             }
             push @res, \%res;
         }
@@ -855,7 +855,7 @@
             my %res = (
                 Operation => 'Decrypt',
                 Status    => 'DONE',
-                Message   => "The message is encrypted to $key",
+                Message   => "The message is encrypted to '0x$key'",
                 Key       => $key,
                 KeyLength => $key_length,
                 Algorithm => $alg,