From 213e5cf802009ccd682d380f4b1ef90e5124cb7d Mon Sep 17 00:00:00 2001 From: Andrew Isherwood Date: Mon, 28 Sep 2020 15:42:52 +0100 Subject: [PATCH] Bug 24190: (follow-up) Fix erroneous tabs The QA script was reporting forbidden tabs in some of the lines in this bug, these have now been removed. --- acqui/invoice.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/acqui/invoice.pl b/acqui/invoice.pl index 32d9d607fa..12a1047174 100755 --- a/acqui/invoice.pl +++ b/acqui/invoice.pl @@ -175,19 +175,19 @@ elsif ( $op && $op eq 'mod_adj' ) { my @encumber_open = $input->multi_param('encumber_open'); my %e_open = map { $_ => 1 } @encumber_open; - my @keys = ('adjustment', 'reason', 'budget_id', 'encumber_open'); + my @keys = ('adjustment', 'reason', 'budget_id', 'encumber_open'); for( my $i=0; $i < scalar @adjustment; $i++ ){ if( $adjustment_id[$i] eq 'new' ){ next unless ( $adjustment[$i] || $reason[$i] ); - my $adj = { - invoiceid => $invoiceid, + my $adj = { + invoiceid => $invoiceid, adjustment => $adjustment[$i], reason => $reason[$i], note => $note[$i], budget_id => $budget_id[$i] || undef, encumber_open => defined $e_open{ $adjustment_id[$i] } ? 1 : 0, }; - my $new_adj = Koha::Acquisition::Invoice::Adjustment->new($adj); + my $new_adj = Koha::Acquisition::Invoice::Adjustment->new($adj); $new_adj->store(); # Log this addition if (C4::Context->preference("AcqLog")) { -- 2.20.1