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