|
Lines 381-387
sub _fix_unimarc_100 {
Link Here
|
| 381 |
my $marc = shift; |
381 |
my $marc = shift; |
| 382 |
|
382 |
|
| 383 |
my $string; |
383 |
my $string; |
| 384 |
my $string = $marc->subfield(100, 'a'); |
384 |
$string = $marc->subfield(100, 'a'); |
| 385 |
if ( defined($string) and length($string) == 36 ) { |
385 |
if ( defined($string) and length($string) == 36 ) { |
| 386 |
my $f100 = $marc->field(100); |
386 |
my $f100 = $marc->field(100); |
| 387 |
$marc->delete_field($f100); |
387 |
$marc->delete_field($f100); |
| 388 |
- |
|
|