RDBO Update: Letter

[mfinanz.git] / SL / Controller / BankTransaction.pm

diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm
index 918d6aac1f98b77378e7dd50dcd2df326f9355de..30875038ca79a6296cb276dd7b170bdf7ca13cea 100644 (file)
--- 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';
       };