X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d735aab3fc2987d555c63ce0dc8e24626ca30654..8fed00544a31df0df4520248b3c5d7fde77ca16d:/SL/DO.pm

diff --git a/SL/DO.pm b/SL/DO.pm
index 4cc0f5909..a293239d9 100644
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -685,7 +685,7 @@ sub retrieve {
          dord.closed, dord.reqdate, dord.department_id, dord.cusordnumber,
          d.description AS department, dord.language_id,
          dord.shipto_id,
-         dord.itime,dord.mtime,
+         dord.itime, dord.mtime,
          dord.globalproject_id, dord.delivered, dord.transaction_description,
          dord.taxzone_id, dord.taxincluded, dord.payment_id, (SELECT cu.name FROM currencies cu WHERE cu.id=dord.currency_id) AS currency,
          dord.delivery_term_id, dord.itime::DATE AS insertdate
@@ -720,7 +720,7 @@ sub retrieve {
     }
   }
   $sth->finish();
-  $form->{mtime} = $form->{itime} if !$form->{mtime};
+  $form->{mtime}   ||= $form->{itime};
   $form->{lastmtime} = $form->{mtime};
   $form->{donumber_array} =~ s/\s*$//g;
   $form->{ordnumber_array} =~ s/ //;