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 |
- |
|
|