Lines 343-353
sub simple_search_compat {
Link Here
|
343 |
} |
343 |
} |
344 |
my $results = $self->search($query, undef, $max_results, %options); |
344 |
my $results = $self->search($query, undef, $max_results, %options); |
345 |
my @records; |
345 |
my @records; |
346 |
$results->each(sub { |
346 |
my $hits = $results->{'hits'}; |
347 |
my $marc = $self->decode_record_from_result(@_); |
347 |
foreach my $es_record (@{$hits->{'hits'}}) { |
348 |
push @records, $marc; |
348 |
push @records, $self->decode_record_from_result($es_record->{'_source'}); |
349 |
}); |
349 |
} |
350 |
return (undef, \@records, $results->total); |
350 |
return (undef, \@records, $hits->{'total'}); |
351 |
} |
351 |
} |
352 |
|
352 |
|
353 |
=head2 extract_biblionumber |
353 |
=head2 extract_biblionumber |
354 |
- |
|
|