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