Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 24190: (follow-up) Rename AcqLog

Browse source 
As requested in comment #49, renamed uses of AcqLog to AcquisitionLog

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

JD amended patch: replace one missing occurrence in Budgets.t

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Andrew Isherwood 2021-06-16 14:27:30 +01:00 committed by Jonathan Druart
parent 114f4ea5a3
commit f9f457ab14
7 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
C4/Budgets.pm
View file

@ -645,7 +645,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},
@ -669,7 +669,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},
@ -701,7 +701,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',

4
acqui/addorder.pl
View file

@ -319,7 +319,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};
@ -335,7 +335,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};

2
acqui/cancelorder.pl
View file

@ -66,7 +66,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);

2
acqui/finishreceive.pl
View file

@ -192,7 +192,7 @@ if ($suggestion_id) {
}
# Log the receipt
if (C4::Context->preference("AcqLog")) {
if (C4::Context->preference("AcquisitionLog")) {
my $infos = {
quantityrec => $quantityrec,
bookfund => $bookfund,

6
acqui/invoice.pl
View file

@ -148,7 +148,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,
@ -194,7 +194,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',
@ -207,7 +207,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],

2
admin/aqbudgetperiods.pl
View file

@ -120,7 +120,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
t/db_dependent/Budgets.t
View file

@ -24,7 +24,7 @@ use Koha::DateUtils;
use t::lib::Mocks;
t::lib::Mocks::mock_preference('OrderPriceRounding','');
t::lib::Mocks::mock_preference('AcqLog','1');
t::lib::Mocks::mock_preference('AcquisitionLog','1');
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;