X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FTag.pm;h=7ee8531d4278f6dd5036080714ba85d4fcf238c3;hb=1fd3b7370bb8d9000229b34b989f5e2eacbebf04;hp=bd489066b5f25d3572d7ccb2dfcad8a0f79c40ab;hpb=766f5705ecb9cd56adfbffd94c871959bb64c6fd;p=kivitendo-erp.git diff --git a/SL/Presenter/Tag.pm b/SL/Presenter/Tag.pm index bd489066b..7ee8531d4 100644 --- a/SL/Presenter/Tag.pm +++ b/SL/Presenter/Tag.pm @@ -190,9 +190,12 @@ sub select_tag { } 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 }; } @@ -219,7 +222,7 @@ SL::Presenter::Tag - Layouting / tag generation =head1 SYNOPSIS -Usage from a template: +Usage in a template: [% USE P %] @@ -227,14 +230,14 @@ Usage from a template: [% P.select_tag('direction', [ { direction => 'left', display => 'To the left' }, { direction => 'right', display => 'To the right' } ], - value_key => 'direction', title_key => 'display', default => 'right')) %] + value_key => 'direction', title_key => 'display', default => 'right') %] [% P.select_tag('direction', [ { direction => 'left', display => 'To the left' }, { direction => 'right', display => 'To the right', selected => 1 } ], - value_key => 'direction', title_key => 'display')) %] + value_key => 'direction', title_key => 'display') %] - # Use an RDBO object and it's n:m relatioship as the default - # values. For example, a user can be a member in many groups. "All + # Use an RDBO object and its n:m relationship as the default + # values. For example, a user can be a member of many groups. "All # groups" is therefore the full collection and "$user->groups" is a # list of RDBO AuthGroup objects whose IDs must match the ones in # "All groups". This could look like the following: @@ -313,7 +316,7 @@ defaults to 5. =item C -Creates a HTML 'select' tag named C<$name> with the contents of one +Creates an HTML 'select' tag named C<$name> with the contents of one 'EoptionE' tag for each element in C<\@collection> and with arbitrary HTML attributes from C<%attributes>. The value to use and the title to display are extracted from the elements in @@ -384,23 +387,23 @@ value to select by default. Constructs a hash that's treated like 3. =back -5. also applies for single RDBO instances (due to 'wantarray' -shenanigangs assigning RDBO's relationships to a hash key will result +5. also applies to single RDBO instances (due to 'wantarray' +shenanigans assigning RDBO's relationships to a hash key will result in a single RDBO object being assigned instead of an array reference containing that single RDBO object). If the option C is set then this function expects C<\@collection> to be one level deeper. The upper-most level is -translated into a HTML C tag. So the structure becomes: +translated into an HTML C tag. So the structure becomes: =over 4 =item 1. Array of array references. Each element in the C<\@collection> is converted into an optgroup. -=item 2. The optgroup's C