1 package OpenILS::Application::Search;
2 use OpenILS::Application;
3 use base qw/OpenILS::Application/;
4 use strict; use warnings;
5 use OpenSRF::Utils::JSON;
6 use OpenSRF::Utils::Logger qw(:logger);
8 use OpenILS::Utils::Fieldmapper;
9 use OpenILS::Utils::ModsParser;
10 use OpenSRF::Utils::SettingsClient;
11 use OpenSRF::Utils::Cache;
13 use OpenILS::Application::Search::Biblio;
14 use OpenILS::Application::Search::Authority;
15 use OpenILS::Application::Search::Z3950;
16 use OpenILS::Application::Search::Zips;
17 use OpenILS::Application::Search::CNBrowse;
20 use OpenILS::Application::AppUtils;
22 use Time::HiRes qw(time);
23 use OpenSRF::EX qw(:try);
27 # Houses generic search utilites
30 OpenILS::Application::Search::Z3950->initialize();
31 OpenILS::Application::Search::Zips->initialize();
32 OpenILS::Application::Search::Biblio->initialize();
37 # ------------------------------------------------------------------
38 # Create custom dictionaries like so:
39 # aspell --lang=en create master ./oils_authority.dict < /tmp/words
40 # where /tmp/words is a space separated list of words
41 # ------------------------------------------------------------------
43 __PACKAGE__->register_method(
44 method => "spellcheck",
45 api_name => "open-ils.search.spellcheck");
47 my $speller = Text::Aspell->new();
50 my( $self, $client, $phrase ) = @_;
52 my $conf = OpenSRF::Utils::SettingsClient->new;
54 if( my $dict = $conf->config_value(
55 "apps", "open-ils.search", "app_settings", "spelling_dictionary")) {
56 $speller->set_option('master', $dict);
57 $logger->debug("spelling dictionary set to $dict");
61 return \@resp unless $phrase;
62 for my $word (split(/\s+/,$phrase) ) {
66 suggestions => ($speller->check($word)) ? undef : [$speller->suggest($word)]