summaryrefslogtreecommitdiff
path: root/rt/webrt/Elements/SelectBoolean
blob: 93b78ce76ecff09fa8cb30caffa5352c6b64d8f9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectBoolean,v 1.1 2002-08-12 06:17:08 ivan Exp $
<SELECT NAME ="<%$Name%>">
<OPTION VALUE="<%$TrueVal%>" <%$TrueDefault%>><%$True%></OPTION>
<OPTION VALUE="<%$FalseVal%>" <%$FalseDefault%>><%$False%></OPTION>
</SELECT>

<%ARGS>
$Name => undef
$True => "is"
$Default => 'true'
$TrueVal => 1
$FalseVal => 0
$False => "isn't"
</%ARGS>

<%INIT>
my ($TrueDefault, $FalseDefault);
if ($Default && $Default !~ /true/i) {
	$FalseDefault = "SELECTED";
}
else {
	$TrueDefault = "SELECTED";
}
</%INIT>