|
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 |
- |
|
|