From f8a40f9516b300270d7041ad18f1d911b2187bae Mon Sep 17 00:00:00 2001 From: Andrew Isherwood 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