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