rt/share/html/Admin/Elements/EditScripOptions

   1 % return if !@options;
   2 <tr><td></td><td><table>
   3 % my $prefix = $Name.'Rules-';
   4 % foreach my $o (@options) {
   5   <tr><td align="right"><% $o->{'label'} %>:</td>
   6   <td>
   7 %   if ( $o->{'type'} eq 'text' ) {
   8   <input type="text" name="<% $prefix.$o->{'name'} %>" value="<% $rules{$o->{'name'}} %>">
   9 %   }
  10 %   elsif ( $o->{'type'} eq 'select' and ref $o->{'options'} ) {
  11   <select name="<% $prefix.$o->{'name'} %>">
  12 %     my @choices = @{ $o->{'options'} };
  13 %     while (@choices) {
  14 %       my $v = shift @choices;
  15 %       my $l = shift @choices;
  16   <option value="<% $v %>"<% ($rules{$o->{'name'}} eq $v) ? ' SELECTED' : ''%>>
  17   <% $l %></option>
  18 %     }
  19   </select>
  20 %   } # else $o->{'type'}
  21 </td></tr>
  22 % } #foreach $o
  23 </table></td></tr>
  24
  25 <%INIT>
  26 my (@options, %rules);
  27 if ( $ScripX ) {
  28   my $ScripXObj = "RT::Scrip$Name"->new($session{'CurrentUser'});
  29   $ScripXObj->Load($ScripX);
  30   my $QueueObj = RT::Queue->new($session{'CurrentUser'});
  31   $QueueObj->Load($Queue);
  32   my $method = "Load$Name";
  33   my $XObj = $ScripXObj->$method();
  34   @options = $XObj->Options('QueueObj' => $QueueObj);
  35   %rules = split("\n", $Default);
  36 }
  37 </%INIT>
  38
  39 <%ARGS>
  40 $Name => undef
  41 $Default => undef
  42 $Queue => 0
  43 $ScripX => undef
  44 </%ARGS>