Kosmetik/Perl-Detail Optionen als Hash anstatt array

[mfinanz.git] / bin / mozilla / gl.pl

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 26e0a74874d39e9cb52b68a662555f58278d6b47..c39facd0b1d4332411085bb0c3963d56a2c03bde 100644 (file)
--- 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,