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