X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/8d011bee4d01444862f49a083f9e47b2b07f0a9c..df2cb4e9ab3eb6b70a84e09fad5eb6a3a6360bfa:/SL/RecordLinks.pm

diff --git a/SL/RecordLinks.pm b/SL/RecordLinks.pm
index cef2c4df0..da63872d4 100644
--- a/SL/RecordLinks.pm
+++ b/SL/RecordLinks.pm
@@ -193,7 +193,7 @@ sub delete {
     add_token(\@where_tokens, \@where_values, col => $col, val => $params{$col}) if $params{$col};
   }
 
-  my $where = "WHERE ". join ' AND ', map { "($_)" } @where_tokens if scalar @where_tokens;
+  my $where = @where_tokens ? "WHERE ". join ' AND ', map { "($_)" } @where_tokens : '';
   my $query = "DELETE FROM record_links $where";
 
   do_query($form, $dbh, $query, @where_values);