X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FTag.pm;h=e65ca7722ef27abed26c402f62f22e58d6d2a242;hb=df91c9fde8209d66dab26e657a2b1a4a105b5ee7;hp=6fefd12be93cb5b974faeaf951a0db9fad357099;hpb=3c6e133b2e272859f39c7541c8b10eb567831989;p=kivitendo-erp.git diff --git a/SL/Presenter/Tag.pm b/SL/Presenter/Tag.pm index 6fefd12be..e65ca7722 100644 --- a/SL/Presenter/Tag.pm +++ b/SL/Presenter/Tag.pm @@ -108,10 +108,6 @@ sub select_tag { delete($attributes{default}); - - my @all_options; - push @all_options, [undef, $empty_title || ''] if $with_empty; - my $normalize_entry = sub { my ($type, $entry, $sub, $key) = @_; @@ -161,13 +157,14 @@ sub select_tag { return join '', map { $self->html_tag('option', $self->escape($_->[1]), value => $_->[0], selected => $_->[2]) } @options; }; - my $code; + my $code = ''; + $code .= $self->html_tag('option', $self->escape($empty_title || ''), value => '') if $with_empty; if (!$with_optgroups) { - $code = $list_to_code->($collection); + $code .= $list_to_code->($collection); } else { - $code = join '', map { + $code .= join '', map { my ($optgroup_title, $sub_collection) = @{ $_ }; $self->html_tag('optgroup', $list_to_code->($sub_collection), label => $optgroup_title) } @{ $collection };