X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=authorities%2Fauthorities-list.pl;h=0afa5e7fbaabf5bb691b3326170034e0ff871411;hb=f59484df2246c0ee11c5d44f2dca762908864fe8;hp=2b15856dcfaf4b371a7c2c732799613f7ff64006;hpb=ba6c8485ca7afdaaace20d021591ac532de55b3a;p=koha.git

diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl
index 2b15856dcf..0afa5e7fba 100755
--- a/authorities/authorities-list.pl
+++ b/authorities/authorities-list.pl
@@ -5,6 +5,8 @@ use C4::Context;
 use C4::AuthoritiesMarc;
 use utf8;
 use open qw[ :std :encoding(utf8) ];
+use Koha::SearchEngine;
+use Koha::SearchEngine::Search;
 
 my $dbh=C4::Context->dbh;
 my $datatypes_query = $dbh->prepare(<<ENDSQL);
@@ -24,7 +26,8 @@ foreach my $authority (@$dataauthorities){
   my $query;
   $query= "an=".$authority->{'authid'};
   # search for biblios mapped
-  my ($err,$res,$used) = C4::Search::SimpleSearch($query,0,10);
+  my $searcher = Koha::SearchEngine::Search->new({index => $Koha::SearchEngine::BIBLIOS_INDEX});
+  my ($err,undef,$used) = $searcher->simple_search_compat($query,0,1);
   if (defined $err) {
       $used = 0;
   }