|
Lines 57-63
BEGIN {
Link Here
|
| 57 |
} |
57 |
} |
| 58 |
if ($ext_dict) { |
58 |
if ($ext_dict) { |
| 59 |
require Lingua::Ispell; |
59 |
require Lingua::Ispell; |
| 60 |
import Lingua::Ispell qw(spellcheck add_word_lc save_dictionary); |
60 |
import Lingua::Ispell qw(spellcheck add_word_lc); |
|
|
61 |
$Lingua::Ispell::path = $ext_dict; |
| 62 |
$debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; |
| 61 |
} |
63 |
} |
| 62 |
} |
64 |
} |
| 63 |
|
65 |
|
|
Lines 67-78
More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG"
Link Here
|
| 67 |
|
69 |
|
| 68 |
=cut |
70 |
=cut |
| 69 |
|
71 |
|
| 70 |
INIT { |
|
|
| 71 |
my $ext_dict = C4::Context->preference('TagsExternalDictionary'); |
| 72 |
$ext_dict and $Lingua::Ispell::path = $ext_dict; |
| 73 |
$debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; |
| 74 |
} |
| 75 |
|
| 76 |
sub get_filters { |
72 |
sub get_filters { |
| 77 |
my $query = "SELECT * FROM tags_filters "; |
73 |
my $query = "SELECT * FROM tags_filters "; |
| 78 |
my ($sth); |
74 |
my ($sth); |
| 79 |
- |
|
|