X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c510d88bbfea6818ffafaddb7286e88aec96d3b8..c09536f461b4933a1813b2af5e17eb6214f7bf38:/SL/CT.pm diff --git a/SL/CT.pm b/SL/CT.pm index 12df265d8..1b9d91593 100644 --- a/SL/CT.pm +++ b/SL/CT.pm @@ -1071,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})|;