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

(-)a/C4/Log.pm (-1 / +15 lines)
Lines 34-40 BEGIN { Link Here
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;
(-)a/installer/data/mysql/sysprefs.sql (-1 / +2 lines)
Lines 474-478 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
474
('XSLTDetailsDisplay','default','','Enable XSL stylesheet control over details page display on intranet','Free'),
474
('XSLTDetailsDisplay','default','','Enable XSL stylesheet control over details page display on intranet','Free'),
475
('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
475
('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
476
('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
476
('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
477
('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo')
477
('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo'),
478
('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo')
478
;
479
;
(-)a/installer/data/mysql/updatedatabase.pl (+8 lines)
Lines 10035-10040 if ( CheckVersion($DBversion) ) { Link Here
10035
    SetVersion ($DBversion);
10035
    SetVersion ($DBversion);
10036
}
10036
}
10037
10037
10038
$DBversion = '3.19.00.XXX';
10039
if ( CheckVersion($DBversion) ) {
10040
    $dbh->do("INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('CronjobLog','0',NULL,'If ON, log information from cron jobs.','YesNo');");
10041
    print "Upgrade to $DBversion done (Add CronjobLog syspref)\n";
10042
    SetVersion ($DBversion);
10043
}
10044
10045
10038
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10046
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10039
# SEE bug 13068
10047
# SEE bug 13068
10040
# if there is anything in the atomicupdate, read and execute it.
10048
# if there is anything in the atomicupdate, read and execute it.
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/logs.pref (+6 lines)
Lines 47-49 Logging: Link Here
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.
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/viewlog.tt (-1 / +2 lines)
Lines 25-30 Link Here
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 %]
(-)a/misc/cronjobs/advance_notices.pl (+4 lines)
Lines 56-61 use C4::Members; Link Here
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
(-)a/misc/cronjobs/automatic_renewals.pl (+3 lines)
Lines 44-49 use Modern::Perl; Link Here
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 );
(-)a/misc/cronjobs/batch_anonymise.pl (+3 lines)
Lines 37-42 use Date::Calc qw( Link Here
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;
(-)a/misc/cronjobs/build_browser_and_cloud.pl (+4 lines)
Lines 18-23 use Time::HiRes qw(gettimeofday); Link Here
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;
(-)a/misc/cronjobs/cart_to_shelf.pl (+3 lines)
Lines 29-34 use strict; Link Here
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);
(-)a/misc/cronjobs/cleanup_database.pl (-2 / +3 lines)
Lines 36-45 BEGIN { Link Here
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;
(-)a/misc/cronjobs/cloud-kw.pl (-1 / +2 lines)
Lines 26-32 use YAML::Syck; Link Here
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;
(-)a/misc/cronjobs/delete_expired_opac_registrations.pl (+3 lines)
Lines 30-35 BEGIN { Link Here
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');
(-)a/misc/cronjobs/delete_patrons.pl (+3 lines)
Lines 8-13 use Getopt::Long; Link Here
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,
(-)a/misc/cronjobs/delete_unverified_opac_registrations.pl (+3 lines)
Lines 30-35 BEGIN { Link Here
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( "
(-)a/misc/cronjobs/fines.pl (+3 lines)
Lines 38-43 use File::Spec; Link Here
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);
(-)a/misc/cronjobs/gather_print_notices.pl (+3 lines)
Lines 36-41 use C4::Letters; Link Here
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);
(-)a/misc/cronjobs/holds/auto_unsuspend_holds.pl (+3 lines)
Lines 30-34 BEGIN { Link Here
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();
(-)a/misc/cronjobs/holds/build_holds_queue.pl (+3 lines)
Lines 16-21 BEGIN { Link Here
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
(-)a/misc/cronjobs/holds/cancel_expired_holds.pl (+3 lines)
Lines 30-34 BEGIN { Link Here
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();
(-)a/misc/cronjobs/j2a.pl (+3 lines)
Lines 32-37 use C4::Context; Link Here
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
(-)a/misc/cronjobs/longoverdue.pl (+3 lines)
Lines 37-42 use C4::Context; Link Here
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
(-)a/misc/cronjobs/overdue_notices.pl (-2 / +3 lines)
Lines 43-53 use C4::Debug; Link Here
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
}
(-)a/misc/cronjobs/process_message_queue.pl (+3 lines)
Lines 26-31 BEGIN { Link Here
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
(-)a/misc/cronjobs/purge_suggestions.pl (+2 lines)
Lines 32-37 BEGIN { Link Here
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
(-)a/misc/cronjobs/runreport.pl (+3 lines)
Lines 24-29 use warnings; Link Here
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';
(-)a/misc/cronjobs/serialsUpdate.pl (+3 lines)
Lines 32-37 use C4::Context; Link Here
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 ) {
(-)a/misc/cronjobs/share_usage_with_koha_community.pl (+3 lines)
Lines 7-12 use Getopt::Long; Link Here
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) {
(-)a/misc/cronjobs/staticfines.pl (+3 lines)
Lines 43-48 use C4::Overdues; Link Here
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
(-)a/misc/cronjobs/update_totalissues.pl (-1 / +3 lines)
Lines 32-37 use Getopt::Long; Link Here
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 13889