From 968efc99f3b00bbf6f5a36af2f305a39082dac79 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 5 Nov 2011 00:10:47 +0000
Subject: [PATCH] Export VIEWs with alternative version of SELECT code. Follow
 up to r3941, see issue #2546.

---
 source/tabletools.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/tabletools.pas b/source/tabletools.pas
index 829009c4..35116c21 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -1227,6 +1227,8 @@ begin
               Struc := Struc + Quoter.QuoteIdent(DBObj.Name);
               Output(Struc, True, True, True, True, True);
               Struc := DBObj.CreateCode;
+              if DBObj.ViewSelectCode <> '' then
+                Struc := DBObj.ViewSelectCode;
               if ToDb then
                 Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('VIEW', Struc) + 5 );
             end;