From 156bd422917d02e791ca1802dfa6e51bf67b0782 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 28 Feb 2012 22:36:25 +0000
Subject: [PATCH] Prevent exporting dummy VIEWs from having multiple DEFAULT
 CURRENT_TIMESTAMP clauses. Fixes issue #2748.

---
 source/tabletools.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/source/tabletools.pas b/source/tabletools.pas
index 83661bc6..e90ea8f9 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -1244,8 +1244,12 @@ begin
               if ToDb then
                 Struc := Struc + Quoter.QuoteIdent(FinalDbName) + '.';
               Struc := Struc + Quoter.QuoteIdent(DBObj.Name)+' (';
-              for Column in ColumnList do
+              for Column in ColumnList do begin
+                // Prevent DEFAULT value from coming in, to fix errors due to multiple CURRENT_TIMESTAMP values
+                // See issue #2748
+                Column.DefaultType := cdtNothing;
                 Struc := Struc + CRLF + #9 + Column.SQLCode + ',';
+              end;
               Delete(Struc, Length(Struc), 1);
               Struc := Struc + CRLF + ') ENGINE=MyISAM';
               ColumnList.Free;