Merge branch 'master' of http://wagnertech.de/git/mfinanz

[mfinanz.git] / SL / HTML / Restrict.pm

diff --git a/SL/HTML/Restrict.pm b/SL/HTML/Restrict.pm
index f30bc87fb1573f268cbedb738133916928ff1f7a..3be417112c375aa7e68001f03643a76e95c347c6 100644 (file)
--- a/SL/HTML/Restrict.pm
+++ b/SL/HTML/Restrict.pm
@@ -7,7 +7,7 @@ use HTML::Restrict ();
 
 sub create {
   my ($class, %params)    = @_;
-  $params{allowed_tags} //= { map { ($_ => ['/']) } qw(b strong i em u ul ol li sub sup s strike br p div) };
+  $params{allowed_tags} //= { map { ($_ => ['/']) } qw(b strong i em u ul ol li sub sup s strike br p div table caption thead tbody tr th td) };
 
   return HTML::Restrict->new(rules => $params{allowed_tags});
 }
@@ -28,7 +28,7 @@ SL::HTML::Restrict - Restrict HTML tags to set of allowed tags
   my $cleaner = SL::HTML::Restrict->create;
   my $cleaned = $cleaner->process($unsafe_html);
 
-=head1
+=head1 DESCRIPTION
 
 Often you want to allow a fixed set of well-known HTML tags to be used
 – but nothing else. This is a thin wrapper providing a default set of