X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ca4e97fdf13349fec57b63389593e5528609e54b..e7e7d67b88f3f2afb29fac5527099089cb8a075d:/bin/mozilla/gl.pl

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,