projekt kivitendo

  my $with_optgroups  = delete($attributes{with_optgroups});

  my @all_options;

  push @all_options, [undef, $empty_title || ''] if $with_empty;

    return $sub->($entry) if $sub;

      return $entry if $type eq 'value' || $type eq 'title';

      return $entry->[ $type eq 'value' ? 0 : $type eq 'title' ? 1 : 2 ];

    return $entry->{$key} if $ref  eq 'HASH';

    return $entry->$key   if $type ne 'default' || $entry->can($key);

  my $list_to_code = sub {

    my ($sub_collection) = @_;

    my @options;

    foreach my $entry ( @{ $sub_collection } ) {

      my $value;

      my $title;

      if ( $value_title_sub ) {

        ($value, $title) = @{ $value_title_sub->($entry) };

      } else {

        $value = $normalize_entry->('value', $entry, $value_sub, $value_key);

        $title = $normalize_entry->('title', $entry, $title_sub, $title_key);

      }

      my $default = $normalize_entry->('default', $entry, $default_sub, $default_key);

      push(@options, [$value, $title, $default]);

    }

    foreach my $entry (@options) {

      $entry->[2] = 1 if $selected{$entry->[0]};

    return join '', map { $self->html_tag('option', _H($_->[1]), value => $_->[0], selected => $_->[2]) } @options;

  };

  my $code;

  if (!$with_optgroups) {

    $code = $list_to_code->($collection);

  } else {

    $code = join '', map {

      my ($optgroup_title, $sub_collection) = @{ $_ };

      $self->html_tag('optgroup', $list_to_code->($sub_collection), label => $optgroup_title)

    } @{ $collection };

  return $self->html_tag('select', $code, %attributes, name => $name);

If the option C<with_optgroups> is set then this function expects

C<\@collection> to be one level deeper. The upper-most level is

translated into a HTML C<optgroup> 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<label> attribute will be set to the the

first element in the array element. The second array element is then

converted to a list of C<option> tags like it is described above.

=back

Example for use of optgroups:

  # First in a controller:

  my @collection = (

    [ t8("First optgroup with two items"),

      [ { id => 42, name => "item one" },

        { id => 54, name => "second item" },

        { id => 23, name => "and the third one" },

      ] ],

    [ t8("Another optgroup, with a lot of items from Rose"),

      SL::DB::Manager::Customer->get_all_sorted ],

  );

  # Later in the template:

  [% L.select_tag('the_selection', COLLECTION, with_optgroups=1, title_key='name') %]