rt/webrt/Elements/SelectBoolean

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectBoolean,v 1.1 2002-08-12 06:17:08 ivan Exp $
   2 <SELECT NAME ="<%$Name%>">
   3 <OPTION VALUE="<%$TrueVal%>" <%$TrueDefault%>><%$True%></OPTION>
   4 <OPTION VALUE="<%$FalseVal%>" <%$FalseDefault%>><%$False%></OPTION>
   5 </SELECT>
   6
   7 <%ARGS>
   8 $Name => undef
   9 $True => "is"
  10 $Default => 'true'
  11 $TrueVal => 1
  12 $FalseVal => 0
  13 $False => "isn't"
  14 </%ARGS>
  15
  16 <%INIT>
  17 my ($TrueDefault, $FalseDefault);
  18 if ($Default && $Default !~ /true/i) {
  19         $FalseDefault = "SELECTED";
  20 }
  21 else {
  22         $TrueDefault = "SELECTED";
  23 }
  24 </%INIT>