Attachment #126242 for bug #29238

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

Lines 7-12 use Time::HiRes qw( gettimeofday ); Link Here

(-)a/misc/cronjobs/merge_authorities.pl (+2 lines)
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);

Lines 19-24 use C4::Biblio qw( Link Here

(-)a/misc/link_bibs_to_authorities.pl (+3 lines)
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 } ) ) {

Lines 24-30 use Modern::Perl; Link Here

(-)a/misc/migration_tools/remove_unused_authorities.pl (-2 / +5 lines)
24		24
25	use Koha::Script;	25	use Koha::Script;
26	use C4::Context;	26	use C4::Context;
27	use C4::AuthoritiesMarc;	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