2 # TWiki Enterprise Collaboration Platform, http://TWiki.org/
4 # Copyright (C) 2000-2006 TWiki Contributors.
6 # This program is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU General Public License
8 # as published by the Free Software Foundation; either version 2
9 # of the License, or (at your option) any later version. For
10 # more details read LICENSE in the root of this distribution.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
16 # As per the GPL, removal of this notice is prohibited.
17 package TWiki::Configure::Types::BOOLEAN;
21 use TWiki::Configure::Type;
23 use base 'TWiki::Configure::Type';
26 my( $this, $id, $opts, $value ) = @_;
27 return CGI::checkbox( -name => $id, -checked => ( $value ? 1 : 0),
28 -value => 1, -label => '' );
32 my ($this, $val) = @_;
33 return ($val ? 1 : 0);
37 my ($this, $val, $def) = @_;
39 return (($val && $def) || (!$val && !$def));