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

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug 28 14:49:07 2007
New Revision: 8813

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

Log:
 r8765 at cubic-pc (orig r8764):  sartak | 2007-08-28 22:11:54 +0400
  r37491 at onn:  sartak | 2007-08-28 14:11:42 -0400
  Add a hook for retrieving multiple keys for an email address
 


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	Tue Aug 28 14:49:07 2007
@@ -1546,6 +1546,12 @@
 }
 
 sub GetKeyInfo {
+    my %res = GetKeysInfo(@_);
+    $res{'info'} = $res{'info'}->[0];
+    return %res;
+}
+
+sub GetKeysInfo {
     my $email = shift;
     my $type = shift || 'public';
 
@@ -1597,7 +1603,7 @@
     }
 
     @info = ParseKeysInfo( @info );
-    $res{'info'} = $info[0];
+    $res{'info'} = \@info;
     return %res;
 }