From f8a40f9516b300270d7041ad18f1d911b2187bae Mon Sep 17 00:00:00 2001
From: Andrew Isherwood <andrew.isherwood@ptfs-europe.com>
Date: Wed, 16 Jun 2021 14:27:30 +0100
Subject: [PATCH] Bug 24190: (Follow-up) Rename AcqLog

As requested in comment #49, renamed uses of AcqLog to AcquisitionLog
---
 C4/Budgets.pm            | 6 +++---
 acqui/addorder.pl        | 4 ++--
 acqui/cancelorder.pl     | 2 +-
 acqui/finishreceive.pl   | 2 +-
 acqui/invoice.pl         | 6 +++---
 admin/aqbudgetperiods.pl | 2 +-
 6 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 30cb2f81f8..00807652e4 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -640,7 +640,7 @@ sub AddBudget {
     my $id = $resultset->create($budget)->id;
 
     # Log the addition
-    if (C4::Context->preference("AcqLog")) {
+    if (C4::Context->preference("AcquisitionLog")) {
         my $infos = {
             budget_amount => $budget->{budget_amount},
             budget_encumb => $budget->{budget_encumb},
@@ -664,7 +664,7 @@ sub ModBudget {
     return unless($result);
 
     # Log this modification
-    if (C4::Context->preference("AcqLog")) {
+    if (C4::Context->preference("AcquisitionLog")) {
         my $infos = {
             budget_amount_new    => $budget->{budget_amount},
             budget_encumb_new    => $budget->{budget_encumb},
@@ -696,7 +696,7 @@ sub DelBudget {
 	my $sth         = $dbh->prepare("delete from aqbudgets where budget_id=?");
 	my $rc          = $sth->execute($budget_id);
     # Log the deletion
-    if (C4::Context->preference("AcqLog")) {
+    if (C4::Context->preference("AcquisitionLog")) {
         logaction(
             'ACQUISITIONS',
             'DELETE_FUND',
diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index dd5eb97dab..3d44f5bb78 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -315,7 +315,7 @@ if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) {
     if ( $orderinfo->{ordernumber} ) {
         ModOrder($orderinfo);
         # Log the order modification
-        if (C4::Context->preference("AcqLog")) {
+        if (C4::Context->preference("AcquisitionLog")) {
             my $infos = {};
             foreach my $field(@log_order_fields) {
                 $infos->{$field} = $orderinfo->{$field};
@@ -331,7 +331,7 @@ if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) {
     else { # else, it's a new line
         $order->store;
         # Log the order creation
-        if (C4::Context->preference("AcqLog")) {
+        if (C4::Context->preference("AcquisitionLog")) {
             my $infos = {};
             foreach my $field(@log_order_fields) {
                 $infos->{$field} = $orderinfo->{$field};
diff --git a/acqui/cancelorder.pl b/acqui/cancelorder.pl
index 7bc7d32364..21c2c13d1c 100755
--- a/acqui/cancelorder.pl
+++ b/acqui/cancelorder.pl
@@ -68,7 +68,7 @@ if( $action and $action eq "confirmcancel" ) {
             if $messages[0]->message eq 'error_delbiblio';
     } else {
         # Log the cancellation of the order
-        if (C4::Context->preference("AcqLog")) {
+        if (C4::Context->preference("AcquisitionLog")) {
             logaction('ACQUISITIONS', 'CANCEL_ORDER', $ordernumber);
         }
         $template->param(success_cancelorder => 1);
diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index 1016700ffc..ab23e105f7 100755
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -193,7 +193,7 @@ if ($suggestion_id) {
 }
 
 # Log the receipt
-if (C4::Context->preference("AcqLog")) {
+if (C4::Context->preference("AcquisitionLog")) {
     my $infos = {
         quantityrec      => $quantityrec,
         bookfund         => $bookfund,
diff --git a/acqui/invoice.pl b/acqui/invoice.pl
index b032f5b119..07826ad435 100755
--- a/acqui/invoice.pl
+++ b/acqui/invoice.pl
@@ -149,7 +149,7 @@ elsif ( $op && $op eq 'del_adj' ) {
     my $adjustment_id  = $input->param('adjustment_id');
     my $del_adj = Koha::Acquisition::Invoice::Adjustments->find( $adjustment_id );
     if ($del_adj) {
-        if (C4::Context->preference("AcqLog")) {
+        if (C4::Context->preference("AcquisitionLog")) {
             my $infos = {
                 invoiceid     => $del_adj->invoiceid,
                 budget_id     => $del_adj->budget_id,
@@ -195,7 +195,7 @@ elsif ( $op && $op eq 'mod_adj' ) {
             my $new_adj = Koha::Acquisition::Invoice::Adjustment->new($adj);
             $new_adj->store();
             # Log this addition
-            if (C4::Context->preference("AcqLog")) {
+            if (C4::Context->preference("AcquisitionLog")) {
                 logaction(
                     'ACQUISITIONS',
                     'CREATE_INVOICE_ADJUSTMENT',
@@ -208,7 +208,7 @@ elsif ( $op && $op eq 'mod_adj' ) {
             my $old_adj = Koha::Acquisition::Invoice::Adjustments->find( $adjustment_id[$i] );
             unless ( $old_adj->adjustment == $adjustment[$i] && $old_adj->reason eq $reason[$i] && $old_adj->budget_id == $budget_id[$i] && $old_adj->encumber_open == $e_open{$adjustment_id[$i]} && $old_adj->note eq $note[$i] ){
                 # Log this modification
-                if (C4::Context->preference("AcqLog")) {
+                if (C4::Context->preference("AcquisitionLog")) {
                     my $infos = {
                         adjustment        => $adjustment[$i],
                         reason            => $reason[$i],
diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl
index 3a846fe655..1d4a6aa9c5 100755
--- a/admin/aqbudgetperiods.pl
+++ b/admin/aqbudgetperiods.pl
@@ -123,7 +123,7 @@ elsif ( $op eq 'add_validate' ) {
         $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
         my $status=ModBudgetPeriod($budget_period_hashref);
         # Log the budget modification
-        if (C4::Context->preference("AcqLog")) {
+        if (C4::Context->preference("AcquisitionLog")) {
             my $diff = 0 - ($budgetperiod_old->{budget_period_total} - $budget_period_hashref->{budget_period_total});
             my $infos = {
                 budget_period_startdate     => $input->param('budget_period_startdate'),
-- 
2.20.1