1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
package HTML::FormHandler::Widget::Field::HorizCheckboxGroup;
# ABSTRACT: checkbox group field role
$HTML::FormHandler::Widget::Field::HorizCheckboxGroup::VERSION = '0.40068';
use Moose::Role;
use namespace::autoclean;
use HTML::FormHandler::Render::Util ('process_attrs');
sub render {
my ( $self, $result ) = @_;
$result ||= $self->result;
die "No result for form field '" . $self->full_name . "'. Field may be inactive." unless $result;
my $output = $self->render_element( $result );
return $self->wrap_field( $result, $output );
}
sub render_element {
my ( $self, $result ) = @_;
$result ||= $self->result;
# loop through options
my $output = '';
foreach my $option ( @{ $self->{options} } ) {
if ( my $label = $option->{group} ) {
$label = $self->_localize( $label ) if $self->localize_labels;
my $attr = $option->{attributes} || {};
my $attr_str = process_attrs($attr);
my $lattr = $option->{label_attributes} || {};
my $lattr_str= process_attrs($lattr);
$output .= qq{\n<div$attr_str><label$lattr_str>$label</label>};
foreach my $group_opt ( @{ $option->{options} } ) {
$output .= $self->render_option( $group_opt, $result );
}
$output .= qq{\n</div>};
}
else {
$output .= $self->render_option( $option, $result );
}
}
$self->reset_options_index;
return $output;
}
sub render_option {
my ( $self, $option, $result ) = @_;
$result ||= $self->result;
# get existing values
my $fif = $result->fif;
my %fif_lookup;
@fif_lookup{@$fif} = () if $self->multiple;
# create option label attributes
my $lattr = $option->{label_attributes} || {};
my $lattr_str = process_attrs( $lattr );
my $id = $self->id . '.' . $self->options_index;
# start wrapping div
my $output = qq{<div class="checkbox">};
$output .= qq{\n<label$lattr_str for="$id">};
my $value = $option->{value};
$output .= qq{\n<input type="checkbox"};
$output .= qq{ value="} . $self->html_filter($value) . '"';
$output .= qq{ name="} . $self->html_name . '"';
$output .= qq{ id="$id"};
# handle option attributes
my $attr = $option->{attributes} || {};
if( defined $option->{disabled} && $option->{disabled} ) {
$attr->{disabled} = 'disabled';
}
if ( defined $fif &&
( ( $self->multiple && exists $fif_lookup{$value} ) ||
( $fif eq $value ) ) ) {
$attr->{checked} = 'checked';
}
$output .= process_attrs($attr);
$output .= " />\n";
# handle label
my $label = $option->{label};
$label = $self->_localize($label) if $self->localize_labels;
$output .= $self->html_filter($label);
$output .= "\n</label>";
# close wrapping div
$output .= "\n</div>";
$self->inc_options_index;
return $output;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormHandler::Widget::Field::HorizCheckboxGroup - checkbox group field role
=head1 VERSION
version 0.40068
=head1 SYNOPSIS
Checkbox group widget for rendering multiple selects.
Wraps each checkbox in a div.
=head1 AUTHOR
FormHandler Contributors - see HTML::FormHandler
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Gerda Shank.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
