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