Issue #88: remove definer clause also for views and events, if wanted

This commit is contained in:
Ansgar Becker
2019-11-13 14:40:16 +01:00
parent be689edaec
commit 17f6cb851a

View File

@ -1588,7 +1588,7 @@ begin
Struc := Struc + Quoter.QuoteIdent(FinalDbName)+'.'; Struc := Struc + Quoter.QuoteIdent(FinalDbName)+'.';
Struc := Struc + Quoter.QuoteIdent(DBObj.Name); Struc := Struc + Quoter.QuoteIdent(DBObj.Name);
Output(Struc, True, True, True, True, True); Output(Struc, True, True, True, True, True);
Struc := DBObj.CreateCode; Struc := DBObj.GetCreateCode(False, menuExportRemoveDefiner.Checked);
if ToDb then if ToDb then
Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('VIEW', Struc) + 5 ); Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('VIEW', Struc) + 5 );
end; end;
@ -1622,7 +1622,7 @@ begin
end; end;
lntEvent: begin lntEvent: begin
Struc := DBObj.CreateCode; Struc := DBObj.GetCreateCode(False, menuExportRemoveDefiner.Checked);
if ToDb then if ToDb then
Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('EVENT', Struc) + 6 ); Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('EVENT', Struc) + 6 );
if ToFile or ToDir or ToClipboard then if ToFile or ToDir or ToClipboard then