Raw content of EnsEMBL::Web::Form::Element::AltCheckBox
<![CDATA[package EnsEMBL::Web::Form::Element::AltCheckBox;
### Alternative checkbox rendering, for healthcheck config form
use strict;
use base qw( EnsEMBL::Web::Form::Element );
use CGI qw(escapeHTML);
sub new {
my $class = shift;
my %params = @_;
my $self = $class->SUPER::new( %params );
$self->checked = $params{'checked'};
if ($params{'long_label'}) {
$self->add_class('checkbox-long');
}
return $self;
}
sub checked :lvalue { $_[0]->{'checked'}; }
sub disabled :lvalue { $_[0]->{'disabled'}; }
sub render {
my $self = shift;
return sprintf(
qq(
<tr>
<td%s>
<label>%s</label>
</th>
<td%s>
<input type="checkbox" name="%s" id="%s" value="%s" class="input-checkbox"%s%s/>%s
</td>
</tr>),
$self->class_attrib,
$self->{'raw'} ? $self->label : CGI::escapeHTML( $self->label ),
$self->class_attrib,
CGI::escapeHTML( $self->name ),
CGI::escapeHTML( $self->id ),
$self->value || 'yes',
$self->checked ? ' checked="checked" ' : '',
$self->disabled ? ' disabled="disabled" ' : '',
$self->notes,
);
}
sub validate { return 1; }
1;
]]>