projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
L/Presenter: Funktion zum Entfernen aller HTML-Tags
[kivitendo-erp.git]
/
SL
/
Presenter
/
Text.pm
diff --git
a/SL/Presenter/Text.pm
b/SL/Presenter/Text.pm
index
2943a5a
..
7d56d94
100644
(file)
--- a/
SL/Presenter/Text.pm
+++ b/
SL/Presenter/Text.pm
@@
-4,6
+4,7
@@
use strict;
use SL::Presenter::EscapedText qw(escape);
use SL::HTML::Restrict;
use SL::Presenter::EscapedText qw(escape);
use SL::HTML::Restrict;
+use SL::HTML::Util;
use Exporter qw(import);
our @EXPORT_OK = qw(format_man_days simple_format truncate restricted_html);
use Exporter qw(import);
our @EXPORT_OK = qw(format_man_days simple_format truncate restricted_html);
@@
-52,6
+53,11
@@
sub restricted_html {
return $html_cleaner->process($value);
}
return $html_cleaner->process($value);
}
+sub stripped_html {
+ my ($value) = @_;
+ return SL::HTML::Util::strip($value);
+}
+
1;
__END__
1;
__END__
@@
-103,6
+109,11
@@
are removed.
Returns HTML code stripped from unwanted/unsupported content. This is
done via the module L<SL::HTML::Restrict>.
Returns HTML code stripped from unwanted/unsupported content. This is
done via the module L<SL::HTML::Restrict>.
+=item C<stripped_html $html>
+
+Returns the raw text with all HTML tags and comments stripped. This is
+done via L<SL::HTML::Util/strip>.
+
=back
=head1 BUGS
=back
=head1 BUGS