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.
35 use C4::Templates qw(gettemplate); # This is necessary for translatability
37 use base qw(Koha::SuggestionEngine::Base);
40 my $name = $plugin->NAME;
45 return 'ExplodedTerms';
49 my $version = $plugin->VERSION;
57 =head2 get_suggestions
59 my $suggestions = $plugin->get_suggestions(\%param);
61 Return suggestions for the specified search that add broader/narrower/related
70 my $search = $param->{'search'};
72 return if ( $search =~ m/^(ccl=|cql=|pqf=)/ );
73 $search =~ s/(su|su-br|su-na|su-rl)[:=](\w*)/OP!$2/g;
74 return if ( $search =~ m/\w+[:=]\w+/ );
82 my $template = C4::Templates::gettemplate('text/explodedterms.tt', 'opac', $cgi);
84 foreach my $index (@indexes) {
85 my $thissearch = $search;
86 $thissearch = "$index:$thissearch"
87 unless ( $thissearch =~ s/OP!/$index:/g );
88 $template->{VARS}->{index} = $index;
89 my $label = $template->output;
92 'search' => $thissearch,
94 # FIXME: it'd be nice to have some empirical measure of
95 # "relevance" in this case, but we don't.