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

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
Lines 802-807 our $PERL_DEPS = { Link Here
802
        'required' => '1',
802
        'required' => '1',
803
        'min_ver'  => '0.14',
803
        'min_ver'  => '0.14',
804
    },
804
    },
805
    'Lingua::Ispell' => {
806
        'usage'    => 'Enhanced Content - Tagging',
807
        'required' => '0',
808
        'min_ver'  => '0.07'
809
    },
805
};
810
};
806
811
807
1;
812
1;
(-)a/C4/Tags.pm (-10 / +6 lines)
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
- 

Return to bug 16637