|
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 |
- |
|
|