rt/webrt/Elements/SelectEqualityOperator

   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') {
   7 SELECTED
   8 % }
   9 ><%$option%></OPTION>
  10 % }
  11 </SELECT>
  12
  13 <%ARGS>
  14 $Name => undef
  15 @Options => ('less than', 'equal to', 'greater than', 'not equal to')
  16 @Values => qw(< = > !=)
  17 $Default => undef
  18 </%ARGS>