Verknüpfung von Einzelpositionen auch bei periodisch erzeugten Rechnungen (Auftrag...

[mfinanz.git] / SL / RecordLinks.pm

diff --git a/SL/RecordLinks.pm b/SL/RecordLinks.pm
index cef2c4df0e7aee8e5186a1d8d9601793919e2cb9..0bd62fa3178a0cd0da8e54815b97119f7293f8e8 100644 (file)
--- a/SL/RecordLinks.pm
+++ b/SL/RecordLinks.pm
@@ -48,7 +48,7 @@ sub create_links {
 
   if (!scalar @links) {
     $main::lxdebug->leave_sub();
-    return;
+    return undef;
   }
 
   my $myconfig = \%main::myconfig;
@@ -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);
@@ -209,7 +209,7 @@ __END__
 
 =head1 NAME
 
-SL::RecordLinks - Verlinkung von Lx-Office Objekten.
+SL::RecordLinks - Verlinkung von kivitendo Objekten.
 
 =head1 SYNOPSIS