View | Details | Raw Unified | Return to bug 16506
Collapse All | Expand All

(-)a/misc/migration_tools/rebuild_zebra.pl (-3 / +4 lines)
Lines 782-788 sub fix_unimarc_100 { Link Here
782
    my $marc = shift;
782
    my $marc = shift;
783
783
784
    my $string;
784
    my $string;
785
    if ( length($marc->subfield( 100, "a" )) == 36 ) {
785
    my $length_100a = length($marc->subfield( 100, "a" ));
786
    if (  $length_100a and $length_100a == 36 ) {
786
        $string = $marc->subfield( 100, "a" );
787
        $string = $marc->subfield( 100, "a" );
787
        my $f100 = $marc->field(100);
788
        my $f100 = $marc->field(100);
788
        $marc->delete_field($f100);
789
        $marc->delete_field($f100);
Lines 793-799 sub fix_unimarc_100 { Link Here
793
        $string = sprintf( "%-*s", 35, $string );
794
        $string = sprintf( "%-*s", 35, $string );
794
    }
795
    }
795
    substr( $string, 22, 6, "frey50" );
796
    substr( $string, 22, 6, "frey50" );
796
    unless ( length($marc->subfield( 100, "a" )) == 36 ) {
797
    $length_100a = length($marc->subfield( 100, "a" ));
798
    unless ( $length_100a and $length_100a == 36 ) {
797
        $marc->delete_field($marc->field(100));
799
        $marc->delete_field($marc->field(100));
798
        $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string ));
800
        $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string ));
799
    }
801
    }
800
- 

Return to bug 16506