|
Lines 157-165
sub search_compat {
Link Here
|
| 157 |
$index = $offset; # opac-search expects results to be put in the |
157 |
$index = $offset; # opac-search expects results to be put in the |
| 158 |
# right place in the array, according to $offset |
158 |
# right place in the array, according to $offset |
| 159 |
$results->each(sub { |
159 |
$results->each(sub { |
|
|
160 |
my $marc; |
| 160 |
# The results come in an array for some reason |
161 |
# The results come in an array for some reason |
| 161 |
my $marc_json = $_[0]->{record}; |
162 |
unless (ref($_[0]->{'Local-number'}) ){ |
| 162 |
my $marc = $self->json2marc($marc_json); |
163 |
# shift this to overdrive stuff |
|
|
164 |
$marc = MARC::Record->new(); |
| 165 |
$marc->add_fields( |
| 166 |
[ 245, "1", " ", a => $_[0]->{title}, b=> $_[0]->{subtitle} ], |
| 167 |
[ 100, "", "", a => $_[0]->{'primaryCreator'}->{'name'}], |
| 168 |
[ 999, "", "", c => $_[0]->{'Local-number'}], |
| 169 |
[ 999, "", "", d => $_[0]->{'Local-number'}], |
| 170 |
[ 999, "", "", a => 'ExtOverdrive' ], |
| 171 |
); |
| 172 |
} |
| 173 |
else { |
| 174 |
my $marc_json = $_[0]->{record}; |
| 175 |
$marc = $self->json2marc($marc_json); |
| 176 |
} |
| 163 |
$records[$index++] = $marc; |
177 |
$records[$index++] = $marc; |
| 164 |
}); |
178 |
}); |
| 165 |
# consumers of this expect a name-spaced result, we provide the default |
179 |
# consumers of this expect a name-spaced result, we provide the default |
| 166 |
- |
|
|