From c9bc9c930dd9e037df7c288efdf7ea3c6fe0ff16 Mon Sep 17 00:00:00 2001 From: Lucas Gass Date: Mon, 17 Nov 2025 15:58:31 +0000 Subject: [PATCH] Bug 40659: Change Scrubber profile name to opac_virtual_card --- C4/Scrubber.pm | 6 +++++- opac/opac-virtual-card.pl | 2 +- t/Scrubber.t | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/C4/Scrubber.pm b/C4/Scrubber.pm index 8086c43ad9d..e80921b3dca 100644 --- a/C4/Scrubber.pm +++ b/C4/Scrubber.pm @@ -88,7 +88,7 @@ my %scrubbertypes = ( }, ], }, - opac => { + opac_virtual_card => { allow => [ qw( div span h1 h2 h3 h4 h5 h6 p br @@ -108,6 +108,10 @@ my %scrubbertypes = ( class => qr/^[\w\s\-_]+$/, id => qr/^[\w\-_]+$/, }, + p => { + class => qr/^[\w\s\-_]+$/, + id => qr/^[\w\-_]+$/, + }, 'svg' => { 'id' => qr/^[\w\-_]+$/, 'class' => qr/^[\w\s\-_]+$/, diff --git a/opac/opac-virtual-card.pl b/opac/opac-virtual-card.pl index f09ca2559c7..4b8cdc142f0 100755 --- a/opac/opac-virtual-card.pl +++ b/opac/opac-virtual-card.pl @@ -76,7 +76,7 @@ my $content = C4::Letters::GetPreparedLetter( ) ); -my $scrubber = C4::Scrubber->new('opac'); +my $scrubber = C4::Scrubber->new('opac_virtual_card'); my $scrubbed = $scrubber->scrub( $content->{content} ); $content->{content} = $scrubbed; diff --git a/t/Scrubber.t b/t/Scrubber.t index b00e92334d3..96eac5becf2 100755 --- a/t/Scrubber.t +++ b/t/Scrubber.t @@ -322,7 +322,7 @@ subtest 'record_display profile tests' => sub { subtest 'opac profile tests' => sub { plan tests => 20; - my $scrubber = C4::Scrubber->new('opac'); + my $scrubber = C4::Scrubber->new('opac_virtual_card'); # Test basic allowed elements is( -- 2.39.5