Lines 608-622
sub AddAuthority {
Link Here
|
608 |
if ($format eq "MARC21") { |
608 |
if ($format eq "MARC21") { |
609 |
my $userenv = C4::Context->userenv; |
609 |
my $userenv = C4::Context->userenv; |
610 |
my $library; |
610 |
my $library; |
|
|
611 |
my $marcorgcode = C4::Context->preference('MARCOrgCode'); |
611 |
if ( $userenv && $userenv->{'branch'} ) { |
612 |
if ( $userenv && $userenv->{'branch'} ) { |
612 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
613 |
$library = Koha::Libraries->find( $userenv->{'branch'} ); |
|
|
614 |
$marcorgcode = $library->get_effective_marcorgcode; |
613 |
} |
615 |
} |
614 |
if (!$record->leader) { |
616 |
if (!$record->leader) { |
615 |
$record->leader($leader); |
617 |
$record->leader($leader); |
616 |
} |
618 |
} |
617 |
if (!$record->field('003')) { |
619 |
if (!$record->field('003')) { |
618 |
$record->insert_fields_ordered( |
620 |
$record->insert_fields_ordered( |
619 |
MARC::Field->new('003', $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode')) |
621 |
MARC::Field->new('003', $marcorgcode), |
620 |
); |
622 |
); |
621 |
} |
623 |
} |
622 |
my $date=POSIX::strftime("%y%m%d",localtime); |
624 |
my $date=POSIX::strftime("%y%m%d",localtime); |
Lines 635-642
sub AddAuthority {
Link Here
|
635 |
if (!$record->field('040')) { |
637 |
if (!$record->field('040')) { |
636 |
$record->insert_fields_ordered( |
638 |
$record->insert_fields_ordered( |
637 |
MARC::Field->new('040','','', |
639 |
MARC::Field->new('040','','', |
638 |
'a' => $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode'), |
640 |
'a' => $marcorgcode, |
639 |
'c' => $library ? $library->get_effective_marcorgcode : C4::Context->preference('MARCOrgCode') |
641 |
'c' => $marcorgcode, |
640 |
) |
642 |
) |
641 |
); |
643 |
); |
642 |
} |
644 |
} |
643 |
- |
|
|