X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1a106c11e3f0e22b84e92d6f52c232b5b47d3d99..dfb76ebf04df9aed8ba63d7b51bc558d2928030e:/SL/IS.pm?ds=sidebyside

diff --git a/SL/IS.pm b/SL/IS.pm
index c9a44281d..3aa0d3ca9 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1440,7 +1440,7 @@ sub retrieve_invoice {
 
   my ($sth, $ref, $query);
 
-  my $query_transdate = ", current_date AS invdate" if !$form->{id};
+  my $query_transdate = !$form->{id} ? ", current_date AS invdate" : '';
 
   $query =
     qq|SELECT