X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/766f5705ecb9cd56adfbffd94c871959bb64c6fd..f217d072d76183bc07723dcc29503b732bd2022d:/SL/HTML/Restrict.pm

diff --git a/SL/HTML/Restrict.pm b/SL/HTML/Restrict.pm
index f30bc87fb..3be417112 100644
--- 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