blob: 0699c6868e9644ab26bd7f5d027bfaa3749fc55d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectResultsPerPage,v 1.1 2002-08-12 06:17:08 ivan Exp $
%# TODO: Better default handling
<SELECT NAME ="<%$Name%>">
% foreach my $value (@values) {
<OPTION VALUE="<%$value%>" <% $value == $Default && 'SELECTED' %>>
<% shift @labels %>
</OPTION>
% }
</SELECT>
<%INIT>
my @values = qw(0 10 25 50 100);
my @labels = qw(Unlimited 10 25 50 100);
</%INIT>
<%ARGS>
$Name => undef
$Default => 50
</%ARGS>
|
