From e64e302d1a5940caa7aa98c8ab0239647a09ef00 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Wed, 20 Mar 2024 08:34:09 +0100
Subject: [PATCH] Bug 36328: Add a separate 'note' profile

Signed-off-by: David Cook <dcook@prosentient.com.au>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz>
---
 C4/Scrubber.pm | 4 +++-
 t/Scrubber.t   | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/C4/Scrubber.pm b/C4/Scrubber.pm
index 30a5a83596..e265c8dcc0 100644
--- a/C4/Scrubber.pm
+++ b/C4/Scrubber.pm
@@ -29,7 +29,8 @@ use C4::Context;
 my %scrubbertypes = (
     default => {}, # place holder, default settings are below as fallbacks in call to constructor
     tag     => {},                                               # uses defaults
-    comment => { allow => [qw[ p b i u hr br em big small strong span div ]] },
+    comment => { allow => [qw( br b i em big small strong )], },
+    note    => { allow => [qw[ p b i u hr br em big small strong span div ]] },
     staff   => {
         default => [ 1 => { '*' => 1 } ],
         comment => 1,
@@ -49,6 +50,7 @@ sub new {
         rules   => exists $settings->{rules} ? $settings->{rules} : [],
         default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ],
         comment => exists $settings->{comment} ? $settings->{comment} : 0,
+        note    => exists $settings->{note} ? $settings->{note} : 0,
         process => 0,
     );
     return $scrubber;
diff --git a/t/Scrubber.t b/t/Scrubber.t
index 1d03ce6762..3a43522ad0 100755
--- a/t/Scrubber.t
+++ b/t/Scrubber.t
@@ -82,4 +82,4 @@ if ($@) {
     pass("Test should have failed on entry of 'Client' and it did. YAY!");
 }
 
-is( C4::Scrubber->new('comment')->scrub('<span>Allow span</span>'), '<span>Allow span</span>' );
+is( C4::Scrubber->new('note')->scrub('<span>Allow span</span>'), '<span>Allow span</span>' );
-- 
2.39.5