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