--- trunk/lib/Frey/Web/Button.pm	2008/07/14 23:44:18	129
+++ trunk/lib/Frey/Web/Button.pm	2008/07/16 14:12:43	141
@@ -27,14 +27,14 @@
 	my ($self, $name, $callback) = @_;
 	$self->callback->{$name} = $callback;
 	push @{ $self->callback_order }, $name;
-	warn "## callback_order = ",dump( $self->callback_order );
+	warn "## callback_order = ",dump( $self->callback_order ) if $self->debug;
 }
 
 sub remove_button {
 	my ( $self, $name ) = @_;
 	delete( $self->callback->{$name} );
 	my @order = grep { !/^\Q$name\E$/ } @{ $self->callback_order };
-	warn "# remove_button $name order = ",dump( @order );
+	warn "# remove_button $name order = ",dump( @order ) if $self->debug;
 	$self->callback_order( \@order );
 }
 
@@ -42,7 +42,7 @@
 	my ( $self, $from, $to ) = @_;
 	$self->callback->{$to} = delete( $self->callback->{$from} );
 	my @order = ( map { s/^\Q$from\E$/$to/; $_ } @{ $self->callback_order } );
-	warn "# rename_button $from => $to order = ",dump( @order );
+	warn "# rename_button $from => $to order = ",dump( @order ) if $self->debug;
 	$self->callback_order( \@order );
 }