projekt kivitendo

  textarea_tag

sub textarea_tag {

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

  _set_id_attribute(\%attributes, $attributes{name});

  my $class = delete $attributes{class};

  my $icon  = $attributes{icon}

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

    : '';

  my $label = $attributes{label}

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

    : '';

  html_tag('div',

    $icon .

    html_tag('textarea', $value, class => 'materialize-textarea', %attributes, name => $name) .

    $label,

    class => [ grep $_, $class, INPUT_FIELD ],

  );

}

<h3>Textarea:</h3>

[% P.M.textarea_tag("", "", label="Notes") %]

[% P.M.textarea_tag("", "default value\nmulti-line", label="Notes with multi-line default value") %]

[% P.M.textarea_tag("", "", placeholder="with placeholder", label="Notes with placeholder") %]

[% P.M.textarea_tag("", "default value\nmulti-line", placeholder="with placeholder", label="Notes with placeholder and multi-line default value") %]