93b78ce76ecff09fa8cb30caffa5352c6b64d8f9
[freeside.git] / 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>