|
Lines 19-24
use C4::Biblio qw(
Link Here
|
| 19 |
LinkBibHeadingsToAuthorities |
19 |
LinkBibHeadingsToAuthorities |
| 20 |
ModBiblio |
20 |
ModBiblio |
| 21 |
); |
21 |
); |
|
|
22 |
use C4::Log qw( cronlogaction ); |
| 22 |
use Getopt::Long qw( GetOptions ); |
23 |
use Getopt::Long qw( GetOptions ); |
| 23 |
use Pod::Usage qw( pod2usage ); |
24 |
use Pod::Usage qw( pod2usage ); |
| 24 |
use Time::HiRes qw( time ); |
25 |
use Time::HiRes qw( time ); |
|
Lines 60-65
if ( not $result or $want_help ) {
Link Here
|
| 60 |
usage(); |
61 |
usage(); |
| 61 |
} |
62 |
} |
| 62 |
|
63 |
|
|
|
64 |
cronlogaction(); |
| 65 |
|
| 63 |
my $linker_module = |
66 |
my $linker_module = |
| 64 |
"C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' ); |
67 |
"C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' ); |
| 65 |
unless ( can_load( modules => { $linker_module => undef } ) ) { |
68 |
unless ( can_load( modules => { $linker_module => undef } ) ) { |