---
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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
