From 0f542f84c76ba0a23f2709d6a5e11a3956c870bc Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Tue, 26 Mar 2019 10:16:21 +0000
Subject: [PATCH] Bug 22577: Update cronjobs to set userenv

---
 misc/cronjobs/advance_notices.pl                      |  5 ++++-
 misc/cronjobs/automatic_item_modification_by_age.pl   |  5 +++++
 misc/cronjobs/automatic_renewals.pl                   |  4 ++++
 misc/cronjobs/batch_anonymise.pl                      |  4 ++++
 misc/cronjobs/build_browser_and_cloud.pl              |  4 ++++
 misc/cronjobs/cart_to_shelf.pl                        |  4 ++++
 misc/cronjobs/check-url-quick.pl                      |  5 +++++
 misc/cronjobs/cleanup_database.pl                     |  4 ++++
 misc/cronjobs/cloud-kw.pl                             |  6 +++++-
 misc/cronjobs/create_koc_db.pl                        |  4 ++++
 misc/cronjobs/delete_items.pl                         |  5 +++++
 misc/cronjobs/delete_patrons.pl                       |  4 ++++
 misc/cronjobs/delete_records_via_leader.pl            |  5 +++++
 misc/cronjobs/edi_cron.pl                             |  5 +++++
 misc/cronjobs/gather_print_notices.pl                 |  4 ++++
 misc/cronjobs/holds/auto_unsuspend_holds.pl           |  4 ++++
 misc/cronjobs/holds/build_holds_queue.pl              |  4 ++++
 misc/cronjobs/holds/cancel_expired_holds.pl           |  4 ++++
 misc/cronjobs/holds/cancel_unfilled_holds.pl          |  4 ++++
 misc/cronjobs/import_webservice_batch.pl              |  4 ++++
 misc/cronjobs/j2a.pl                                  |  4 ++++
 misc/cronjobs/longoverdue.pl                          |  4 ++++
 misc/cronjobs/membership_expiry.pl                    |  4 ++++
 misc/cronjobs/merge_authorities.pl                    | 11 ++++++++---
 misc/cronjobs/notice_unprocessed_suggestions.pl       |  5 +++++
 misc/cronjobs/overdue_notices.pl                      |  4 ++++
 misc/cronjobs/process_message_queue.pl                |  4 ++++
 misc/cronjobs/purge_suggestions.pl                    |  4 ++++
 misc/cronjobs/reconcile_balances.pl                   |  5 ++++-
 misc/cronjobs/runreport.pl                            |  4 ++++
 misc/cronjobs/serialsUpdate.pl                        |  4 ++++
 misc/cronjobs/share_usage_with_koha_community.pl      |  4 ++++
 misc/cronjobs/staticfines.pl                          |  4 ++++
 misc/cronjobs/stockrotation.pl                        |  5 +++++
 .../cronjobs/thirdparty/TalkingTech_itiva_outbound.pl |  5 +++++
 misc/cronjobs/update_totalissues.pl                   |  4 ++++
 36 files changed, 157 insertions(+), 6 deletions(-)

diff --git a/misc/cronjobs/advance_notices.pl b/misc/cronjobs/advance_notices.pl
index 91bf352b89..829d96bc51 100755
--- a/misc/cronjobs/advance_notices.pl
+++ b/misc/cronjobs/advance_notices.pl
@@ -223,7 +223,10 @@ END_WARN
 unless ($confirm) {
      pod2usage(1);
 }
-
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 # The fields that will be substituted into <<items.content>>
diff --git a/misc/cronjobs/automatic_item_modification_by_age.pl b/misc/cronjobs/automatic_item_modification_by_age.pl
index 51effd32b1..57ec035c05 100755
--- a/misc/cronjobs/automatic_item_modification_by_age.pl
+++ b/misc/cronjobs/automatic_item_modification_by_age.pl
@@ -20,6 +20,11 @@ my $result = GetOptions(
 pod2usage(1) if $help;
 $verbose = 1 unless $confirm;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 # Load configuration from the syspref
 my $syspref_content = C4::Context->preference('automatic_item_modification_by_age_configuration');
 my $rules = eval { JSON::from_json( $syspref_content ) };
diff --git a/misc/cronjobs/automatic_renewals.pl b/misc/cronjobs/automatic_renewals.pl
index b50a6d565a..98883e5db6 100755
--- a/misc/cronjobs/automatic_renewals.pl
+++ b/misc/cronjobs/automatic_renewals.pl
@@ -68,6 +68,10 @@ GetOptions(
 
 pod2usage(0) if $help;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $auto_renews = Koha::Checkouts->search({ auto_renew => 1 });
diff --git a/misc/cronjobs/batch_anonymise.pl b/misc/cronjobs/batch_anonymise.pl
index 013f7d1179..328ae29110 100755
--- a/misc/cronjobs/batch_anonymise.pl
+++ b/misc/cronjobs/batch_anonymise.pl
@@ -67,6 +67,10 @@ if ( !$days  ) {
     usage(1);
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my ($year,$month,$day) = Today();
diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl
index d5e0d1a8f5..280b1e47a4 100755
--- a/misc/cronjobs/build_browser_and_cloud.pl
+++ b/misc/cronjobs/build_browser_and_cloud.pl
@@ -62,6 +62,10 @@ my $browser_subfield = $2;
 warn "browser : $browser_tag / $browser_subfield" unless $batch;
 die "no cloud or browser field/subfield defined : nothing to do !" unless $browser_tag or $cloud_tag;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $dbh = C4::Context->dbh;
diff --git a/misc/cronjobs/cart_to_shelf.pl b/misc/cronjobs/cart_to_shelf.pl
index 965f7dd0d4..dfa3aff5f6 100755
--- a/misc/cronjobs/cart_to_shelf.pl
+++ b/misc/cronjobs/cart_to_shelf.pl
@@ -64,6 +64,10 @@ unless ($hours) {
     die "ERROR: No --hours (-h) option defined";
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $query = "SELECT itemnumber FROM items WHERE location = 'CART' AND TIMESTAMPDIFF(HOUR, items.timestamp, NOW() ) > ?";
diff --git a/misc/cronjobs/check-url-quick.pl b/misc/cronjobs/check-url-quick.pl
index 22d2dfe461..ff62c55d9d 100755
--- a/misc/cronjobs/check-url-quick.pl
+++ b/misc/cronjobs/check-url-quick.pl
@@ -43,6 +43,11 @@ GetOptions(
     'tags=s{,}'       => \@tags,
 );
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 # Validate tags to check
 {
     my %h = map { $_ => undef } @tags;
diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl
index 3e6c504532..fa176f3f91 100755
--- a/misc/cronjobs/cleanup_database.pl
+++ b/misc/cronjobs/cleanup_database.pl
@@ -176,6 +176,10 @@ if ($pDebarments && $allDebarments) {
     usage(1);
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $dbh = C4::Context->dbh();
diff --git a/misc/cronjobs/cloud-kw.pl b/misc/cronjobs/cloud-kw.pl
index 96864156ef..a748153e58 100755
--- a/misc/cronjobs/cloud-kw.pl
+++ b/misc/cronjobs/cloud-kw.pl
@@ -42,8 +42,12 @@ sub usage {
     exit;
 } 
 
-usage() if $help || !$conf;          
+usage() if $help || !$conf;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my @clouds;
diff --git a/misc/cronjobs/create_koc_db.pl b/misc/cronjobs/create_koc_db.pl
index 2b5b33aab9..89922d44d7 100755
--- a/misc/cronjobs/create_koc_db.pl
+++ b/misc/cronjobs/create_koc_db.pl
@@ -118,6 +118,10 @@ GetOptions(
 pod2usage(1) if $help;
 pod2usage( -verbose => 2 ) if $man;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 
 my %wanted_borrowers_columns = map { $_ => 1 } qw/borrowernumber cardnumber surname  firstname address city phone dateofbirth/; 
 my %wanted_issues_columns    = map { $_ => 1 } qw/borrowernumber date_due itemcallnumber title itemtype/;
diff --git a/misc/cronjobs/delete_items.pl b/misc/cronjobs/delete_items.pl
index 78a9b35b8d..073632cbb4 100755
--- a/misc/cronjobs/delete_items.pl
+++ b/misc/cronjobs/delete_items.pl
@@ -7,6 +7,11 @@ use C4::Circulation;
 use Modern::Perl;
 use Pod::Usage;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 my $dbh = C4::Context->dbh();
 
 my $query = {
diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl
index cb59465df4..fd5a3eeb87 100755
--- a/misc/cronjobs/delete_patrons.pl
+++ b/misc/cronjobs/delete_patrons.pl
@@ -41,6 +41,10 @@ unless ( $not_borrowed_since or $expired_before or $last_seen or $category_code
     pod2usage(q{At least one filter is mandatory});
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $members = GetBorrowersToExpunge(
diff --git a/misc/cronjobs/delete_records_via_leader.pl b/misc/cronjobs/delete_records_via_leader.pl
index 41b22bb7cb..c511774e7e 100755
--- a/misc/cronjobs/delete_records_via_leader.pl
+++ b/misc/cronjobs/delete_records_via_leader.pl
@@ -77,6 +77,11 @@ This script has the following parameters :
     exit();
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 my @metadatas =    # Should be replaced by a call to C4::Search on zebra index
                    # Record-status when bug 15537 will be pushed
   Koha::Biblio::Metadatas->search( { format => 'marcxml', schema => C4::Context->preference('marcflavour'), metadata => { LIKE => '%<leader>_____d%' } } );
diff --git a/misc/cronjobs/edi_cron.pl b/misc/cronjobs/edi_cron.pl
index c23341ad26..02c6fdcc19 100755
--- a/misc/cronjobs/edi_cron.pl
+++ b/misc/cronjobs/edi_cron.pl
@@ -36,6 +36,11 @@ use Koha::EDI qw( process_quote process_invoice process_ordrsp);
 use Koha::Edifact::Transport;
 use Fcntl qw( :DEFAULT :flock :seek );
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 my $logdir = C4::Context->config('logdir');
 
 # logging set to trace as this may be what you
diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl
index ca99635346..873c430bec 100755
--- a/misc/cronjobs/gather_print_notices.pl
+++ b/misc/cronjobs/gather_print_notices.pl
@@ -79,6 +79,10 @@ if ( $ods and @letter_codes != 1 ) {
 
 $delimiter ||= q|,|;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $today_iso     = output_pref( { dt => dt_from_string, dateonly => 1, dateformat => 'iso' } ) ;
diff --git a/misc/cronjobs/holds/auto_unsuspend_holds.pl b/misc/cronjobs/holds/auto_unsuspend_holds.pl
index d17dfb55b0..8d977da990 100755
--- a/misc/cronjobs/holds/auto_unsuspend_holds.pl
+++ b/misc/cronjobs/holds/auto_unsuspend_holds.pl
@@ -32,6 +32,10 @@ BEGIN {
 use C4::Reserves;
 use C4::Log;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 AutoUnsuspendReserves();
diff --git a/misc/cronjobs/holds/build_holds_queue.pl b/misc/cronjobs/holds/build_holds_queue.pl
index be50de705e..de00b801b3 100755
--- a/misc/cronjobs/holds/build_holds_queue.pl
+++ b/misc/cronjobs/holds/build_holds_queue.pl
@@ -18,6 +18,10 @@ BEGIN {
 use C4::HoldsQueue qw(CreateQueue);
 use C4::Log;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 CreateQueue();
diff --git a/misc/cronjobs/holds/cancel_expired_holds.pl b/misc/cronjobs/holds/cancel_expired_holds.pl
index f721553bb5..2cb5820618 100755
--- a/misc/cronjobs/holds/cancel_expired_holds.pl
+++ b/misc/cronjobs/holds/cancel_expired_holds.pl
@@ -32,6 +32,10 @@ BEGIN {
 use C4::Reserves;
 use C4::Log;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 CancelExpiredReserves();
diff --git a/misc/cronjobs/holds/cancel_unfilled_holds.pl b/misc/cronjobs/holds/cancel_unfilled_holds.pl
index 8c7f928ae0..a3bab3426e 100755
--- a/misc/cronjobs/holds/cancel_unfilled_holds.pl
+++ b/misc/cronjobs/holds/cancel_unfilled_holds.pl
@@ -35,6 +35,10 @@ use Koha::Calendar;
 use Koha::DateUtils;
 use Koha::Libraries;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 =head1 NAME
diff --git a/misc/cronjobs/import_webservice_batch.pl b/misc/cronjobs/import_webservice_batch.pl
index 0e1384f827..2942ddf103 100755
--- a/misc/cronjobs/import_webservice_batch.pl
+++ b/misc/cronjobs/import_webservice_batch.pl
@@ -50,6 +50,10 @@ EOF
 ;
     exit;
 }
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 
 my $batch_ids = GetStagedWebserviceBatches() or exit;
 
diff --git a/misc/cronjobs/j2a.pl b/misc/cronjobs/j2a.pl
index ba90ad0ccd..73dc7a4f1a 100755
--- a/misc/cronjobs/j2a.pl
+++ b/misc/cronjobs/j2a.pl
@@ -125,6 +125,10 @@ if ( not $fromcat && $tocat ) {    #make sure we've specified the info we need.
     exit;
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $dbh = C4::Context->dbh;
diff --git a/misc/cronjobs/longoverdue.pl b/misc/cronjobs/longoverdue.pl
index f895f6d451..b16b0c80ca 100755
--- a/misc/cronjobs/longoverdue.pl
+++ b/misc/cronjobs/longoverdue.pl
@@ -228,6 +228,10 @@ unless ($confirm) {
     print "### TEST MODE -- NO ACTIONS TAKEN ###\n";
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 # In my opinion, this line is safe SQL to have outside the API. --atz
diff --git a/misc/cronjobs/membership_expiry.pl b/misc/cronjobs/membership_expiry.pl
index 1b6ea81d43..d172d552d3 100755
--- a/misc/cronjobs/membership_expiry.pl
+++ b/misc/cronjobs/membership_expiry.pl
@@ -157,6 +157,10 @@ GetOptions(
 pod2usage( -verbose => 2 ) if $man;
 pod2usage(1) if $help || !$confirm;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $expdays = C4::Context->preference('MembershipExpiryDaysNotice');
diff --git a/misc/cronjobs/merge_authorities.pl b/misc/cronjobs/merge_authorities.pl
index 4682694433..2db41de955 100755
--- a/misc/cronjobs/merge_authorities.pl
+++ b/misc/cronjobs/merge_authorities.pl
@@ -19,9 +19,14 @@ GetOptions(
 );
 
 $|=1; # flushes output
-if( $params->{batch} ) {
-    handle_batch( $params );
-} else {
+if ( $params->{batch} ) {
+    C4::Context->set_userenv(
+        '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+        undef, undef, undef, undef,  undef
+    );
+    handle_batch($params);
+}
+else {
     pod2usage(1);
 }
 
diff --git a/misc/cronjobs/notice_unprocessed_suggestions.pl b/misc/cronjobs/notice_unprocessed_suggestions.pl
index 598ef5a4b4..e2a970d9a3 100755
--- a/misc/cronjobs/notice_unprocessed_suggestions.pl
+++ b/misc/cronjobs/notice_unprocessed_suggestions.pl
@@ -22,6 +22,11 @@ if ($help) {
     pod2usage( verbose => 2 );
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 unless (@days) {
     pod2usage(q{At least one day parameter should be given});
     exit;
diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl
index 8c42335c2c..b249f2aeb0 100755
--- a/misc/cronjobs/overdue_notices.pl
+++ b/misc/cronjobs/overdue_notices.pl
@@ -326,6 +326,10 @@ GetOptions(
 pod2usage(1) if $help;
 pod2usage( -verbose => 2 ) if $man;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction() unless $test_mode;
 
 if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
diff --git a/misc/cronjobs/process_message_queue.pl b/misc/cronjobs/process_message_queue.pl
index 3e0ef5173a..93e355b207 100755
--- a/misc/cronjobs/process_message_queue.pl
+++ b/misc/cronjobs/process_message_queue.pl
@@ -66,6 +66,10 @@ ENDUSAGE
 
 die $usage if $help;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 C4::Letters::SendQueuedMessages(
diff --git a/misc/cronjobs/purge_suggestions.pl b/misc/cronjobs/purge_suggestions.pl
index 58a9a1dc12..7a1575a36d 100755
--- a/misc/cronjobs/purge_suggestions.pl
+++ b/misc/cronjobs/purge_suggestions.pl
@@ -63,6 +63,10 @@ if( !$confirm || $help || !defined($days) ) {
     print "No confirm parameter passed!\n\n" if !$confirm && !$help;
     print $usage;
 } elsif( $days and $days > 0 ) {
+    C4::Context->set_userenv(
+        '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+        undef, undef, undef, undef,  undef
+    );
     cronlogaction( " ( days: $days )");
     DelSuggestionsOlderThan($days);
 } else {
diff --git a/misc/cronjobs/reconcile_balances.pl b/misc/cronjobs/reconcile_balances.pl
index 1bd9dc277e..4913fddd67 100755
--- a/misc/cronjobs/reconcile_balances.pl
+++ b/misc/cronjobs/reconcile_balances.pl
@@ -76,7 +76,10 @@ GetOptions(
 ) or pod2usage(2);
 
 pod2usage(1) if $help;
-
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my @patron_ids = map { $_->borrowernumber } Koha::Account::Lines->search(
diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl
index c89a6d4844..549bf26cdb 100755
--- a/misc/cronjobs/runreport.pl
+++ b/misc/cronjobs/runreport.pl
@@ -204,6 +204,10 @@ pod2usage( -verbose => 2 ) if ($man);
 pod2usage( -verbose => 2 ) if ($help and $verbose);
 pod2usage(1) if $help;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 unless ($format) {
diff --git a/misc/cronjobs/serialsUpdate.pl b/misc/cronjobs/serialsUpdate.pl
index a478476981..b1ede3c355 100755
--- a/misc/cronjobs/serialsUpdate.pl
+++ b/misc/cronjobs/serialsUpdate.pl
@@ -79,6 +79,10 @@ GetOptions(
 pod2usage(1) if $help;
 pod2usage( -verbose => 2 ) if $man;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 $verbose and !$confirm and print "### Database will not be modified ###\n";
diff --git a/misc/cronjobs/share_usage_with_koha_community.pl b/misc/cronjobs/share_usage_with_koha_community.pl
index 9039558302..c8cc83b3f7 100755
--- a/misc/cronjobs/share_usage_with_koha_community.pl
+++ b/misc/cronjobs/share_usage_with_koha_community.pl
@@ -35,6 +35,10 @@ Setting the quiet flag will silence this message.
     exit 1;
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $need_update = ($force ? 1 : C4::UsageStats::NeedUpdate() );
diff --git a/misc/cronjobs/staticfines.pl b/misc/cronjobs/staticfines.pl
index 5803c89a2a..a14abbc31f 100755
--- a/misc/cronjobs/staticfines.pl
+++ b/misc/cronjobs/staticfines.pl
@@ -91,6 +91,10 @@ This script has the following parameters :
 ENDUSAGE
 die $usage if $help;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $dbh = C4::Context->dbh;
diff --git a/misc/cronjobs/stockrotation.pl b/misc/cronjobs/stockrotation.pl
index 083c14766a..8cb43f0e44 100755
--- a/misc/cronjobs/stockrotation.pl
+++ b/misc/cronjobs/stockrotation.pl
@@ -113,6 +113,11 @@ use C4::Context;
 use C4::Letters;
 use Koha::StockRotationRotas;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 my $admin_email = '';
 my $branch      = 0;
 my $execute     = 0;
diff --git a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl b/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl
index d1ff3925fd..993f0f95e1 100755
--- a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl
+++ b/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl
@@ -89,6 +89,11 @@ $library_code ||= '';
 
 pod2usage( -verbose => 1 ) if $help;
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
+
 # output log or STDOUT
 my $OUT;
 if ( defined $outfile ) {
diff --git a/misc/cronjobs/update_totalissues.pl b/misc/cronjobs/update_totalissues.pl
index affa2a7e34..c155052525 100755
--- a/misc/cronjobs/update_totalissues.pl
+++ b/misc/cronjobs/update_totalissues.pl
@@ -95,6 +95,10 @@ if ( not $result or $want_help ) {
     usage();
 }
 
+C4::Context->set_userenv(
+    '-1',  '-1',  undef, 'CRON', 'CRON', undef,
+    undef, undef, undef, undef,  undef
+);
 cronlogaction();
 
 my $dbh = C4::Context->dbh;
-- 
2.20.1