Lines 200-208
sub search_auth_compat {
Link Here
|
200 |
|
200 |
|
201 |
# I wonder if these should be real values defined in the mapping |
201 |
# I wonder if these should be real values defined in the mapping |
202 |
# rather than hard-coded conversions. |
202 |
# rather than hard-coded conversions. |
203 |
# Our results often come through as nested arrays, to fix this |
203 |
# Handle legacy nested arrays indexed with splitting enabled. |
204 |
# requires changes in catmandu. |
204 |
my $authid = $record->{ 'Local-number' }[0]; |
205 |
my $authid = $record->{ 'Local-number' }[0][0]; |
205 |
$authid = @$authid[0] if (ref $authid eq 'ARRAY'); |
206 |
$result{authid} = $authid; |
206 |
$result{authid} = $authid; |
207 |
|
207 |
|
208 |
# TODO put all this info into the record at index time so we |
208 |
# TODO put all this info into the record at index time so we |
209 |
- |
|
|