@@ -, +, @@ C4::Tags - hit /cgi-bin/koha/opac-search.pl and confirm that the warning does no - Use another dictionnary (??), fill TagsExternalDictionary with its path and confirm that it is used by the tags approval system --- C4/Tags.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) --- a/C4/Tags.pm +++ a/C4/Tags.pm @@ -57,7 +57,9 @@ BEGIN { } if ($ext_dict) { require Lingua::Ispell; - import Lingua::Ispell qw(spellcheck add_word_lc save_dictionary); + import Lingua::Ispell qw(spellcheck add_word_lc); + $Lingua::Ispell::path = $ext_dict; + $debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; } } @@ -67,12 +69,6 @@ More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG" =cut -INIT { - my $ext_dict = C4::Context->preference('TagsExternalDictionary'); - $ext_dict and $Lingua::Ispell::path = $ext_dict; - $debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; -} - sub get_filters { my $query = "SELECT * FROM tags_filters "; my ($sth); --