From 455ec8a049f58edaaf092cd4b7e711d9963d0a4f Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 7 Mar 2023 20:05:36 +0000 Subject: [PATCH] Bug 33100: Remove all punctuation at end of record This could potentially be overkill - if you have two records that only differ in ending punctuation, you might get a false result - I don't know how likely that is ( as I have mentioned before '!!!' is a band ) This seems a reasonable fix To test: 1 - Set sysprefs as in bug 33159 2 - Edit a record, biblionumebr 3 is fine 3 - Add a comma to end of author subfield a 4 - Save and note relinked 5 - Apply patch, restart all 6 - Save again 7 - Linked to original record --- C4/Heading/MARC21.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Heading/MARC21.pm b/C4/Heading/MARC21.pm index 9ae5827541..87d825bb4c 100644 --- a/C4/Heading/MARC21.pm +++ b/C4/Heading/MARC21.pm @@ -404,7 +404,7 @@ sub _get_search_heading { my $code = $subfields[$i]->[0]; my $code_re = quotemeta $code; my $value = $subfields[$i]->[1]; - $value =~ s/[\s]*[-,.:=;!%\/][\s]*$//; + $value =~ s/[\s]*[-,.:=;!%\/]*[\s]*$//; next unless $subfields =~ qr/$code_re/; if ($first) { $first = 0; -- 2.30.2