projekt kivitendo

use SL::MoreCommon qw(listify);

use List::UtilsBy qw(partition_by);

  size => {

    map { $_ => $_ }

      qw(col row),

      (map { "s$_" } 1..12),

      (map { "m$_" } 1..12),

      (map { "l$_" } 1..12),

  },

# used to extract material classes that are passed directly as classes

sub _extract_classes {

  my ($attributes, $type) = @_;

  my @classes = map { split / / } listify($attributes->{class});

  my %classes = partition_by { !!$optional_classes{$type}{$_} } @classes;

  $attributes->{class} = $classes{''};

  $classes{1};

}

}

sub select_tag {

  my ($name, $collection, %attributes) = @_;

  _set_id_attribute(\%attributes, $name);

  my @size_classes   = _extract_classes(\%attributes, "size");

  my $icon  = $attributes{icon}

    ? icon(delete $attributes{icon}, class => 'prefix')

    : '';

  my $label = $attributes{label}

    ? html_tag('label', delete $attributes{label}, for => $attributes{id})

    : '';

  my $select_html = SL::Presenter::Tag::select_tag($name, $collection, %attributes);

  html_tag('div',

    $icon . $select_html . $label,

    class => [ INPUT_FIELD, @size_classes ],

  );

    $('select').formSelect();