From 8e2cb03097dc245603f8ddfcc1bd9039273b2431 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Demians?= Date: Sat, 3 Apr 2010 12:48:54 +0200 Subject: [PATCH] Bug 4368 - Avoid reseting UNIMARC 100 tag when importing biblio records Signed-off-by: Galen Charlton --- C4/Biblio.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 9669752423..e24bee893e 100755 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -3322,7 +3322,7 @@ sub ModBiblioMarc { # deal with UNIMARC field 100 (encoding) : create it if needed & set encoding to unicode if ( $encoding eq "UNIMARC" ) { my $string = $record->subfield( 100, "a" ); - if ( ($string) && ( length( $record->subfield( 100, "a" ) ) == 35 ) ) { + if ( ($string) && ( length( $record->subfield( 100, "a" ) ) == 36 ) ) { my $f100 = $record->field(100); $record->delete_field($f100); } else { -- 2.39.2