From 0d12df6dc721dcdbc81ca8db667cd644393bc5fc Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet.de>
Date: Wed, 10 Nov 2021 13:58:48 +0100
Subject: [PATCH] L/Presenter: Funktion zum Entfernen aller HTML-Tags

---
 SL/Presenter/Text.pm    | 11 +++++++++++
 SL/Template/Plugin/L.pm |  1 +
 2 files changed, 12 insertions(+)

diff --git a/SL/Presenter/Text.pm b/SL/Presenter/Text.pm
index 2943a5aa2..7d56d940b 100644
--- 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::HTML::Util;
 
 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);
 }
 
+sub stripped_html {
+  my ($value) = @_;
+  return SL::HTML::Util::strip($value);
+}
+
 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>.
 
+=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
diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 451fba1cc..abb604693 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -86,6 +86,7 @@ sub div_tag                  { return _call_presenter('div_tag',
 sub radio_button_tag         { return _call_presenter('radio_button_tag',         @_); }
 sub img_tag                  { return _call_presenter('img_tag',                  @_); }
 sub restricted_html          { return _call_presenter('restricted_html',          @_); }
+sub stripped_html            { return _call_presenter('stripped_html',            @_); }
 
 sub _set_id_attribute {
   my ($attributes, $name, $unique) = @_;
-- 
2.20.1