rt/webrt/Elements/SelectMatch

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectMatch,v 1.1 2002-08-12 06:17:08 ivan Exp $
   2 <SELECT NAME ="<%$Name%>">
   3 <OPTION VALUE="LIKE" <%$LikeDefault%>><%$Like%></OPTION>
   4 <OPTION VALUE="NOT LIKE" <%$NotLikeDefault%>><%$NotLike%></OPTION>
   5 <OPTION VALUE="=" <%$TrueDefault%>><%$True%></OPTION>
   6 <OPTION VALUE="!=" <%$FalseDefault%>><%$False%></OPTION>
   7 </SELECT>
   8
   9 <%ARGS>
  10 $Name => undef
  11 $Like => 'contains'
  12 $NotLike => "doesn't contain"
  13 $True => 'is'
  14 $False => "isn't"
  15 $Default => undef
  16 </%ARGS>
  17 <%INIT>
  18 my ($TrueDefault, $FalseDefault, $LikeDefault, $NotLikeDefault);
  19 if ($Default && $Default !~ /true/i) {
  20         $FalseDefault = "SELECTED";
  21 }
  22 elsif ($Default && $Default !~ /false/i) {
  23         $TrueDefault = "SELECTED";
  24 }
  25 elsif ($Default && $Default !~ /notlike/i) {
  26         $NotLikeDefault = "SELECTED";
  27 }
  28 else {
  29         $LikeDefault = "SELECTED";
  30 }
  31 </%INIT>