projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6dc9006310409a920fec636a3ebf62dfc514a1fe
[freeside.git]
/
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>