View | Details | Raw Unified | Return to bug 9857
Collapse All | Expand All

(-)a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm (-2 / +1 lines)
Lines 30-37 Plugin to get suggestions from Koha's authority file Link Here
30
30
31
=cut
31
=cut
32
32
33
use strict;
33
use Modern::Perl;
34
use warnings;
35
use Carp;
34
use Carp;
36
35
37
use base qw(Koha::SuggestionEngine::Base);
36
use base qw(Koha::SuggestionEngine::Base);
(-)a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm (-4 / +2 lines)
Lines 31-38 subjects to subject searches. Link Here
31
31
32
=cut
32
=cut
33
33
34
use strict;
34
use Modern::Perl;
35
use warnings;
36
use Carp;
35
use Carp;
37
use C4::Templates qw(gettemplate); # This is necessary for translatability
36
use C4::Templates qw(gettemplate); # This is necessary for translatability
38
37
Lines 86-92 sub get_suggestions { Link Here
86
    foreach my $index (@indexes) {
85
    foreach my $index (@indexes) {
87
        my $thissearch = $search;
86
        my $thissearch = $search;
88
        $thissearch = "$index:$thissearch"
87
        $thissearch = "$index:$thissearch"
89
          unless ( $thissearch =~ s/OP!/$index=/g );
88
          unless ( $thissearch =~ s/OP!/$index:/g );
90
        $template->{VARS}->{index} = $index;
89
        $template->{VARS}->{index} = $index;
91
        my $label = $template->output;
90
        my $label = $template->output;
92
        push @results,
91
        push @results,
93
- 

Return to bug 9857