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

(-)a/misc/cronjobs/merge_authorities.pl (+2 lines)
Lines 7-12 use Time::HiRes qw( gettimeofday ); Link Here
7
7
8
use Koha::Script -cron;
8
use Koha::Script -cron;
9
use C4::AuthoritiesMarc qw( GetAuthority merge );
9
use C4::AuthoritiesMarc qw( GetAuthority merge );
10
use C4::Log qw( cronlogaction );
10
use Koha::Authority::MergeRequests;
11
use Koha::Authority::MergeRequests;
11
12
12
use constant RESET_HOURS => 24;
13
use constant RESET_HOURS => 24;
Lines 21-26 GetOptions( Link Here
21
22
22
$|=1; # flushes output
23
$|=1; # flushes output
23
if ( $params->{batch} ) {
24
if ( $params->{batch} ) {
25
    cronlogaction();
24
    handle_batch($params);
26
    handle_batch($params);
25
} else {
27
} else {
26
    pod2usage(1);
28
    pod2usage(1);
(-)a/misc/link_bibs_to_authorities.pl (+3 lines)
Lines 24-29 use C4::Biblio qw( Link Here
24
    LinkBibHeadingsToAuthorities
24
    LinkBibHeadingsToAuthorities
25
    ModBiblio
25
    ModBiblio
26
);
26
);
27
use C4::Log qw( cronlogaction );
27
use Koha::Biblios;
28
use Koha::Biblios;
28
use Getopt::Long qw( GetOptions );
29
use Getopt::Long qw( GetOptions );
29
use Pod::Usage qw( pod2usage );
30
use Pod::Usage qw( pod2usage );
Lines 70-75 if ( not $result or $want_help ) { Link Here
70
    usage();
71
    usage();
71
}
72
}
72
73
74
cronlogaction();
75
73
my $linker_module =
76
my $linker_module =
74
  "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );
77
  "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );
75
unless ( can_load( modules => { $linker_module => undef } ) ) {
78
unless ( can_load( modules => { $linker_module => undef } ) ) {
(-)a/misc/migration_tools/remove_unused_authorities.pl (-1 / +4 lines)
Lines 25-30 use Modern::Perl; Link Here
25
use Koha::Script;
25
use Koha::Script;
26
use C4::Context;
26
use C4::Context;
27
use C4::AuthoritiesMarc qw( DelAuthority );
27
use C4::AuthoritiesMarc qw( DelAuthority );
28
use C4::Log qw( cronlogaction );
28
use Getopt::Long qw( GetOptions );
29
use Getopt::Long qw( GetOptions );
29
30
30
use Koha::SearchEngine::Search;
31
use Koha::SearchEngine::Search;
Lines 42-47 if ( $want_help || !($test || $confirm) ) { Link Here
42
    print_usage();
43
    print_usage();
43
    exit 0;
44
    exit 0;
44
}
45
}
46
47
cronlogaction();
48
45
if ($test) {
49
if ($test) {
46
    print "*** Testing only, authorities will not be deleted. ***\n";
50
    print "*** Testing only, authorities will not be deleted. ***\n";
47
}
51
}
48
- 

Return to bug 29238