X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FCT.pm;h=1b9d91593e6b93cd03d099e784795f27be376a98;hb=87d99e7285f69f6f51596162ad8d7b744c48d517;hp=9b2b79f13886798e5ef75de57b7e18c934d50c0c;hpb=f7c9046f3d5014fd964ac9f85b3d124ffc4aeb4f;p=kivitendo-erp.git

diff --git a/SL/CT.pm b/SL/CT.pm
index 9b2b79f13..1b9d91593 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -45,6 +45,8 @@ use SL::DBUtils;
 use SL::FU;
 use SL::Notes;
 
+use strict;
+
 sub get_tuple {
   $main::lxdebug->enter_sub();
 
@@ -1069,7 +1071,7 @@ sub get_bank_info {
 
   my $table        = $params{vc} eq 'customer' ? 'customer' : 'vendor';
   my @ids          = ref $params{id} eq 'ARRAY' ? @{ $params{id} } : ($params{id});
-  my $placeholders = ('?') x scalar @ids;
+  my $placeholders = join ", ", ('?') x scalar @ids;
   my $query        = qq|SELECT id, name, account_number, bank, bank_code, iban, bic
                         FROM ${table}
                         WHERE id IN (${placeholders})|;