Lines 32-37
use Koha::Authorities;
Link Here
|
32 |
use Koha::Authority::MergeRequest; |
32 |
use Koha::Authority::MergeRequest; |
33 |
use Koha::Authority::Types; |
33 |
use Koha::Authority::Types; |
34 |
use Koha::Authority; |
34 |
use Koha::Authority; |
|
|
35 |
use Koha::Libraries; |
35 |
use Koha::SearchEngine; |
36 |
use Koha::SearchEngine; |
36 |
use Koha::SearchEngine::Search; |
37 |
use Koha::SearchEngine::Search; |
37 |
|
38 |
|
Lines 605-616
sub AddAuthority {
Link Here
|
605 |
|
606 |
|
606 |
SetUTF8Flag($record); |
607 |
SetUTF8Flag($record); |
607 |
if ($format eq "MARC21") { |
608 |
if ($format eq "MARC21") { |
|
|
609 |
my $userenv = C4::Context->userenv; |
610 |
my $library; |
611 |
if ( $userenv && $userenv->{'branch'} ) { |
612 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
613 |
} |
608 |
if (!$record->leader) { |
614 |
if (!$record->leader) { |
609 |
$record->leader($leader); |
615 |
$record->leader($leader); |
610 |
} |
616 |
} |
611 |
if (!$record->field('003')) { |
617 |
if (!$record->field('003')) { |
612 |
$record->insert_fields_ordered( |
618 |
$record->insert_fields_ordered( |
613 |
MARC::Field->new('003',C4::Context->preference('MARCOrgCode')) |
619 |
MARC::Field->new('003', $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode')) |
614 |
); |
620 |
); |
615 |
} |
621 |
} |
616 |
my $date=POSIX::strftime("%y%m%d",localtime); |
622 |
my $date=POSIX::strftime("%y%m%d",localtime); |
Lines 629-636
sub AddAuthority {
Link Here
|
629 |
if (!$record->field('040')) { |
635 |
if (!$record->field('040')) { |
630 |
$record->insert_fields_ordered( |
636 |
$record->insert_fields_ordered( |
631 |
MARC::Field->new('040','','', |
637 |
MARC::Field->new('040','','', |
632 |
'a' => C4::Context->preference('MARCOrgCode'), |
638 |
'a' => $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode'), |
633 |
'c' => C4::Context->preference('MARCOrgCode') |
639 |
'c' => $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') |
634 |
) |
640 |
) |
635 |
); |
641 |
); |
636 |
} |
642 |
} |