BankTransactions: typo in deref

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