237 |
} elsif ( $attr_type =~ m{^Bool} ) { |
} elsif ( $attr_type =~ m{^Bool} ) { |
238 |
my $suffix = ''; |
my $suffix = ''; |
239 |
$suffix = ' checked' if $value; |
$suffix = ' checked' if $value; |
240 |
$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value="$value"$suffix>|; |
$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value="1"$suffix>|; |
241 |
push @checkboxes, $name; |
push @checkboxes, $name; |
242 |
} elsif ( ! defined $value ) { |
} elsif ( ! defined $value ) { |
243 |
$value_html = qq|<tt id="$name">undef</tt><!-- $name = undef -->|; # FIXME if $self->debug |
$value_html = qq|<tt id="$name">undef</tt><!-- $name = undef -->|; # FIXME if $self->debug |