|
Lines 217-223
sub search_auth_compat {
Link Here
|
| 217 |
# with the record. It's not documented why this is the case, so |
217 |
# with the record. It's not documented why this is the case, so |
| 218 |
# it's not reproduced here yet. |
218 |
# it's not reproduced here yet. |
| 219 |
my $authtype = $rs->single; |
219 |
my $authtype = $rs->single; |
| 220 |
my $auth_tag_to_report = $authtype ? $authtype->auth_tag_to_report : $authtypecode; |
220 |
my $auth_tag_to_report = $authtype ? $authtype->auth_tag_to_report : ""; |
| 221 |
my $marc = $self->json2marc($marc_json); |
221 |
my $marc = $self->json2marc($marc_json); |
| 222 |
my $mainentry = $marc->field($auth_tag_to_report); |
222 |
my $mainentry = $marc->field($auth_tag_to_report); |
| 223 |
my $reported_tag; |
223 |
my $reported_tag; |
| 224 |
- |
|
|