X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a87694dc525b4eabff11029f1e5401621e2bd3bc..464f44a:/SL/Controller/BankTransaction.pm?ds=sidebyside diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm index 918d6aac1..30875038c 100644 --- a/SL/Controller/BankTransaction.pm +++ b/SL/Controller/BankTransaction.pm @@ -216,7 +216,7 @@ sub action_ajax_payment_suggestion { my $bt = SL::DB::Manager::BankTransaction->find_by( id => $::form->{bt_id} ); my $invoice = SL::DB::Manager::Invoice->find_by( id => $::form->{prop_id} ); - $invoice = SL::DB::Manager::PurchaseInvoice->find_By( id => $::form->{prop_id} ) unless $invoice; + $invoice = SL::DB::Manager::PurchaseInvoice->find_by( id => $::form->{prop_id} ) unless $invoice; die unless $bt and $invoice; @@ -373,8 +373,8 @@ sub action_save_invoices { foreach my $invoice (@invoices) { my $payment_type; - if ( @$skonto_hash{"$bt_id"} ) { - $payment_type = shift( @$skonto_hash{"$bt_id"} ); + if (@{ $skonto_hash->{"$bt_id"} }) { + $payment_type = shift(@{ $skonto_hash->{"$bt_id"} }); } else { $payment_type = 'without_skonto'; };