Lines 569-583
sub AddAuthority {
Link Here
|
569 |
if ($format eq "MARC21") { |
569 |
if ($format eq "MARC21") { |
570 |
my $userenv = C4::Context->userenv; |
570 |
my $userenv = C4::Context->userenv; |
571 |
my $library; |
571 |
my $library; |
|
|
572 |
my $marcorgcode = C4::Context->preference('MARCOrgCode'); |
572 |
if ( $userenv && $userenv->{'branch'} ) { |
573 |
if ( $userenv && $userenv->{'branch'} ) { |
573 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
574 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
|
|
575 |
$marcorgcode = $library->get_effective_marcorgcode; |
574 |
} |
576 |
} |
575 |
if (!$record->leader) { |
577 |
if (!$record->leader) { |
576 |
$record->leader($leader); |
578 |
$record->leader($leader); |
577 |
} |
579 |
} |
578 |
if (!$record->field('003')) { |
580 |
if (!$record->field('003')) { |
579 |
$record->insert_fields_ordered( |
581 |
$record->insert_fields_ordered( |
580 |
MARC::Field->new('003', $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode')) |
582 |
MARC::Field->new('003', $marcorgcode); |
581 |
); |
583 |
); |
582 |
} |
584 |
} |
583 |
my $date=POSIX::strftime("%y%m%d",localtime); |
585 |
my $date=POSIX::strftime("%y%m%d",localtime); |
Lines 596-603
sub AddAuthority {
Link Here
|
596 |
if (!$record->field('040')) { |
598 |
if (!$record->field('040')) { |
597 |
$record->insert_fields_ordered( |
599 |
$record->insert_fields_ordered( |
598 |
MARC::Field->new('040','','', |
600 |
MARC::Field->new('040','','', |
599 |
'a' => $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode'), |
601 |
'a' => $marcorgcode, |
600 |
'c' => $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') |
602 |
'c' => $marcorgcode, |
601 |
) |
603 |
) |
602 |
); |
604 |
); |
603 |
} |
605 |
} |
604 |
- |
|
|