Revision 50cd4bda
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
SL/Template/Plugin/L.pm | ||
---|---|---|
69 | 69 |
sub part_picker { return _call_presenter('part_picker', @_); } |
70 | 70 |
|
71 | 71 |
sub _set_id_attribute { |
72 |
my ($attributes, $name) = @_; |
|
73 |
SL::Presenter::Tag::_set_id_attribute($attributes, $name); |
|
72 |
my ($attributes, $name, $unique) = @_;
|
|
73 |
SL::Presenter::Tag::_set_id_attribute($attributes, $name, $unique);
|
|
74 | 74 |
} |
75 | 75 |
|
76 | 76 |
sub img_tag { |
... | ... | |
119 | 119 |
sub radio_button_tag { |
120 | 120 |
my ($self, $name, %attributes) = _hashify(2, @_); |
121 | 121 |
|
122 |
_set_id_attribute(\%attributes, $name); |
|
123 | 122 |
$attributes{value} = 1 unless exists $attributes{value}; |
124 |
$attributes{id} .= '_' . $attributes{value}; |
|
123 |
|
|
124 |
_set_id_attribute(\%attributes, $name, 1); |
|
125 | 125 |
my $label = delete $attributes{label}; |
126 | 126 |
|
127 | 127 |
if ($attributes{checked}) { |
Auch abrufbar als: Unified diff
L.radio_button_tag: id erhalten wenn sie schon vorher gesetzt ist.