Lines 649-658
sub AddAuthority {
Link Here
|
649 |
} |
649 |
} |
650 |
} |
650 |
} |
651 |
|
651 |
|
652 |
if (($format eq "UNIMARCAUTH") && (!$record->subfield('100','a'))){ |
652 |
if ($format eq "UNIMARCAUTH") { |
653 |
$record->leader(" nx j22 "); |
653 |
$record->leader(" nx j22 ") unless ($record->leader()); |
654 |
my $date=POSIX::strftime("%Y%m%d",localtime); |
654 |
my $date=POSIX::strftime("%Y%m%d",localtime); |
655 |
if ($record->field('100')){ |
655 |
if (my $string=$record->subfield('100',"a")){ |
|
|
656 |
$string=~s/fre50/frey50/; |
657 |
$record->field('100')->update('a'=>$string); |
658 |
} |
659 |
elsif ($record->field('100')){ |
656 |
$record->field('100')->update('a'=>$date."afrey50 ba0"); |
660 |
$record->field('100')->update('a'=>$date."afrey50 ba0"); |
657 |
} else { |
661 |
} else { |
658 |
$record->append_fields( |
662 |
$record->append_fields( |
659 |
- |
|
|