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