Bug 36328: Add a separate 'note' profile

Signed-off-by: David Cook <dcook@prosentient.com.au>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 7a626d8d870039330889d6e48c3ae5ba848d85e9)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

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;

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>' );