blob: f93dc1af27453638c98a17d47a7ac28599da4d47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectEqualityOperator,v 1.1 2002-08-12 06:17:08 ivan Exp $
<SELECT NAME ="<%$Name%>">
% while (my $option = shift @Options) {
% my $value = shift @Values;
<OPTION VALUE="<%$value%>"
% if ($Default eq '$value') {
SELECTED
% }
><%$option%></OPTION>
% }
</SELECT>
<%ARGS>
$Name => undef
@Options => ('less than', 'equal to', 'greater than', 'not equal to')
@Values => qw(< = > !=)
$Default => undef
</%ARGS>
|
