[Rt-commit] r8735 - in rtir/branches/2.3-EXPERIMENTAL: .

[sartak at bestpractical.com]

Author: sartak
Date: Fri Aug 24 19:02:33 2007
New Revision: 8735

Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)
   rtir/branches/2.3-EXPERIMENTAL/html/Callbacks/RTIR/Elements/RT__Ticket/ColumnMap/Once

Log:
 r19939 at onn:  sartak | 2007-08-24 19:00:25 -0400
 Untested, but this should Just Work (famous last words?)


Modified: rtir/branches/2.3-EXPERIMENTAL/html/Callbacks/RTIR/Elements/RT__Ticket/ColumnMap/Once
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/Callbacks/RTIR/Elements/RT__Ticket/ColumnMap/Once	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/Callbacks/RTIR/Elements/RT__Ticket/ColumnMap/Once	Fri Aug 24 19:02:33 2007
@@ -1,4 +1,5 @@
 <%INIT>
+use RT::Crypt::GnuPG;
 
 # XXX: map RTIR hidden custom fields staticaly because user has no rights
 # to see this CFs we need to hack over ACLs
@@ -68,10 +69,11 @@
     value => sub {
         my $t = shift;
         my @requestors = $t->Requestors->MemberEmailAddresses;
-        for (@requestors)
+        for my $email (@requestors)
         {
-            if ("we don't have key") {
-                $_ .= " (no pubkey!)";
+            my %key = RT::Crypt::GnuPG::GetKeyInfo($email);
+            if (!defined $key{'info'}) {
+                $email .= " (no pubkey!)";
             }
         }
         return join ', ', @requestors;
@@ -85,7 +87,8 @@
         my $email = $t->OwnerObj->EmailAddress;
         return $email if $email eq '';
 
-        if ("we don't have key") {
+        my %key = RT::Crypt::GnuPG::GetKeyInfo($email);
+        if (!defined $key{'info'}) {
             $email .= " (no pubkey!)";
         }
         return $email;