@@ -, +, @@ a space --- C4/AuthoritiesMarc.pm | 3 ++- C4/Biblio.pm | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -631,7 +631,8 @@ sub AddAuthority { foreach my $subfield ( $field->subfields ) { my $key = $subfield->[0]; my $value = $subfield->[1]; - $value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g; + $value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g; + $value =~ s/\n+|\r+/ /g; $field->update( $key => $value ); } } --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -2897,7 +2897,8 @@ sub ModBiblioMarc { foreach my $subfield ( $field->subfields ) { my $key = $subfield->[0]; my $value = $subfield->[1]; - $value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g; + $value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g; + $value =~ s/\n+|\r+/ /g; $field->update( $key => $value ); } } --