Koha/SearchEngine/Zebra/Search.pm

   1 package Koha::SearchEngine::Zebra::Search;
   2 use Moose::Role;
   3 with 'Koha::SearchEngine::SearchRole';
   4
   5 use Data::SearchEngine::Zebra;
   6 use Data::SearchEngine::Query;
   7 use Koha::SearchEngine::Zebra;
   8 use Data::Dump qw(dump);
   9
  10 has searchengine => (
  11     is => 'rw',
  12     isa => 'Koha::SearchEngine::Zebra',
  13     default => sub { Koha::SearchEngine::Zebra->new },
  14     lazy => 1
  15 );
  16
  17 sub search {
  18     my ($self,$query_string) = @_;
  19
  20      my $query = Data::SearchEngine::Query->new(
  21        count => 10,
  22        page => 1,
  23        query => $query_string,
  24      );
  25
  26     warn "search for $query_string";
  27
  28     my $results = $self->searchengine->search($query);
  29
  30     foreach my $item (@{ $results->items }) {
  31         my $title = $item->get_value('ste_title');
  32         #utf8::encode($title);
  33         print "$title\n";
  34                 warn dump $title;
  35     }
  36 }
  37
  38 sub dosmth {'bou' }
  39
  40 1;