|
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->auth_tag_to_report; |
220 |
my $auth_tag_to_report = $authtype ? $authtype->auth_tag_to_report : $authtypecode; |
| 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; |
|
Lines 227-237
sub search_auth_compat {
Link Here
|
| 227 |
} |
227 |
} |
| 228 |
} |
228 |
} |
| 229 |
# Turn the resultset into a hash |
229 |
# Turn the resultset into a hash |
| 230 |
my %authtype_cols; |
230 |
$result{authtype} = $authtype ? $authtype->authtypetext : $authtypecode; |
| 231 |
foreach my $col ($authtype->result_source->columns) { |
|
|
| 232 |
$authtype_cols{$col} = $authtype->get_column($col); |
| 233 |
} |
| 234 |
$result{authtype} = $authtype->authtypetext; |
| 235 |
$result{reported_tag} = $reported_tag; |
231 |
$result{reported_tag} = $reported_tag; |
| 236 |
|
232 |
|
| 237 |
# Reimplementing BuildSummary is out of scope because it'll be hard |
233 |
# Reimplementing BuildSummary is out of scope because it'll be hard |
| 238 |
- |
|
|