From: Moritz Bunkus Date: Wed, 8 Feb 2017 13:59:32 +0000 (+0100) Subject: Presenter: mehr Funktionen von L in Tag-Presenter verschieben X-Git-Tag: release-3.5.4~1522 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=99d0bd2b810d7d4268c104d0a0ea8e67a63b55d2;p=kivitendo-erp.git Presenter: mehr Funktionen von L in Tag-Presenter verschieben --- diff --git a/SL/Presenter/Tag.pm b/SL/Presenter/Tag.pm index 0c2dff2d4..770fa1c42 100644 --- a/SL/Presenter/Tag.pm +++ b/SL/Presenter/Tag.pm @@ -7,7 +7,7 @@ use SL::HTML::Restrict; use parent qw(Exporter); use Exporter qw(import); -our @EXPORT = qw(html_tag input_tag hidden_tag javascript man_days_tag name_to_id select_tag checkbox_tag button_tag submit_tag ajax_submit_tag stringify_attributes restricted_html); +our @EXPORT = qw(html_tag input_tag hidden_tag javascript man_days_tag name_to_id select_tag checkbox_tag button_tag submit_tag ajax_submit_tag stringify_attributes restricted_html link); use Carp; @@ -282,6 +282,14 @@ sub restricted_html { return $html_restricter->process($value); } +sub link { + my ($self, $href, $content, %params) = @_; + + $href ||= '#'; + + return $self->html_tag('a', $content, %params, href => $href); +} + 1; __END__ @@ -417,6 +425,26 @@ makes it possible to write statements like e.g. The attribute C can be used to set the text input's size. It defaults to 5. +=item C + +Creates a HTML 'input type=hidden' tag named C<$name> with the value +C<$value> and with arbitrary HTML attributes from C<%attributes>. The +tag's C defaults to C. + +=item C + +Creates a HTML 'input type=checkbox' tag named C<$name> with arbitrary +HTML attributes from C<%attributes>. The tag's C defaults to +C. The tag's C defaults to C<1>. + +If C<%attributes> contains a key C