From: Jan Büren Date: Fri, 22 Feb 2019 11:51:14 +0000 (+0100) Subject: Kosmetik/Perl-Detail Optionen als Hash anstatt array X-Git-Tag: release-3.5.4~125 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e7e7d67b88f3f2afb29fac5527099089cb8a075d;p=kivitendo-erp.git Kosmetik/Perl-Detail Optionen als Hash anstatt array --- diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm index 3606fa600..1a0f50589 100644 --- a/SL/Controller/BankTransaction.pm +++ b/SL/Controller/BankTransaction.pm @@ -691,14 +691,13 @@ sub save_single_bank_transaction { } } # Record a record link from the bank transaction to the invoice - my @props = ( + my %props = ( from_table => 'bank_transactions', from_id => $bt_id, to_table => $invoice->is_sales ? 'ar' : 'ap', to_id => $invoice->id, ); - - SL::DB::RecordLink->new(@props)->save; + SL::DB::RecordLink->new(%props)->save; # "close" a sepa_export_item if it exists # code duplicated in action_save_proposals! diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl index 26e0a7487..c39facd0b 100644 --- a/bin/mozilla/gl.pl +++ b/bin/mozilla/gl.pl @@ -1369,13 +1369,13 @@ sub post_transaction { $bt->update_attributes(invoice_amount => $bt->invoice_amount + ($payment->[0]->amount * -1)); # create record_link - my @props = ( + my %props = ( from_table => 'bank_transactions', from_id => $::form->{bt_id}, to_table => 'gl', to_id => $::form->{id}, ); - SL::DB::RecordLink->new(@props)->save; + SL::DB::RecordLink->new(%props)->save; # and tighten holy acc_trans_id for this bank_transaction my %props_acc = ( acc_trans_id => $payment->[0]->acc_trans_id,