Lines 379-386
sub _fix_unimarc_100 {
Link Here
|
379 |
my $marc = shift; |
379 |
my $marc = shift; |
380 |
|
380 |
|
381 |
my $string; |
381 |
my $string; |
382 |
if ( length( $marc->subfield( 100, "a" ) ) == 36 ) { |
382 |
my $string = $marc->subfield(100, 'a'); |
383 |
$string = $marc->subfield( 100, "a" ); |
383 |
if ( defined($string) and length($string) == 36 ) { |
384 |
my $f100 = $marc->field(100); |
384 |
my $f100 = $marc->field(100); |
385 |
$marc->delete_field($f100); |
385 |
$marc->delete_field($f100); |
386 |
} else { |
386 |
} else { |
Lines 389-395
sub _fix_unimarc_100 {
Link Here
|
389 |
$string = sprintf( "%-*s", 35, $string ); |
389 |
$string = sprintf( "%-*s", 35, $string ); |
390 |
} |
390 |
} |
391 |
substr( $string, 22, 6, "frey50" ); |
391 |
substr( $string, 22, 6, "frey50" ); |
392 |
unless ( length( $marc->subfield( 100, "a" ) ) == 36 ) { |
392 |
|
|
|
393 |
my $sf100a = $marc->subfield(100, 'a'); |
394 |
unless ( defined($sf100a) and length($sf100a) == 36 ) { |
393 |
$marc->delete_field( $marc->field(100) ); |
395 |
$marc->delete_field( $marc->field(100) ); |
394 |
$marc->insert_grouped_field( MARC::Field->new( 100, "", "", "a" => $string ) ); |
396 |
$marc->insert_grouped_field( MARC::Field->new( 100, "", "", "a" => $string ) ); |
395 |
} |
397 |
} |
396 |
- |
|
|