Lines 25-30
use Exporter;
Link Here
|
25 |
|
25 |
|
26 |
use C4::Context; |
26 |
use C4::Context; |
27 |
use C4::Debug; |
27 |
use C4::Debug; |
|
|
28 |
use Module::Load::Conditional qw/check_install/; |
28 |
#use Data::Dumper; |
29 |
#use Data::Dumper; |
29 |
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created); |
30 |
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created); |
30 |
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n"; |
31 |
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM tags_all\n"; |
Lines 50-55
BEGIN {
Link Here
|
50 |
); |
51 |
); |
51 |
# %EXPORT_TAGS = (); |
52 |
# %EXPORT_TAGS = (); |
52 |
my $ext_dict = C4::Context->preference('TagsExternalDictionary'); |
53 |
my $ext_dict = C4::Context->preference('TagsExternalDictionary'); |
|
|
54 |
if ( $ext_dict && ! check_install( module => 'Lingua::Ispell' ) ) { |
55 |
warn "Ignoring TagsExternalDictionary, because Lingua::Ispell is not installed."; |
56 |
$ext_dict = q{}; |
57 |
} |
53 |
if ($debug) { |
58 |
if ($debug) { |
54 |
require Data::Dumper; |
59 |
require Data::Dumper; |
55 |
import Data::Dumper qw(:DEFAULT); |
60 |
import Data::Dumper qw(:DEFAULT); |
56 |
- |
|
|