Lines 639-647
sub AddAuthority {
Link Here
|
639 |
} |
639 |
} |
640 |
my $date=POSIX::strftime("%y%m%d",localtime); |
640 |
my $date=POSIX::strftime("%y%m%d",localtime); |
641 |
if (!$record->field('008')) { |
641 |
if (!$record->field('008')) { |
642 |
$record->insert_fields_ordered( |
642 |
# Get a valid default value for field 008 |
643 |
MARC::Field->new('008',$date."|||a|||||| | ||| d") |
643 |
my $default_008 = C4::Context->preference('MARCAuthorityControlField008'); |
644 |
); |
644 |
if(!$default_008 or length($default_008)<34) { |
|
|
645 |
$default_008 = '|| aca||aabn | a|a d'; |
646 |
} |
647 |
else { |
648 |
$default_008 = substr($default_008,0,34); |
649 |
} |
650 |
|
651 |
$record->insert_fields_ordered( MARC::Field->new('008',$date.$default_008) ); |
645 |
} |
652 |
} |
646 |
if (!$record->field('040')) { |
653 |
if (!$record->field('040')) { |
647 |
$record->insert_fields_ordered( |
654 |
$record->insert_fields_ordered( |
648 |
- |
|
|