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;
18 use OpenILS::Application::Search::Serial;
19 use OpenILS::Application::Search::Browse;
22 use OpenILS::Application::AppUtils;
24 use Time::HiRes qw(time);
25 use OpenSRF::EX qw(:try);
29 # Houses generic search utilites
32 OpenILS::Application::Search::Zips->initialize();
33 OpenILS::Application::Search::Biblio->initialize();
37 OpenILS::Application::Search::Z3950->child_init;
38 OpenILS::Application::Search::Browse->child_init;
43 # ------------------------------------------------------------------
44 # Create custom dictionaries like so:
45 # aspell --lang=en create master ./oils_authority.dict < /tmp/words
46 # where /tmp/words is a space separated list of words
47 # ------------------------------------------------------------------
49 __PACKAGE__->register_method(
50 method => "spellcheck",
51 api_name => "open-ils.search.spellcheck",
53 desc => 'Returns alternate spelling suggestions',
57 desc => 'Word or phrase to return alternate spelling suggestions for',
61 name => 'Dictionary class',
62 desc => 'Alternate configured dictionary to use (optional)',
67 desc => 'Array with a suggestions hash for each word in the phrase, like: '
68 . q# [{ word: original_word, suggestions: [sug1, sug2, ...], found: 1 }, ... ] #
69 . 'The "found" value will be 1 if the word was found in the dictionary, 0 otherwise.',
75 my $speller = Text::Aspell->new();
78 my( $self, $client, $phrase, $class ) = @_;
80 return [] unless $phrase; # nothing to check, abort.
82 my $conf = OpenSRF::Utils::SettingsClient->new;
85 my @conf_path = (apps => 'open-ils.search' => app_settings => spelling_dictionary => $class);
87 if( my $dict = $conf->config_value(@conf_path) ) {
88 $speller->set_option('master', $dict);
89 $logger->debug("spelling dictionary set to $dict");
92 $speller->set_option('ignore-case', 'true');
96 for my $word (split(/\s+/,$phrase) ) {
98 my @suggestions = $speller->suggest($word);
101 for my $sug (@suggestions) {
103 # suggestion matches alternate case of original word
104 next if lc($sug) eq lc($word);
106 # suggestion matches alternate case of already suggested word
107 next if grep { lc($sug) eq lc($_) } @trimmed;
109 push(@trimmed, $sug);
115 suggestions => (@trimmed) ? [@trimmed] : undef,
116 found => $speller->check($word)