Lines 1414-1419
sub merge {
Link Here
|
1414 |
my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; |
1414 |
my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; |
1415 |
my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; |
1415 |
my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; |
1416 |
|
1416 |
|
|
|
1417 |
return 0 if !$authto; |
1418 |
|
1417 |
my @record_to; |
1419 |
my @record_to; |
1418 |
@record_to = $MARCto->field($auth_tag_to_report_to)->subfields() if $auth_tag_to_report_to && $MARCto && $MARCto->field($auth_tag_to_report_to); |
1420 |
@record_to = $MARCto->field($auth_tag_to_report_to)->subfields() if $auth_tag_to_report_to && $MARCto && $MARCto->field($auth_tag_to_report_to); |
1419 |
# Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to |
1421 |
# Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to |
1420 |
- |
|
|