rt/webrt/Elements/SelectSortOrder

   1 <SELECT NAME="<%$Name%>">
   2 %foreach my $order (@orders) {
   3 <OPTION VALUE="<%$order%>" <%$order eq $Default && 'SELECTED' %>>
   4 <% shift @order_names %>
   5 </OPTION>
   6 % }
   7 </SELECT>
   8
   9 <%INIT>
  10 my @orders = qw (ASC DESC);
  11 my @order_names = qw (Ascending Descending);
  12
  13 </%INIT>
  14
  15 <%ARGS>
  16 $Name => 'SortOrder'
  17 $Default => 'ASC'
  18 </%ARGS>