Attachment #38181 for bug #13899

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




use vars qw($VERSION @ISA @EXPORT);

BEGIN {
    # set the version for version checking
    $VERSION = 3.07.00.049;
        require Exporter;
        @ISA = qw(Exporter);
        @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
}

=head1 NAME

    $sth->finish;
}

=item cronlogaction

  &cronlogaction();

Convenience routine to add a record into action_logs table from a cron job.

=cut

#'
sub cronlogaction {
    logaction( 'CRONJOBS', 'Run', 0, (caller(0))[1] ) if C4::Context->preference('CronjobLog');
}


=item GetLogStatus

  $status = GetLogStatus;

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_13889_add_cronjoblog_syspref.sql (+1 lines)
	1	INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo');

Lines 90-95 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
90	('CoceProviders', NULL, 'aws,gb,ol', 'Coce providers', 'multiple'),	90	('CoceProviders', NULL, 'aws,gb,ol', 'Coce providers', 'multiple'),
91	('COinSinOPACResults','1','','If ON, use COinS in OPAC search results page. NOTE: this can slow down search response time significantly','YesNo'),	91	('COinSinOPACResults','1','','If ON, use COinS in OPAC search results page. NOTE: this can slow down search response time significantly','YesNo'),
92	('ConfirmFutureHolds','0','','Number of days for confirming future holds','Integer'),	92	('ConfirmFutureHolds','0','','Number of days for confirming future holds','Integer'),
		93	('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo'),
93	('CurrencyFormat','US','US\|FR','Determines the display format of currencies. eg: \'36000\' is displayed as \'360 000,00\' in \'FR\' or \'360,000.00\' in \'US\'.','Choice'),	94	('CurrencyFormat','US','US\|FR','Determines the display format of currencies. eg: \'36000\' is displayed as \'360 000,00\' in \'FR\' or \'360,000.00\' in \'US\'.','Choice'),
94	('dateformat','us','metric\|us\|iso','Define global date format (us mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy-mm-dd)','Choice'),	95	('dateformat','us','metric\|us\|iso','Define global date format (us mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy-mm-dd)','Choice'),
95	('DebugLevel','2','0\|1\|2','Define the level of debugging information sent to the browser when errors are encountered (set to 0 in production). 0=none, 1=some, 2=most','Choice'),	96	('DebugLevel','2','0\|1\|2','Define the level of debugging information sent to the browser when errors are encountered (set to 0 in production). 0=none, 1=some, 2=most','Choice'),

Lines 10035-10040 if ( CheckVersion($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+1 lines)
10035	SetVersion ($DBversion);	10035	SetVersion ($DBversion);
10036	}	10036	}
10037		10037
		10038
10038	# DEVELOPER PROCESS, search for anything to execute in the db_update directory	10039	# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10039	# SEE bug 13068	10040	# SEE bug 13068
10040	# if there is anything in the atomicupdate, read and execute it.	10041	# if there is anything in the atomicupdate, read and execute it.

Lines 47-49 Logging: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/logs.pref (+6 lines)
47	on: Log	47	on: Log
48	off: "Don't log"	48	off: "Don't log"
49	- when serials are added, deleted or changed.	49	- when serials are added, deleted or changed.
		50	-
		51	- pref: CronjobLog
		52	choices:
		53	on: Log
		54	off: "Don't log"
		55	- information from cron jobs.

Lines 25-30 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/viewlog.tt (-1 / +2 lines)
25	[% CASE 'LETTER' %]Letter	25	[% CASE 'LETTER' %]Letter
26	[% CASE 'FINES' %]Fines	26	[% CASE 'FINES' %]Fines
27	[% CASE 'SYSTEMPREFERENCE' %]System prefs	27	[% CASE 'SYSTEMPREFERENCE' %]System prefs
		28	[% CASE 'CRONJOBS' %]Cron jobs
28	[% CASE %][% module %]	29	[% CASE %][% module %]
29	[% END %]	30	[% END %]
30	[% END %]	31	[% END %]
Lines 75-81 Link Here
75	[% ELSE %]	76	[% ELSE %]
76	<option value="">All</option>	77	<option value="">All</option>
77	[% END %]	78	[% END %]
78	[% FOREACH modx IN [ 'CATALOGUING' 'AUTHORITIES' 'MEMBERS' 'ACQUISITIONS' 'SERIAL' 'CIRCULATION' 'LETTER' 'FINES' 'SYSTEMPREFERENCE' ] %]	79	[% FOREACH modx IN [ 'CATALOGUING' 'AUTHORITIES' 'MEMBERS' 'ACQUISITIONS' 'SERIAL' 'CIRCULATION' 'LETTER' 'FINES' 'SYSTEMPREFERENCE' 'CRONJOBS' ] %]
79	[% IF modules.grep(modx).size %]	80	[% IF modules.grep(modx).size %]
80	<option value="[% modx %]" selected="selected">[% PROCESS translate_log_module module=modx %]</option>	81	<option value="[% modx %]" selected="selected">[% PROCESS translate_log_module module=modx %]</option>
81	[% ELSE %]	82	[% ELSE %]

Lines 56-61 use C4::Members; Link Here

(-)a/misc/cronjobs/advance_notices.pl (+4 lines)
56	use C4::Members::Messaging;	56	use C4::Members::Messaging;
57	use C4::Overdues;	57	use C4::Overdues;
58	use Koha::DateUtils;	58	use Koha::DateUtils;
		59	use C4::Log;
59		60
60	=head1 NAME	61	=head1 NAME
61		62
Lines 199-204 END_WARN Link Here
199	unless ($confirm) {	200	unless ($confirm) {
200	pod2usage(1);	201	pod2usage(1);
201	}	202	}
		203
		204	cronlogaction();
		205
202	# The fields that will be substituted into <<items.content>>	206	# The fields that will be substituted into <<items.content>>
203	my @item_content_fields = split(/,/,$itemscontent);	207	my @item_content_fields = split(/,/,$itemscontent);
204		208

Lines 44-49 use Modern::Perl; Link Here

(-)a/misc/cronjobs/automatic_renewals.pl (+3 lines)
44		44
45	use C4::Circulation;	45	use C4::Circulation;
46	use C4::Context;	46	use C4::Context;
		47	use C4::Log;
		48
		49	cronlogaction();
47		50
48	my $dbh = C4::Context->dbh;	51	my $dbh = C4::Context->dbh;
49	my ( $borrowernumber, $itemnumber, $branch, $ok, $error );	52	my ( $borrowernumber, $itemnumber, $branch, $ok, $error );

Lines 37-42 use Date::Calc qw( Link Here

(-)a/misc/cronjobs/batch_anonymise.pl (+3 lines)
37	Add_Delta_Days	37	Add_Delta_Days
38	);	38	);
39	use Getopt::Long;	39	use Getopt::Long;
		40	use C4::Log;
40		41
41	sub usage {	42	sub usage {
42	print STDERR <<USAGE;	43	print STDERR <<USAGE;
Lines 66-71 if ( !$days ) { Link Here
66	usage(1);	67	usage(1);
67	}	68	}
68		69
		70	cronlogaction();
		71
69	my ($year,$month,$day) = Today();	72	my ($year,$month,$day) = Today();
70	my ($newyear,$newmonth,$newday) = Add_Delta_Days ($year,$month,$day,(-1)*$days);	73	my ($newyear,$newmonth,$newday) = Add_Delta_Days ($year,$month,$day,(-1)*$days);
71	my $formatdate = sprintf "%4d-%02d-%02d",$newyear,$newmonth,$newday;	74	my $formatdate = sprintf "%4d-%02d-%02d",$newyear,$newmonth,$newday;

Lines 18-23 use Time::HiRes qw(gettimeofday); Link Here

(-)a/misc/cronjobs/build_browser_and_cloud.pl (+4 lines)
18	use ZOOM;	18	use ZOOM;
19	use MARC::File::USMARC;	19	use MARC::File::USMARC;
20	use Getopt::Long;	20	use Getopt::Long;
		21	use C4::Log;
		22
21	my ( $input_marc_file, $number) = ('',0);	23	my ( $input_marc_file, $number) = ('',0);
22	my ($version, $confirm,$test_parameter,$field,$batch,$max_digits,$cloud_tag);	24	my ($version, $confirm,$test_parameter,$field,$batch,$max_digits,$cloud_tag);
23	GetOptions(	25	GetOptions(
Lines 60-65 my $browser_subfield = $2; Link Here
60	warn "browser : $browser_tag / $browser_subfield" unless $batch;	62	warn "browser : $browser_tag / $browser_subfield" unless $batch;
61	die "no cloud or browser field/subfield defined : nothing to do !" unless $browser_tag or $cloud_tag;	63	die "no cloud or browser field/subfield defined : nothing to do !" unless $browser_tag or $cloud_tag;
62		64
		65	cronlogaction();
		66
63	my $dbh = C4::Context->dbh;	67	my $dbh = C4::Context->dbh;
64		68
65	my $i=0;	69	my $i=0;

Lines 29-34 use strict; Link Here

(-)a/misc/cronjobs/cart_to_shelf.pl (+3 lines)
29	use warnings;	29	use warnings;
30		30
31	use C4::Items qw/ CartToShelf /;	31	use C4::Items qw/ CartToShelf /;
		32	use C4::Log;
32		33
33	BEGIN {	34	BEGIN {
34		35
Lines 63-68 unless ($hours) { Link Here
63	die "ERROR: No --hours (-h) option defined";	64	die "ERROR: No --hours (-h) option defined";
64	}	65	}
65		66
		67	cronlogaction();
		68
66	my $query = "SELECT itemnumber FROM items WHERE location = 'CART' AND TIMESTAMPDIFF(HOUR, items.timestamp, NOW() ) > ?";	69	my $query = "SELECT itemnumber FROM items WHERE location = 'CART' AND TIMESTAMPDIFF(HOUR, items.timestamp, NOW() ) > ?";
67	my $sth = C4::Context->dbh->prepare($query);	70	my $sth = C4::Context->dbh->prepare($query);
68	$sth->execute($hours);	71	$sth->execute($hours);





use C4::Context;
use C4::Dates;

use C4::Search;

use Getopt::Long;
use C4::Log;

sub usage {
    print STDERR <<USAGE;

    usage(1);
}

cronlogaction();

my $dbh = C4::Context->dbh();
my $sth;
my $sth2;

Lines 26-32 use YAML::Syck; Link Here

(-)a/misc/cronjobs/cloud-kw.pl (-1 / +2 lines)
26	use Pod::Usage;	26	use Pod::Usage;
27	use Getopt::Long;	27	use Getopt::Long;
28	use C4::Context;	28	use C4::Context;
29		29	use C4::Log;
30		30
31	my $verbose = 0;	31	my $verbose = 0;
32	my $help = 0;	32	my $help = 0;
Lines 44-49 sub usage { Link Here
44		44
45	usage() if $help \|\| !$conf;	45	usage() if $help \|\| !$conf;
46		46
		47	cronlogaction();
47		48
48	my @clouds;	49	my @clouds;
49	print "Reading configuration file: $conf\n" if $verbose;	50	print "Reading configuration file: $conf\n" if $verbose;

Lines 30-35 BEGIN { Link Here

(-)a/misc/cronjobs/delete_expired_opac_registrations.pl (+3 lines)
30		30
31	use C4::Context;	31	use C4::Context;
32	use C4::Members qw/ DelMember /;	32	use C4::Members qw/ DelMember /;
		33	use C4::Log;
33		34
34	my $help;	35	my $help;
35	my $confirm;	36	my $confirm;
Lines 63-68 if ( $help \|\| !$confirm ) { Link Here
63	exit;	64	exit;
64	}	65	}
65		66
		67	cronlogaction();
		68
66	# Delete accounts that haven't been upgraded from the 'temporary' category code	69	# Delete accounts that haven't been upgraded from the 'temporary' category code
67	my $delay =	70	my $delay =
68	C4::Context->preference('PatronSelfRegistrationExpireTemporaryAccountsDelay');	71	C4::Context->preference('PatronSelfRegistrationExpireTemporaryAccountsDelay');

Lines 8-13 use Getopt::Long; Link Here

(-)a/misc/cronjobs/delete_patrons.pl (+3 lines)
8	use C4::Members;	8	use C4::Members;
9	use C4::VirtualShelves;	9	use C4::VirtualShelves;
10	use Koha::DateUtils;	10	use Koha::DateUtils;
		11	use C4::Log;
11		12
12	my ( $help, $verbose, $not_borrowed_since, $expired_before, $category_code,	13	my ( $help, $verbose, $not_borrowed_since, $expired_before, $category_code,
13	$branchcode, $confirm );	14	$branchcode, $confirm );
Lines 36-41 unless ( $not_borrowed_since or $expired_before or $category_code or $branchcode Link Here
36	exit;	37	exit;
37	}	38	}
38		39
		40	cronlogaction();
		41
39	my $members = GetBorrowersToExpunge(	42	my $members = GetBorrowersToExpunge(
40	{	43	{
41	not_borrowered_since => $not_borrowed_since,	44	not_borrowered_since => $not_borrowed_since,

Lines 30-35 BEGIN { Link Here

(-)a/misc/cronjobs/delete_unverified_opac_registrations.pl (+3 lines)
30		30
31	use C4::Context;	31	use C4::Context;
32	use C4::Members qw/ DelMember /;	32	use C4::Members qw/ DelMember /;
		33	use C4::Log;
33		34
34	my $help;	35	my $help;
35	my $confirm;	36	my $confirm;
Lines 59-64 if ( $help \|\| !$confirm ) { Link Here
59	exit;	60	exit;
60	}	61	}
61		62
		63	cronlogaction();
		64
62	my $dbh = C4::Context->dbh;	65	my $dbh = C4::Context->dbh;
63		66
64	$dbh->do( "	67	$dbh->do( "

Lines 38-43 use File::Spec; Link Here

(-)a/misc/cronjobs/fines.pl (+3 lines)
38		38
39	use Koha::Calendar;	39	use Koha::Calendar;
40	use Koha::DateUtils;	40	use Koha::DateUtils;
		41	use C4::Log;
41		42
42	my $help;	43	my $help;
43	my $verbose;	44	my $verbose;
Lines 70-75 if ($help) { Link Here
70	exit;	71	exit;
71	}	72	}
72		73
		74	cronlogaction();
		75
73	my @borrower_fields =	76	my @borrower_fields =
74	qw(cardnumber categorycode surname firstname email phone address citystate);	77	qw(cardnumber categorycode surname firstname email phone address citystate);
75	my @item_fields = qw(itemnumber barcode date_due);	78	my @item_fields = qw(itemnumber barcode date_due);

Lines 36-41 use C4::Letters; Link Here

(-)a/misc/cronjobs/gather_print_notices.pl (+3 lines)
36	use C4::Templates;	36	use C4::Templates;
37	use File::Spec;	37	use File::Spec;
38	use Getopt::Long;	38	use Getopt::Long;
		39	use C4::Log;
39		40
40	sub usage {	41	sub usage {
41	print STDERR <<USAGE;	42	print STDERR <<USAGE;
Lines 65-70 if ( !$output_directory \|\| !-d $output_directory \|\| !-w $output_directory ) { Link Here
65	usage(1);	66	usage(1);
66	}	67	}
67		68
		69	cronlogaction();
		70
68	my $today = C4::Dates->new();	71	my $today = C4::Dates->new();
69	my @all_messages = @{ GetPrintMessages() };	72	my @all_messages = @{ GetPrintMessages() };
70	exit unless (@all_messages);	73	exit unless (@all_messages);

Lines 30-34 BEGIN { Link Here

(-)a/misc/cronjobs/holds/auto_unsuspend_holds.pl (+3 lines)
30	# cancel all expired hold requests	30	# cancel all expired hold requests
31		31
32	use C4::Reserves;	32	use C4::Reserves;
		33	use C4::Log;
		34
		35	cronlogaction();
33		36
34	AutoUnsuspendReserves();	37	AutoUnsuspendReserves();

Lines 16-21 BEGIN { Link Here

(-)a/misc/cronjobs/holds/build_holds_queue.pl (+3 lines)
16	}	16	}
17		17
18	use C4::HoldsQueue qw(CreateQueue);	18	use C4::HoldsQueue qw(CreateQueue);
		19	use C4::Log;
		20
		21	cronlogaction();
19		22
20	CreateQueue();	23	CreateQueue();
21		24

Lines 30-34 BEGIN { Link Here

(-)a/misc/cronjobs/holds/cancel_expired_holds.pl (+3 lines)
30	# cancel all expired hold requests	30	# cancel all expired hold requests
31		31
32	use C4::Reserves;	32	use C4::Reserves;
		33	use C4::Log;
		34
		35	cronlogaction();
33		36
34	CancelExpiredReserves();	37	CancelExpiredReserves();

Lines 32-37 use C4::Context; Link Here

(-)a/misc/cronjobs/j2a.pl (+3 lines)
32	use C4::Members;	32	use C4::Members;
33	use Getopt::Long;	33	use Getopt::Long;
34	use Pod::Usage;	34	use Pod::Usage;
		35	use C4::Log;
35		36
36	=head1 NAME	37	=head1 NAME
37		38
Lines 126-131 if(not $fromcat && $tocat) { #make sure we've specified the info we need. Link Here
126	exit;	127	exit;
127	}	128	}
128		129
		130	cronlogaction();
		131
129	my $dbh=C4::Context->dbh;	132	my $dbh=C4::Context->dbh;
130	my @branches = C4::Branch::GetBranches();	133	my @branches = C4::Branch::GetBranches();
131	#get today's date, format it and subtract upperagelimit	134	#get today's date, format it and subtract upperagelimit

Lines 37-42 use C4::Context; Link Here

(-)a/misc/cronjobs/longoverdue.pl (+3 lines)
37	use C4::Items;	37	use C4::Items;
38	use C4::Circulation qw/LostItem/;	38	use C4::Circulation qw/LostItem/;
39	use Getopt::Long;	39	use Getopt::Long;
		40	use C4::Log;
40		41
41	my $lost; # key=lost value, value=num days.	42	my $lost; # key=lost value, value=num days.
42	my ($charge, $verbose, $confirm, $quiet);	43	my ($charge, $verbose, $confirm, $quiet);
Lines 129-134 unless ($confirm) { Link Here
129	print "### TEST MODE -- NO ACTIONS TAKEN ###\n";	130	print "### TEST MODE -- NO ACTIONS TAKEN ###\n";
130	}	131	}
131		132
		133	cronlogaction();
		134
132	# In my opinion, this line is safe SQL to have outside the API. --atz	135	# In my opinion, this line is safe SQL to have outside the API. --atz
133	our $bounds_sth = C4::Context->dbh->prepare("SELECT DATE_SUB(CURDATE(), INTERVAL ? DAY)");	136	our $bounds_sth = C4::Context->dbh->prepare("SELECT DATE_SUB(CURDATE(), INTERVAL ? DAY)");
134		137




use C4::Letters;
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);
use C4::Budgets qw(GetCurrency);
use Koha::DateUtils;

use Koha::Borrower::Debarments qw(AddUniqueDebarment);
use Koha::DateUtils;
use Koha::Calendar;
use C4::Log;

=head1 NAME


pod2usage(1) if $help;
pod2usage( -verbose => 2 ) if $man;

cronlogaction();

if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
    warn qq(using "$csvfilename" as filename, that seems odd);
}

Lines 26-31 BEGIN { Link Here

(-)a/misc/cronjobs/process_message_queue.pl (+3 lines)
26	eval { require "$FindBin::Bin/../kohalib.pl" };	26	eval { require "$FindBin::Bin/../kohalib.pl" };
27	}	27	}
28	use C4::Letters;	28	use C4::Letters;
		29	use C4::Log;
29	use Getopt::Long;	30	use Getopt::Long;
30		31
31	my $username = undef;	32	my $username = undef;
Lines 60-64 ENDUSAGE Link Here
60		61
61	die $usage if $help;	62	die $usage if $help;
62		63
		64	cronlogaction();
		65
63	C4::Letters::SendQueuedMessages( { verbose => $verbose, username => $username, password => $password, method => $method } );	66	C4::Letters::SendQueuedMessages( { verbose => $verbose, username => $username, password => $password, method => $method } );
64		67

Lines 32-37 BEGIN { Link Here

(-)a/misc/cronjobs/purge_suggestions.pl (+2 lines)
32	use Getopt::Long;	32	use Getopt::Long;
33	use Pod::Usage;	33	use Pod::Usage;
34	use C4::Suggestions;	34	use C4::Suggestions;
		35	use C4::Log;
35		36
36	my ($help, $days);	37	my ($help, $days);
37		38
Lines 55-60 EOF Link Here
55	}	56	}
56		57
57	if($days){	58	if($days){
		59	cronlogaction();
58	DelSuggestionsOlderThan($days);	60	DelSuggestionsOlderThan($days);
59	}	61	}
60		62

Lines 24-29 use warnings; Link Here

(-)a/misc/cronjobs/runreport.pl (+3 lines)
24	use C4::Reports::Guided; # 0.12	24	use C4::Reports::Guided; # 0.12
25	use C4::Context;	25	use C4::Context;
26	use Koha::Email;	26	use Koha::Email;
		27	use C4::Log;
27		28
28	use Getopt::Long qw(:config auto_help auto_version);	29	use Getopt::Long qw(:config auto_help auto_version);
29	use Pod::Usage;	30	use Pod::Usage;
Lines 189-194 pod2usage( -verbose => 2 ) if ($man); Link Here
189	pod2usage( -verbose => 2 ) if ($help and $verbose);	190	pod2usage( -verbose => 2 ) if ($help and $verbose);
190	pod2usage(1) if $help;	191	pod2usage(1) if $help;
191		192
		193	cronlogaction();
		194
192	unless ($format) {	195	unless ($format) {
193	$verbose and print STDERR "No format specified, assuming 'text'\n";	196	$verbose and print STDERR "No format specified, assuming 'text'\n";
194	$format = 'text';	197	$format = 'text';

Lines 32-37 use C4::Context; Link Here

(-)a/misc/cronjobs/serialsUpdate.pl (+3 lines)
32	use C4::Dates qw/format_date format_date_in_iso/;	32	use C4::Dates qw/format_date format_date_in_iso/;
33	use C4::Debug;	33	use C4::Debug;
34	use C4::Serials;	34	use C4::Serials;
		35	use C4::Log;
35		36
36	use Date::Calc qw/Date_to_Days check_date/;	37	use Date::Calc qw/Date_to_Days check_date/;
37	use Getopt::Long;	38	use Getopt::Long;
Lines 77-82 GetOptions( Link Here
77	pod2usage(1) if $help;	78	pod2usage(1) if $help;
78	pod2usage( -verbose => 2 ) if $man;	79	pod2usage( -verbose => 2 ) if $man;
79		80
		81	cronlogaction();
		82
80	$verbose and !$confirm and print "### Database will not be modified ###\n";	83	$verbose and !$confirm and print "### Database will not be modified ###\n";
81		84
82	if ( $note && $nonote ) {	85	if ( $note && $nonote ) {

Lines 7-12 use Getopt::Long; Link Here

(-)a/misc/cronjobs/share_usage_with_koha_community.pl (+3 lines)
7		7
8	use C4::Context;	8	use C4::Context;
9	use C4::UsageStats;	9	use C4::UsageStats;
		10	use C4::Log;
10	use POSIX qw(strftime);	11	use POSIX qw(strftime);
11		12
12	my ( $help, $verbose, $force );	13	my ( $help, $verbose, $force );
Lines 30-35 If your library wants to share their usage statistics with the Koha community, y Link Here
30	exit 1;	31	exit 1;
31	}	32	}
32		33
		34	cronlogaction();
		35
33	my $need_update = ($force ? 1 : C4::UsageStats::NeedUpdate() );	36	my $need_update = ($force ? 1 : C4::UsageStats::NeedUpdate() );
34		37
35	if ($need_update) {	38	if ($need_update) {

Lines 43-48 use C4::Overdues; Link Here

(-)a/misc/cronjobs/staticfines.pl (+3 lines)
43	use C4::Calendar qw(); # don't need any exports from Calendar	43	use C4::Calendar qw(); # don't need any exports from Calendar
44	use C4::Biblio;	44	use C4::Biblio;
45	use C4::Debug; # supplying $debug and $cgi_debug	45	use C4::Debug; # supplying $debug and $cgi_debug
		46	use C4::Log;
46	use Getopt::Long;	47	use Getopt::Long;
47	use List::MoreUtils qw/none/;	48	use List::MoreUtils qw/none/;
48	use Koha::DateUtils;	49	use Koha::DateUtils;
Lines 90-95 This script has the following parameters : Link Here
90	ENDUSAGE	91	ENDUSAGE
91	die $usage if $help;	92	die $usage if $help;
92		93
		94	cronlogaction();
		95
93	my $dbh = C4::Context->dbh;	96	my $dbh = C4::Context->dbh;
94		97
95	# Processing categories	98	# Processing categories

Lines 32-37 use Getopt::Long; Link Here

(-)a/misc/cronjobs/update_totalissues.pl (-1 / +3 lines)
32	use Pod::Usage;	32	use Pod::Usage;
33	use C4::Context;	33	use C4::Context;
34	use C4::Biblio;	34	use C4::Biblio;
		35	use C4::Log;
35	use DateTime;	36	use DateTime;
36	use DateTime::Format::MySQL;	37	use DateTime::Format::MySQL;
37	use Time::HiRes qw/time/;	38	use Time::HiRes qw/time/;
Lines 94-99 if ( not $result or $want_help ) { Link Here
94	usage();	95	usage();
95	}	96	}
96		97
		98	cronlogaction();
		99
97	my $dbh = C4::Context->dbh;	100	my $dbh = C4::Context->dbh;
98	$dbh->{AutoCommit} = 0;	101	$dbh->{AutoCommit} = 0;
99		102
100	-

Return to bug 13899

Lines 30-40 use C4::Dates qw(format_date); Link Here

(-)a/C4/Log.pm (-4 / +18 lines)
30	use vars qw($VERSION @ISA @EXPORT);	30	use vars qw($VERSION @ISA @EXPORT);
31		31
32	BEGIN {	32	BEGIN {
33	# set the version for version checking	33	# set the version for version checking
34	$VERSION = 3.07.00.049;	34	$VERSION = 3.07.00.049;
35	require Exporter;	35	require Exporter;
36	@ISA = qw(Exporter);	36	@ISA = qw(Exporter);
37	@EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs);	37	@EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
38	}	38	}
39		39
40	=head1 NAME	40	=head1 NAME
Lines 81-86 sub logaction { Link Here
81	$sth->finish;	81	$sth->finish;
82	}	82	}
83		83
		84	=item cronlogaction
		85
		86	&cronlogaction();
		87
		88	Convenience routine to add a record into action_logs table from a cron job.
		89
		90	=cut
		91
		92	#'
		93	sub cronlogaction {
		94	logaction( 'CRONJOBS', 'Run', 0, (caller(0))[1] ) if C4::Context->preference('CronjobLog');
		95	}
		96
		97
84	=item GetLogStatus	98	=item GetLogStatus
85		99
86	$status = GetLogStatus;	100	$status = GetLogStatus;

Lines 36-45 BEGIN { Link Here

(-)a/misc/cronjobs/cleanup_database.pl (-2 / +3 lines)
36		36
37	use C4::Context;	37	use C4::Context;
38	use C4::Dates;	38	use C4::Dates;
39
40	use C4::Search;	39	use C4::Search;
41
42	use Getopt::Long;	40	use Getopt::Long;
		41	use C4::Log;
43		42
44	sub usage {	43	sub usage {
45	print STDERR <<USAGE;	44	print STDERR <<USAGE;
Lines 132-137 if ($pDebarments && $allDebarments) { Link Here
132	usage(1);	131	usage(1);
133	}	132	}
134		133
		134	cronlogaction();
		135
135	my $dbh = C4::Context->dbh();	136	my $dbh = C4::Context->dbh();
136	my $sth;	137	my $sth;
137	my $sth2;	138	my $sth2;

Lines 43-53 use C4::Debug; Link Here

(-)a/misc/cronjobs/overdue_notices.pl (-2 / +3 lines)
43	use C4::Letters;	43	use C4::Letters;
44	use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);	44	use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);
45	use C4::Budgets qw(GetCurrency);	45	use C4::Budgets qw(GetCurrency);
46	use Koha::DateUtils;
47
48	use Koha::Borrower::Debarments qw(AddUniqueDebarment);	46	use Koha::Borrower::Debarments qw(AddUniqueDebarment);
49	use Koha::DateUtils;	47	use Koha::DateUtils;
50	use Koha::Calendar;	48	use Koha::Calendar;
		49	use C4::Log;
51		50
52	=head1 NAME	51	=head1 NAME
53		52
Lines 316-321 GetOptions( Link Here
316	pod2usage(1) if $help;	315	pod2usage(1) if $help;
317	pod2usage( -verbose => 2 ) if $man;	316	pod2usage( -verbose => 2 ) if $man;
318		317
		318	cronlogaction();
		319
319	if ( defined $csvfilename && $csvfilename =~ /^-/ ) {	320	if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
320	warn qq(using "$csvfilename" as filename, that seems odd);	321	warn qq(using "$csvfilename" as filename, that seems odd);
321	}	322	}