Revision 86e54d7f
Von Moritz Bunkus vor mehr als 3 Jahren hinzugefügt
| SL/Presenter/Tag.pm | ||
|---|---|---|
|
our @EXPORT_OK = 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 input_number_tag
|
||
|
stringify_attributes restricted_html textarea_tag link_tag date_tag
|
||
|
stringify_attributes textarea_tag link_tag date_tag
|
||
|
div_tag radio_button_tag img_tag);
|
||
|
our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $html_restricter;
|
||
|
|
||
|
sub restricted_html {
|
||
|
my ($value) = @_;
|
||
|
|
||
|
$html_restricter ||= SL::HTML::Restrict->create;
|
||
|
return $html_restricter->process($value);
|
||
|
}
|
||
|
|
||
|
sub textarea_tag {
|
||
|
my ($name, $content, %attributes) = @_;
|
||
|
|
||
| ... | ... | |
|
HTML tag attributes. Keys and values are HTML escaped even though keys
|
||
|
must not contain non-ASCII characters for browsers to accept them.
|
||
|
|
||
|
=item C<restricted_html $html>
|
||
|
|
||
|
Returns HTML stripped of unknown tags. See L<SL::HTML::Restrict>.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head2 HIGH-LEVEL FUNCTIONS
|
||
Auch abrufbar als: Unified diff
Presenter: eine Instanz der doppelten Funktion restricted_html entfernt