Revision 015d45ca
Von Sven Schöling vor mehr als 3 Jahren hinzugefügt
| SL/Presenter/MaterialComponents.pm | ||
|---|---|---|
|
);
|
||
|
}
|
||
|
|
||
|
sub checkbox_tag {
|
||
|
my ($name, %attributes) = @_;
|
||
|
|
||
|
_set_id_attribute(\%attributes, $name);
|
||
|
|
||
|
my $label = $attributes{label}
|
||
|
? html_tag('span', delete $attributes{label})
|
||
|
: '';
|
||
|
|
||
|
my $checkbox_html = SL::Presenter::Tag::checkbox_tag($name, %attributes);
|
||
|
|
||
|
html_tag('label',
|
||
|
$checkbox_html . $label,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
|
||
|
1;
|
||
|
__END__
|
||
Auch abrufbar als: Unified diff
MaterialComponents: checkbox_tag