1 package Koha
::SuggestionEngine
::Plugin
::ExplodedTerms
;
3 # Copyright 2012 C & P Bibliography Services
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 Koha::SuggestionEngine::Plugin::ExplodedTerms - suggest searches for broader/narrower/related subjects
29 Plugin to suggest expanding the search by adding broader/narrower/related
30 subjects to subject searches.
36 use C4
::Templates
qw(gettemplate); # This is necessary for translatability
38 use base
qw(Koha::SuggestionEngine::Base);
41 my $name = $plugin->NAME;
46 return 'ExplodedTerms';
50 my $version = $plugin->VERSION;
58 =head2 get_suggestions
60 my $suggestions = $plugin->get_suggestions(\%param);
62 Return suggestions for the specified search that add broader/narrower/related
71 my $search = $param->{'search'};
73 return if ( $search =~ m/^(ccl=|cql=|pqf=)/ );
74 $search =~ s/(su|su-br|su-na|su-rl)[:=](\w*)/OP!$2/g;
75 return if ( $search =~ m/\w+[:=]\w+/ );
83 my $template = C4
::Templates
::gettemplate
('text/explodedterms.tt', 'opac', $cgi);
85 foreach my $index (@indexes) {
86 my $thissearch = $search;
87 $thissearch = "$index:$thissearch"
88 unless ( $thissearch =~ s/OP!/$index:/g );
89 $template->{VARS
}->{index} = $index;
90 my $label = $template->output;
93 'search' => $thissearch,
95 # FIXME: it'd be nice to have some empirical measure of
96 # "relevance" in this case, but we don't.