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