<%doc> =pod =head1 NAME edit_field_checkbox =head1 SYNOPSIS <& edit_field_checkbox, column => $column, row => $row &> =head1 DESCRIPTION Given a column and an optional row, this component produces a checkbox form element for that column. The value of this column when checked is 1. If a row is given, then its value will determine whether or not the checkbox is checked. Otherwise the column's default value will be used. =head1 PARAMETERS =over 4 =item * column (required) An C object. =item * row (optional) An Alzabo row object. =item * class (optional) This defaults to C<< $m->base_comp->attr_if_exists('checkbox_class_default') >>. =back =cut class="<% $class %>">\ <%args> $column $row => undef $class => $m->base_comp->attr_if_exists('checkbox_class_default') <%init> my $true; my $col_name = ref $column ? $column->name : $column; if (defined $row) { $true = $row->select( $col_name ); } else { $true = $column->default; }