%# $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>