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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr 25 09:48:33 2007
New Revision: 7688

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

Log:
 r1919 at cubic-pc:  cubic | 2007-04-25 15:42:16 +0400
 * add Sign/Encrypt checkboxes to RTIR/Create


Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html	Wed Apr 25 09:48:33 2007
@@ -261,6 +261,13 @@
     </td>
   </tr>
   <tr><td colspan="3"><& SELF:AttachmentsForm &></td><tr>
+
+  <tr>
+    <td>&nbsp;</td>
+    <td><% loc('Sign')%><& /Widgets/Form/Boolean:InputOnly, Name => 'Sign', CurrentValue => $ARGS{'Sign'} &></td>
+    <td><% loc('Encrypt')%><& /Widgets/Form/Boolean:InputOnly, Name => 'Encrypt', CurrentValue => $ARGS{'Encrypt'} &></td>
+  </tr>
+
   <tr>
     <td class="labeltop"><&|/l&>Message</&>:</td>
     <td colspan="2">
@@ -326,6 +333,14 @@
     return $m->comp( "/RTIR/$Type/Create.html", %ARGS );
 }
 
+foreach ( qw(Sign Encrypt) ) {
+    $ARGS{ $_ } = $m->comp( '/Widgets/Form/Boolean:Process',
+        Name => $_,
+        DefaultValue => $QueueObj->$_,
+        Arguments => \%ARGS,
+    );
+}
+
 my ($Status, $name);
 if ( $Type eq 'Report' ) {
     $name = 'Incident Report';