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

(-)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 71-77 Link Here
71
								<label for="modules">Module:</label>
72
								<label for="modules">Module:</label>
72
								<select name="modules" id="modules" multiple="multiple">
73
								<select name="modules" id="modules" multiple="multiple">
73
									<option value="" selected="selected">All</option>
74
									<option value="" selected="selected">All</option>
74
                                                                        [% FOREACH modx IN [ 'CATALOGUING' 'AUTHORITIES' 'MEMBERS' 'ACQUISITIONS' 'SERIAL' 'CIRCULATION' 'LETTER' 'FINES' 'SYSTEMPREFERENCE' ] %]
75
                                                                        [% FOREACH modx IN [ 'CATALOGUING' 'AUTHORITIES' 'MEMBERS' 'ACQUISITIONS' 'SERIAL' 'CIRCULATION' 'LETTER' 'FINES' 'SYSTEMPREFERENCE' 'CRONJOBS'] %]
75
                                                                        <option value="[% modx %]">[% PROCESS translate_log_module module=modx %]</option>
76
                                                                        <option value="[% modx %]">[% PROCESS translate_log_module module=modx %]</option>
76
                                                                        [% END %]
77
                                                                        [% END %]
77
								</select>
78
								</select>
(-)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
logaction("CRONJOBS", 'Run', '', 'advance_notices.pl');
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
logaction("CRONJOBS", 'Run', '', 'automatic_renewals.pl');
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
logaction("CRONJOBS", 'Run', '', 'batch_anonymise.pl with '.  $days . ' days');
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
logaction("CRONJOBS", 'Run', '', 'build_browser_and_cloud.pl with '. $browser_tag .' '. $browser_subfield );
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
logaction("CRONJOBS", 'Run', '', 'cart_to_shelf.pl with '.  $hours . ' hours');
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 124-129 unless ( $sessions Link Here
124
    usage(1);
123
    usage(1);
125
}
124
}
126
125
126
logaction("CRONJOBS", 'Run', '', 'cleanup_database.pl');
127
127
my $dbh = C4::Context->dbh();
128
my $dbh = C4::Context->dbh();
128
my $sth;
129
my $sth;
129
my $sth2;
130
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
logaction("CRONJOBS", 'Run', '', 'cloud-kw.pl');
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
logaction("CRONJOBS", 'Run', '', 'delete_expired_opac_registrations.pl');
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
logaction("CRONJOBS", 'Run', '', 'delete_patrons.pl');
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
logaction("CRONJOBS", 'Run', '', 'delete_unverified_opac_registrations.pl with '.$hours.' hours');
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
logaction("CRONJOBS", 'Run', '', 'fines.pl');
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
logaction("CRONJOBS", 'Run', '', 'gather_print_notices.pl');
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
logaction("CRONJOBS", 'Run', '', 'auto_unsuspend_holds.pl');
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
logaction("CRONJOBS", 'Run', '', 'build_holds_queue.pl');
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
logaction("CRONJOBS", 'Run', '', 'cancel_expired_holds.pl');
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
logaction("CRONJOBS", 'Run', '', 'j2a.pl');
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
logaction("CRONJOBS", 'Run', '', 'longoverdue.pl');
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 (+3 lines)
Lines 41-46 use C4::Debug; Link Here
41
use C4::Letters;
41
use C4::Letters;
42
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);
42
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes);
43
use C4::Budgets qw(GetCurrency);
43
use C4::Budgets qw(GetCurrency);
44
use C4::Log;
44
45
45
use Koha::Borrower::Debarments qw(AddUniqueDebarment);
46
use Koha::Borrower::Debarments qw(AddUniqueDebarment);
46
use Koha::DateUtils;
47
use Koha::DateUtils;
Lines 313-318 GetOptions( Link Here
313
pod2usage(1) if $help;
314
pod2usage(1) if $help;
314
pod2usage( -verbose => 2 ) if $man;
315
pod2usage( -verbose => 2 ) if $man;
315
316
317
logaction("CRONJOBS", 'Run', '', 'overdue_notices.pl');
318
316
if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
319
if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
317
    warn qq(using "$csvfilename" as filename, that seems odd);
320
    warn qq(using "$csvfilename" as filename, that seems odd);
318
}
321
}
(-)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
logaction("CRONJOBS", 'Run', '', 'process_message_queue.pl');
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
    logaction("CRONJOBS", 'Run', '', 'purge_suggestions.pl with '.  $days . ' days');
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
logaction("CRONJOBS", 'Run', '', 'runreport.pl');
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
logaction("CRONJOBS", 'Run', '', 'serialsUpdate.pl');
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
logaction("CRONJOBS", 'Run', '', 'share_usage_with_koha_community.pl');
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
logaction("CRONJOBS", 'Run', '', 'staticfines.pl');
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
logaction("CRONJOBS", 'Run', '', 'update_totalissues.pl');
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