|
Lines 1613-1618
sub merge {
Link Here
|
| 1613 |
$authtypefrom = Koha::Authority::Types->find( $authfrom->authtypecode ) if $authfrom; |
1613 |
$authtypefrom = Koha::Authority::Types->find( $authfrom->authtypecode ) if $authfrom; |
| 1614 |
my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; |
1614 |
my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; |
| 1615 |
my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; |
1615 |
my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; |
|
|
1616 |
my $subfield_to_report_in_1 = $authtypeto ? $authtypeto->subfield_to_report_in_1 : ''; |
| 1616 |
|
1617 |
|
| 1617 |
my @record_to; |
1618 |
my @record_to; |
| 1618 |
|
1619 |
|
|
Lines 1635-1640
sub merge {
Link Here
|
| 1635 |
@record_to = $chosen_field->subfields(); |
1636 |
@record_to = $chosen_field->subfields(); |
| 1636 |
} |
1637 |
} |
| 1637 |
|
1638 |
|
|
|
1639 |
if ($subfield_to_report_in_1 && $MARCto) { |
| 1640 |
my ( $tag, $code ) = split /\$/, $subfield_to_report_in_1; |
| 1641 |
|
| 1642 |
foreach my $field ( $MARCto->field($tag) ) { |
| 1643 |
foreach my $subfield ( $field->subfield($code) ) { |
| 1644 |
push @record_to, ['1', $subfield]; |
| 1645 |
} |
| 1646 |
} |
| 1647 |
} |
| 1648 |
|
| 1638 |
# Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to |
1649 |
# Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to |
| 1639 |
# is empty, make sure that $9 and $a remain (instead of clearing the |
1650 |
# is empty, make sure that $9 and $a remain (instead of clearing the |
| 1640 |
# reference) in order to allow for data recovery. |
1651 |
# reference) in order to allow for data recovery. |
| 1641 |
- |
|
|