[Rt-commit] r16527 - in rt/branches/3.999-DANGEROUS/share/html/Admin: Elements

[ruz at bestpractical.com]

Author: ruz
Date: Fri Oct 24 02:50:22 2008
New Revision: 16527

Added:
   rt/branches/3.999-DANGEROUS/share/html/Admin/Elements/SelectStatusSchema
Modified:
   rt/branches/3.999-DANGEROUS/share/html/Admin/Queues/Modify.html

Log:
* add schema slector to queue interface

Added: rt/branches/3.999-DANGEROUS/share/html/Admin/Elements/SelectStatusSchema
==============================================================================
--- (empty file)
+++ rt/branches/3.999-DANGEROUS/share/html/Admin/Elements/SelectStatusSchema	Fri Oct 24 02:50:22 2008
@@ -0,0 +1,13 @@
+<select name="<% $name %>">
+% for my $schema ( @list ) {
+<option value="<% $schema %>" <% $schema eq $default? 'selected="selected"' : '' |n %>><% $schema %></option>
+% }
+</select>
+<%INIT>
+my @list = RT::StatusSchema->list;
+$default = $default->name if ref $default;
+</%INIT>
+<%ARGS>
+$default => ''
+$name    => 'status_schema'
+</%ARGS>

Modified: rt/branches/3.999-DANGEROUS/share/html/Admin/Queues/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/html/Admin/Queues/Modify.html	(original)
+++ rt/branches/3.999-DANGEROUS/share/html/Admin/Queues/Modify.html	Fri Oct 24 02:50:22 2008
@@ -63,10 +63,14 @@
 <td colspan="3"><input name="name" value="<% ($create) ? "" : $queue_obj->name %>" /></td>
 </tr>
 
-<tr><td align="right"><&|/l&>description</&>:</td>
+<tr><td align="right"><&|/l&>Description</&>:</td>
 <td colspan="3"><input name="description" value="<% ($create) ? "" : $queue_obj->description %>" size="60" /></td>
 </tr>
 
+<tr><td align="right"><&|/l&>Status schema</&>:</td>
+<td colspan="3"><& /Admin/Elements/SelectStatusSchema, default => $create? '' : $queue_obj->status_schema  &></td>
+</tr>
+
 <tr><td align="right"><&|/l&>Subject Tag</&>:</td>
 <td colspan="3"><input name="subject_tag" value="<% $ARGS{'subject_tag'} || ($create ? "" : $queue_obj->subject_tag || '' ) %>" size="60" /></td>
 </tr>
@@ -158,7 +162,8 @@
 }
 if ( $queue_obj->id ) {
     my @attribs= qw(description correspond_address comment_address name
-        initial_priority final_priority default_due_in sign encrypt subject_tag disabled);
+        initial_priority final_priority default_due_in sign encrypt
+        status_schema subject_tag disabled);
 
     # we're asking about enabled on the web page but really care about disabled
     if ( $set_enabled ) {