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

[sartak at bestpractical.com]

Author: sartak
Date: Fri Oct 19 12:32:25 2007
New Revision: 9356

Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Create.html

Log:
 r43877 at onn:  sartak | 2007-10-19 12:32:14 -0400
 Add DrySign to Incident/Create


Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Create.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Create.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Create.html	Fri Oct 19 12:32:25 2007
@@ -63,6 +63,10 @@
 % }
 <a name="top" />
 
+% if ($cannot_sign) {
+<& /Elements/GnuPGSignIssues &>
+% }
+
 <& /Elements/GnuPGKeyIssues, Issues => \@gnupg_keys_issues &>
 
 <&| /Widgets/TitleBox, title => $Title &>
@@ -234,6 +238,15 @@
 
 my $checks_failure = 0;
 
+my $cannot_sign = 0;
+if ( $CreateIncident && $ARGS{'Sign'} ) {
+    my $address = $Ticket->QueueObj->CorrespondAddress;
+    if (!RT::Crypt::GnuPG::DrySign($address, "x")) {
+        $cannot_sign = 1;
+        $checks_failure = 1;
+    }
+}
+
 my @gnupg_keys_issues;
 if ( $CreateIncident && $ARGS{'Encrypt'} ) {