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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr  4 17:51:20 2007
New Revision: 7451

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html

Log:
 r4884 at cubic-pc:  cubic | 2007-04-04 02:32:15 +0400
 * use widgets for Sign and Encrypt args


Modified: rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html	Wed Apr  4 17:51:20 2007
@@ -150,9 +150,9 @@
 
 <tr>
 <td><% loc('Sign')%></td>
-<td><input type="checkbox" name="Sign" <% $ARGS{'Sign'} || $QueueObj->Sign? 'checked': '' %> /></td>
+<td><& /Widgets/Form/Boolean:InputOnly, Name => 'Sign', CurrentValue => $ARGS{'Sign'} &></td>
 <td><% loc('Encrypt')%></td>
-<td><input type="checkbox" name="Encrypt" <% $ARGS{'Encrypt'} || $QueueObj->Encrypt? 'checked': '' %> /></td>
+<td><& /Widgets/Form/Boolean:InputOnly, Name => 'Encrypt', CurrentValue => $ARGS{'Encrypt'} &></td>
 <td colspan="2">&nbsp;</td>
 </tr>
 
@@ -258,6 +258,14 @@
     ARGSRef => \%ARGS
 );
 
+foreach ( qw(Sign Encrypt) ) {
+    $ARGS{ $_ } = $m->comp( '/Widgets/Form/Boolean:Process',
+        Name => $_,
+        CurrentValue => $QueueObj->$_,
+        Arguments => \%ARGS,
+    );
+}
+
 # if no due date has been set explicitly, then use the
 # queue's default if it exists
 if ($QueueObj->DefaultDueIn && !$ARGS{'Due'}) {