X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4000444b681301ef283c2c0ea55f41edb0deeb42..74fca575d438232002756175338c23f55b8a6c12:/SL/IS.pm

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