[Rt-commit] r7693 - in rtir/branches/2.3-EXPERIMENTAL: html/RTIR/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr 25 09:49:53 2007
New Revision: 7693

Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Elements/UpdateData

Log:
 r1921 at cubic-pc:  cubic | 2007-04-25 17:47:00 +0400
 * add Sign/Encrypt to reply pages


Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Elements/UpdateData
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Elements/UpdateData	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Elements/UpdateData	Wed Apr 25 09:49:53 2007
@@ -37,6 +37,12 @@
 &>
 </&></td></tr>
 
+<tr><td>&nbsp;</td><td>
+<% loc('Sign')%> <& /Widgets/Form/Boolean:InputOnly, Name => 'Sign', CurrentValue => $ARGS{'Sign'} &>
+&nbsp;&nbsp;&nbsp;
+<% loc('Encrypt')%> <& /Widgets/Form/Boolean:InputOnly, Name => 'Encrypt', CurrentValue => $ARGS{'Encrypt'} &>
+</td></tr>
+
 <tr><td align="right" valign="top"><&|/l&>Message</&>:</td><td>
 % $m->callback( %ARGS, CallbackPage => '/Ticket/Update.html', CallbackName => 'BeforeMessageBox' );
 % if ( exists $ARGS{'UpdateContent'} ) {
@@ -66,6 +72,14 @@
     }
 }
 
+foreach ( qw(Sign Encrypt) ) {
+    $ARGS{ $_ } = $m->comp( '/Widgets/Form/Boolean:Process',
+        Name => $_,
+        DefaultValue => $Ticket->QueueObj->$_,
+        Arguments => \%ARGS,
+    );
+}
+
 my $siblings = RT::Tickets->new( $Ticket->CurrentUser );
 if ( @parents ) {
     my $siblings_query = "Queue = 'Incident Reports'"