[Koha-patches] [PATCH 5/5] Bug 4368 - Avoid reseting UNIMARC 100 tag when importing biblio records

[Frédéric Demians]

---
 C4/Biblio.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 17796f3..85cbee7 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -3317,7 +3317,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 {
-- 
1.6.4.3