Lines 556-562
sub AddAuthority {
Link Here
|
556 |
if ($format eq "MARC21") { |
556 |
if ($format eq "MARC21") { |
557 |
my $userenv = C4::Context->userenv; |
557 |
my $userenv = C4::Context->userenv; |
558 |
my $library; |
558 |
my $library; |
559 |
my $marcorgcode = C4::Context->preference('MARCOrgCode'); |
559 |
my $marcorgcode = C4::Context->preference('MARCOrgCode') // q{}; |
560 |
if ( $userenv && $userenv->{'branch'} ) { |
560 |
if ( $userenv && $userenv->{'branch'} ) { |
561 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
561 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
562 |
# userenv's library could not exist because of a trick in misc/commit_file.pl (see FIXME and set_userenv statement) |
562 |
# userenv's library could not exist because of a trick in misc/commit_file.pl (see FIXME and set_userenv statement) |
Lines 565-575
sub AddAuthority {
Link Here
|
565 |
if (!$record->leader) { |
565 |
if (!$record->leader) { |
566 |
$record->leader($leader); |
566 |
$record->leader($leader); |
567 |
} |
567 |
} |
568 |
if (!$record->field('003')) { |
568 |
|
569 |
$record->insert_fields_ordered( |
569 |
# Always update 003 |
570 |
MARC::Field->new('003', $marcorgcode), |
570 |
$record->delete_field( $record->field('003') ); |
571 |
); |
571 |
$record->insert_fields_ordered( MARC::Field->new('003', $marcorgcode) ); |
572 |
} |
572 |
|
573 |
my $date=POSIX::strftime("%y%m%d",localtime); |
573 |
my $date=POSIX::strftime("%y%m%d",localtime); |
574 |
if (!$record->field('008')) { |
574 |
if (!$record->field('008')) { |
575 |
# Get a valid default value for field 008 |
575 |
# Get a valid default value for field 008 |
576 |
- |
|
|