+ my $searcher = Koha::SearchEngine::Search->new(
+ { index => $Koha::SearchEngine::BIBLIOS_INDEX }
+ );
+ my $cleaned_title = $biblio->title;
+ $cleaned_title =~ tr|/||;
+ my $query =
+ ( C4::Context->preference('UseControlNumber') and $record->field('001') )
+ ? 'rcn:'. $record->field('001')->data . ' AND (bib-level:a OR bib-level:b)'
+ : "Host-item:$cleaned_title";
+ my ( $err, $result, $count ) = $searcher->simple_search_compat( $query, 0, 0 );
+
+ warn "Warning from simple_search_compat: $err"
+ if $err;
+