diff -r 000000000000 -r 414e01d06fd5 lib/TWiki/Configure/Types/BOOLEAN.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/TWiki/Configure/Types/BOOLEAN.pm	Sat Jan 26 15:50:53 2008 +0100
@@ -0,0 +1,42 @@
+#
+# TWiki Enterprise Collaboration Platform, http://TWiki.org/
+#
+# Copyright (C) 2000-2006 TWiki Contributors.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version. For
+# more details read LICENSE in the root of this distribution.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+#
+# As per the GPL, removal of this notice is prohibited.
+package TWiki::Configure::Types::BOOLEAN;
+
+use strict;
+
+use TWiki::Configure::Type;
+
+use base 'TWiki::Configure::Type';
+
+sub prompt {
+    my( $this, $id, $opts, $value ) = @_;
+    return CGI::checkbox( -name => $id, -checked => ( $value ? 1 : 0),
+                          -value => 1, -label => '' );
+}
+
+sub string2value {
+    my ($this, $val) = @_;
+    return ($val ? 1 : 0);
+}
+
+sub equals {
+    my ($this, $val, $def) = @_;
+
+    return (($val && $def) || (!$val && !$def));
+}
+
+1;