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