|
DBIx::HTMLView::Bool - A boolean field |
DBIx::HTMLView::Bool - A boolean field
$fld=$post->fld('testf');
print $fld->view_html;
This is a subclass of DBIx::HTMLView::Str used to represent boolean data (eg true or false). It is represented by a one character field that is default wither Y or N. The main difference from a Str is that the default edit_html editor uses a two <input type=radio ...> buttons to construct the editor.
$data of the constructor (see the new method of DBIx::HTMLView::Fld) can have the following values specified:
true - the value stored in the databse when this field should represent true, default Y. false - the value stored in the databse when this field should represent false, default N. view_true - the value used to view a true value for the view_html, edit_html and view_text methods, defaule Yes. view_false - the value used to view a false value for the view_html, edit_html and view_text methods, defaule No.
package DBIx::HTMLView::Bool; use strict; use Carp;
use vars qw(@ISA); require DBIx::HTMLView::Bool; @ISA = qw(DBIx::HTMLView::Str);
sub true {
my $self=shift;
if ($self->got_data('true')) {return $self->data('true')}
return 'Y';
}
sub false {
my $self=shift;
if ($self->got_data('false')) {return $self->data('false')}
return 'N';
}
sub view_true {
my $self=shift;
if ($self->got_data('view_true')) {return $self->data('view_true')}
return 'Yes';
}
sub view_false {
my $self=shift;
if ($self->got_data('view_false')) {return $self->data('view_false')}
return 'No';
}
sub default_fmt { my ($self, $kind)=@_; if ($kind eq 'view_text' || $kind eq 'view_html') { return '<perl>if ($self->got_val && $self->val eq $self->true) {return $self->view_true} else {return $self->view_false}</perl>'; } if ($kind eq 'edit_html') { return '<perl>if ($self->got_val && $self->val eq $self->true) {'. '$val2=``'';$val1=``checked''} else {$val1=``'';$val2=``checked''}'. '``'';</perl>'. ``<input type='radio' name='<var name>' value=''' . $self->true . ``' <perl>\$val1</perl> >'' . $self->view_true . `` '' . ``<input type='radio' name='<var name>' value=''' . $self->false . ``' <perl>\$val2</perl>>'' . $self->view_false;
} return DBIx::HTMLView::Field::default_fmt(@_); }
sub sql_create {my$self=shift;$self->db->sql_type(``Bool'',$self)}
1;
# Local Variables: # mode: perl # tab-width: 8 # perl-indent-level: 2 # End:
|
DBIx::HTMLView::Bool - A boolean field |