--- lib/PXElator/httpd.pm	2010/01/23 18:31:14	482
+++ lib/PXElator/httpd.pm	2010/01/23 19:45:11	484
@@ -50,7 +50,6 @@
 use log;
 use x11;
 use amt;
-use boolean;
 use daemons;
 
 use kvm;
@@ -145,6 +144,11 @@
 	qq|HTTP/1.1 302 Found\r\nContent-type: text/html\r\nLocation: $to\r\n\r\n|
 }
 
+sub toggle {
+	my $v = shift;
+	return $v ? 0 : 1;
+}
+
 sub get_request {
 	my ( $client, $path, $param ) = @_;
 
@@ -241,7 +245,7 @@
 			eval '$server::' . $name . '= $param->{$name}';
 		}
 		my @table = (
-			  'debug' => qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|,
+			  'debug' => qq|<a href=/our/debug/| . toggle($debug) . qq|>$debug</a>|,
 			, 'new_clients' => qq|<input type=text name=new_clients size=3 value="$server::new_clients">|
 		);