|
Lines 602-608
sub fix_unimarc_100 {
Link Here
|
| 602 |
my $marc = shift; |
602 |
my $marc = shift; |
| 603 |
|
603 |
|
| 604 |
my $string; |
604 |
my $string; |
| 605 |
if ( length($marc->subfield( 100, "a" )) == 35 ) { |
605 |
if ( length($marc->subfield( 100, "a" )) == 36 ) { |
| 606 |
$string = $marc->subfield( 100, "a" ); |
606 |
$string = $marc->subfield( 100, "a" ); |
| 607 |
my $f100 = $marc->field(100); |
607 |
my $f100 = $marc->field(100); |
| 608 |
$marc->delete_field($f100); |
608 |
$marc->delete_field($f100); |
|
Lines 613-619
sub fix_unimarc_100 {
Link Here
|
| 613 |
$string = sprintf( "%-*s", 35, $string ); |
613 |
$string = sprintf( "%-*s", 35, $string ); |
| 614 |
} |
614 |
} |
| 615 |
substr( $string, 22, 6, "frey50" ); |
615 |
substr( $string, 22, 6, "frey50" ); |
| 616 |
unless ( length($marc->subfield( 100, "a" )) == 35 ) { |
616 |
unless ( length($marc->subfield( 100, "a" )) == 36 ) { |
| 617 |
$marc->delete_field($marc->field(100)); |
617 |
$marc->delete_field($marc->field(100)); |
| 618 |
$marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string )); |
618 |
$marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string )); |
| 619 |
} |
619 |
} |
| 620 |
- |
|
|