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 |
- |
|
|