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

(-)a/C4/Tags.pm (-8 / +3 lines)
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
- 

Return to bug 16455