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