Lines 22-29
use Modern::Perl;
Link Here
|
22 |
use Carp; |
22 |
use Carp; |
23 |
|
23 |
|
24 |
use Koha::Database; |
24 |
use Koha::Database; |
25 |
|
|
|
26 |
use Koha::Authority; |
25 |
use Koha::Authority; |
|
|
26 |
use Koha::SearchEngine; |
27 |
|
27 |
|
28 |
use base qw(Koha::Objects); |
28 |
use base qw(Koha::Objects); |
29 |
|
29 |
|
Lines 51-57
sub get_usage_count {
Link Here
|
51 |
my ( $class, $params ) = @_; |
51 |
my ( $class, $params ) = @_; |
52 |
my $authid = $params->{authid} || return; |
52 |
my $authid = $params->{authid} || return; |
53 |
|
53 |
|
54 |
my $searcher = Koha::SearchEngine::Search->new({ index => $Koha::SearchEngine::BIBLIOS_INDEX }); |
54 |
my $searcher = Koha::SearchEngine::Search->new({ index => Koha::SearchEngine::BIBLIOS_INDEX }); |
55 |
my ( $err, $result, $count ) = $searcher->simple_search_compat( 'an:' . $authid, 0, 0 ); |
55 |
my ( $err, $result, $count ) = $searcher->simple_search_compat( 'an:' . $authid, 0, 0 ); |
56 |
if( $err ) { |
56 |
if( $err ) { |
57 |
warn "Error: $err from search for " . $authid; |
57 |
warn "Error: $err from search for " . $authid; |
Lines 77-83
sub linked_biblionumbers {
Link Here
|
77 |
my ( $self, $params ) = @_; |
77 |
my ( $self, $params ) = @_; |
78 |
my $authid = $params->{authid} || return; |
78 |
my $authid = $params->{authid} || return; |
79 |
|
79 |
|
80 |
my $searcher = Koha::SearchEngine::Search->new({ index => $Koha::SearchEngine::BIBLIOS_INDEX }); |
80 |
my $searcher = Koha::SearchEngine::Search->new({ index => Koha::SearchEngine::BIBLIOS_INDEX }); |
81 |
# if max_results is undefined, we will get all results |
81 |
# if max_results is undefined, we will get all results |
82 |
my ( $err, $result, $count ) = $searcher->simple_search_compat( 'an:' . $authid, $params->{offset} // 0, $params->{max_results} ); |
82 |
my ( $err, $result, $count ) = $searcher->simple_search_compat( 'an:' . $authid, $params->{offset} // 0, $params->{max_results} ); |
83 |
|
83 |
|