projekt kivitendo

  wh_bin_select

sub wh_bin_select {

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

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

  my $icon  = $attributes{icon}

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

    : '';

  my $wh_bin_select_html = SL::Presenter::Warehouse::wh_bin_select($name, %attributes,

                                                                   class => 'browser-default');

  html_tag('div',

    $icon . $wh_bin_select_html,

    class => [ INPUT_FIELD, @size_classes ],

  );

}