@@ -, +, @@ in rebuild_zebra.pl --- misc/migration_tools/rebuild_zebra.pl | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) --- a/misc/migration_tools/rebuild_zebra.pl +++ a/misc/migration_tools/rebuild_zebra.pl @@ -602,7 +602,7 @@ sub fix_unimarc_100 { my $marc = shift; my $string; - if ( length($marc->subfield( 100, "a" )) == 35 ) { + if ( length($marc->subfield( 100, "a" )) == 36 ) { $string = $marc->subfield( 100, "a" ); my $f100 = $marc->field(100); $marc->delete_field($f100); @@ -613,7 +613,7 @@ sub fix_unimarc_100 { $string = sprintf( "%-*s", 35, $string ); } substr( $string, 22, 6, "frey50" ); - unless ( length($marc->subfield( 100, "a" )) == 35 ) { + unless ( length($marc->subfield( 100, "a" )) == 36 ) { $marc->delete_field($marc->field(100)); $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string )); } --