Lines 56-65
BEGIN {
Link Here
|
56 |
import Data::Dumper qw(:DEFAULT); |
56 |
import Data::Dumper qw(:DEFAULT); |
57 |
print STDERR __PACKAGE__ . " external dictionary = " . ($ext_dict||'none') . "\n"; |
57 |
print STDERR __PACKAGE__ . " external dictionary = " . ($ext_dict||'none') . "\n"; |
58 |
} |
58 |
} |
59 |
if ($ext_dict) { |
59 |
if ($ext_dict) { |
60 |
require Lingua::Ispell; |
60 |
require Lingua::Ispell; |
61 |
import Lingua::Ispell qw(spellcheck add_word_lc save_dictionary); |
61 |
import Lingua::Ispell qw(spellcheck add_word_lc save_dictionary); |
62 |
} |
62 |
$ext_dict and $Lingua::Ispell::path = $ext_dict; |
|
|
63 |
$debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; |
64 |
} |
63 |
} |
65 |
} |
64 |
|
66 |
|
65 |
=head1 C4::Tags.pm - Support for user tagging of biblios. |
67 |
=head1 C4::Tags.pm - Support for user tagging of biblios. |
Lines 68-78
More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG"
Link Here
|
68 |
|
70 |
|
69 |
=cut |
71 |
=cut |
70 |
|
72 |
|
71 |
INIT { |
|
|
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 { |
73 |
sub get_filters { |
77 |
my $query = "SELECT * FROM tags_filters "; |
74 |
my $query = "SELECT * FROM tags_filters "; |
78 |
my ($sth); |
75 |
my ($sth); |
79 |
- |
|
|