L.radio_button_tag: id erhalten wenn sie schon vorher gesetzt ist.

diff --git a/SL/Presenter/Tag.pm b/SL/Presenter/Tag.pm
index bd489066b5f25d3572d7ccb2dfcad8a0f79c40ab..552df34aac503808d6609cf4327e2985c71043f3 100644 (file)
--- a/SL/Presenter/Tag.pm
+++ b/SL/Presenter/Tag.pm
@@ -190,9 +190,12 @@ sub select_tag {
 }
 
 sub _set_id_attribute {
 }
 
 sub _set_id_attribute {

-  my ($attributes, $name) = @_;
+  my ($attributes, $name, $unique) = @_;

 
 

-  $attributes->{id} = name_to_id(undef, $name) if !delete($attributes->{no_id}) && !$attributes->{id};
+  if (!delete($attributes->{no_id}) && !$attributes->{id}) {
+    $attributes->{id}  = name_to_id(undef, $name);
+    $attributes->{id} .= '_' . $attributes->{value} if $unique;
+  }

 
   return %{ $attributes };
 }
 
   return %{ $attributes };
 }

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 8cc93a673cecbab957d804e50abd7a3db6d05670..88cf4d21e49050079faa42c63bb8c90409e4b9d8 100644 (file)
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -69,8 +69,8 @@ sub simple_format { return _call_presenter('simple_format', @_); }
 sub part_picker   { return _call_presenter('part_picker',   @_); }
 
 sub _set_id_attribute {
 sub part_picker   { return _call_presenter('part_picker',   @_); }
 
 sub _set_id_attribute {

-  my ($attributes, $name) = @_;
-  SL::Presenter::Tag::_set_id_attribute($attributes, $name);
+  my ($attributes, $name, $unique) = @_;
+  SL::Presenter::Tag::_set_id_attribute($attributes, $name, $unique);

 }
 
 sub img_tag {
 }
 
 sub img_tag {


@@ -119,9 +119,9 @@ sub checkbox_tag {
 sub radio_button_tag {
   my ($self, $name, %attributes) = _hashify(2, @_);
 
 sub radio_button_tag {
   my ($self, $name, %attributes) = _hashify(2, @_);
 

-  _set_id_attribute(\%attributes, $name);

   $attributes{value}   = 1 unless exists $attributes{value};
   $attributes{value}   = 1 unless exists $attributes{value};

-  $attributes{id}     .= '_' . $attributes{value};
+
+  _set_id_attribute(\%attributes, $name, 1);

   my $label            = delete $attributes{label};
 
   if ($attributes{checked}) {
   my $label            = delete $attributes{label};
 
   if ($attributes{checked}) {