@@ -, +, @@ --- acqui/invoice.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) --- a/acqui/invoice.pl +++ a/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")) { --