Separated T4SQL.PUB_REF package for Oracle privilege convenience

Author: AbelCheng

…es/Oracle/T4SQLDB/Scripts/Privileges.sql …/Oracle/T4SQLDB/Scripts/0-Privileges.sqlT4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/Privileges.sql renamed to T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/0-Privileges.sql T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/Privileges.sql renamed to T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/0-Privileges.sql

@@ -314,15 +314,15 @@ PROCEDURE CREATE_WORKITEM_TRIGGER
 (
 	inWorkitem_Table	VARCHAR2
 )	AS
---	tSchema_Name		VARCHAR2(22) := PARSENAME(inWorkitem_Table, 2);
+	tSchema_Name		VARCHAR2(22) := PARSENAME(inWorkitem_Table, 2);
 	tTable_Name			VARCHAR2(22) := PARSENAME(inWorkitem_Table, 1);
 BEGIN
-	EXECUTE_AUTONOMOUS('CREATE OR REPLACE TRIGGER TRG_' || tTable_Name || '_IU
+	EXECUTE_AUTONOMOUS('CREATE OR REPLACE TRIGGER '|| tSchema_Name || '.TRG_' || tTable_Name || '_IU
 AFTER INSERT OR UPDATE ON ' || inWorkitem_Table || '
 FOR EACH ROW
 BEGIN
-	T4SQL.META.COPY_PROPERTY_DEFAULT(DBMS_UTILITY.FORMAT_CALL_STACK, :new.WORKITEM_NAME, :new.TEMPLATE_NAME);
-END');
+	T4SQL.PUB_REF.COPY_PROPERTY_DEFAULT(DBMS_UTILITY.FORMAT_CALL_STACK, :new.WORKITEM_NAME, :new.TEMPLATE_NAME);
+END;');
 END CREATE_WORKITEM_TRIGGER;
 
 
@@ -382,7 +382,7 @@ PROCEDURE CREATE_WORKSPACE
 	tQualified_Property		VARCHAR2(45);
 BEGIN
 	IF tWorkitem_Schema IS NULL OR tProperty_Schema IS NULL THEN
-		RAISE_APPLICATION_ERROR(-21741, 'Schema must be specified in qualified table name');
+		RAISE_APPLICATION_ERROR(-20741, 'Schema must be specified in qualified table name');
 	END IF;
 
 	IF LENGTH(tWorkitem_Table) > 22 THEN

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/4-Packages/01-META.pck

@@ -0,0 +1,48 @@
+CREATE OR REPLACE PACKAGE T4SQL.PUB_REF IS
+
+----------------------------------------------------------------------------------------------------
+--
+--	Copyright 2013 Abel Cheng
+--	This source code is subject to terms and conditions of the Apache License, Version 2.0.
+--	See http://www.apache.org/licenses/LICENSE-2.0.
+--	All other rights reserved.
+--	You must not remove this notice, or any other, from this software.
+--
+--	Original Author:	Abel Cheng <[email protected]>
+--	Created Date:		‎November ‎12, 2013, 9:39:35 PM
+--	Primary Host:		http://t4sql.codeplex.com
+--	Change Log:
+--	Author				Date			Comment
+--
+--
+--
+--
+--	(Keep code clean rather than complicated code plus long comments.)
+--
+----------------------------------------------------------------------------------------------------
+
+PROCEDURE COPY_PROPERTY_DEFAULT
+(
+	inCall_Stack		VARCHAR2,	-- DBMS_UTILITY.FORMAT_CALL_STACK
+	inWorkitem_Name		VARCHAR2,
+	inTemplate_Name		VARCHAR2
+);
+
+END PUB_REF;
+/
+CREATE OR REPLACE PACKAGE BODY T4SQL.PUB_REF IS
+
+
+PROCEDURE COPY_PROPERTY_DEFAULT
+(
+	inCall_Stack		VARCHAR2,	-- DBMS_UTILITY.FORMAT_CALL_STACK
+	inWorkitem_Name		VARCHAR2,
+	inTemplate_Name		VARCHAR2
+)	AS
+BEGIN
+	T4SQL.META.COPY_PROPERTY_DEFAULT(inCall_Stack, inWorkitem_Name, inTemplate_Name);
+END COPY_PROPERTY_DEFAULT;
+
+
+END PUB_REF;
+/

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/4-Packages/04-PUB_REF.pck

@@ -3,7 +3,7 @@ BEFORE DELETE ON T4SQL.WORKSPACE_ENTRY
 FOR EACH ROW
 BEGIN
 	IF :old.WORKITEM_TABLE_NAME = 'T4SQL.SEED_WORKITEM' AND :old.PROPERTY_TABLE_NAME = 'T4SQL.SEED_PROPERTY' THEN
-		RAISE_APPLICATION_ERROR(-21001, 'Built-in workspace T4SQL.SEED_... cannot be deleted!');
+		RAISE_APPLICATION_ERROR(-20101, 'Built-in workspace T4SQL.SEED_... cannot be deleted!');
 	END IF;
 END;
 

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/5-Triggers/02-TRG_WORKSPACE_ENTRY_DEL.trg

@@ -8,7 +8,7 @@ DECLARE
 	tProperty_Table			VARCHAR2(30)	:= T4SQL.META.PARSENAME(:new.PROPERTY_TABLE_NAME, 1);
 BEGIN
 	IF tWorkitem_Schema IS NULL OR tProperty_Schema IS NULL THEN
-		RAISE_APPLICATION_ERROR(-21741, 'Schema must be specified in qualified table name');
+		RAISE_APPLICATION_ERROR(-20741, 'Schema must be specified in qualified table name');
 	END IF;
 
 	IF LENGTH(tWorkitem_Table) > 22 THEN
@@ -29,7 +29,7 @@ BEGIN
 
 	IF UPDATING AND :old.WORKITEM_TABLE_NAME = 'T4SQL.SEED_WORKITEM' AND :old.PROPERTY_TABLE_NAME = 'T4SQL.SEED_PROPERTY'
 		AND (:new.WORKITEM_TABLE_NAME <> 'T4SQL.SEED_WORKITEM' OR :new.PROPERTY_TABLE_NAME <> 'T4SQL.SEED_PROPERTY') THEN
-		RAISE_APPLICATION_ERROR(-21001, 'Built-in workspace T4SQL.SEED_... cannot be removed!');
+		RAISE_APPLICATION_ERROR(-20101, 'Built-in workspace T4SQL.SEED_... cannot be removed!');
 	END IF;
 
 	:new.WORKITEM_TABLE_NAME	:= tWorkitem_Schema || '.' || tWorkitem_Table;
@@ -38,7 +38,7 @@ BEGIN
 	-- Compare new workspace with SEED workspace to check compatibility of table definitions.
 	IF NOT T4SQL.META.MATCH_TABLE_DEFINITION('T4SQL', 'SEED_WORKITEM', tWorkitem_Schema, tWorkitem_Table) OR
 		NOT T4SQL.META.MATCH_TABLE_DEFINITION('T4SQL', 'SEED_PROPERTY', tProperty_Schema, tProperty_Table) THEN
-		RAISE_APPLICATION_ERROR(-21002, 'Tables definition of add-in workspace is not compatible with built-in workspace T4SQL.SEED_...!');
+		RAISE_APPLICATION_ERROR(-20102, 'Tables definition of add-in workspace is not compatible with built-in workspace T4SQL.SEED_...!');
 	END IF;
 
 	IF INSERTING THEN

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/5-Triggers/03-TRG_WORKSPACE_ENTRY_INS.trg

@@ -0,0 +1,8 @@
+GRANT SELECT ON T4SQL.UTL_ORDINAL_NUMBER TO PUBLIC;
+GRANT SELECT ON T4SQL.VW_ORDINAL_DATE TO PUBLIC;
+GRANT SELECT ON T4SQL.VW_ORDINAL_NUMBER_EXPANSION TO PUBLIC;
+GRANT SELECT ON T4SQL.TEMPLATE_CLASS TO PUBLIC;
+GRANT SELECT ON T4SQL.TEMPLATE_SPEC TO PUBLIC;
+
+GRANT REFERENCES ON T4SQL.TEMPLATE_CLASS TO PUBLIC;
+GRANT EXECUTE ON T4SQL.PUB_REF TO PUBLIC;

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/7-Privileges.sql

@@ -69,6 +69,9 @@
     <Content Include="Scripts\4-Packages\03-CMD.pck">
       <SubType>Content</SubType>
     </Content>
+    <Content Include="Scripts\4-Packages\04-PUB_REF.pck">
+      <SubType>Content</SubType>
+    </Content>
     <Content Include="Scripts\5-Triggers\01-TRG_SEED_WORKITEM_IU.sql">
       <SubType>Content</SubType>
     </Content>
@@ -90,7 +93,10 @@
     <Content Include="Scripts\6-InitData\04-VW_SEED_PROPERTY.sql">
       <SubType>Content</SubType>
     </Content>
-    <Content Include="Scripts\Privileges.sql">
+    <Content Include="Scripts\0-Privileges.sql">
+      <SubType>Content</SubType>
+    </Content>
+    <Content Include="Scripts\7-Privileges.sql">
       <SubType>Content</SubType>
     </Content>
     <Folder Include="ModelDefinition\" />

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/T4SQLDB.modelproj

@@ -24,9 +24,6 @@
     <Content Include="Scripts\2-InitData\1-CreateSampleWorkspace.sql">
       <SubType>Content</SubType>
     </Content>
-    <Content Include="Scripts\Privileges.sql">
-      <SubType>Content</SubType>
-    </Content>
     <Folder Include="ModelDefinition\" />
     <Content Include="ModelDefinition\Test.uml">
       <SubType>Content</SubType>

T4SQLTemplateLibrary/Databases/Oracle/Test/Scripts/Privileges.sql

@@ -4,7 +4,7 @@
 )
 AS
     SET NOCOUNT ON;
-	DECLARE @tDdlSql NVARCHAR(1024);
+	DECLARE @tDdlSql NVARCHAR(1024), @tSchema NVARCHAR(64);
 
 	IF NOT EXISTS
 	(
@@ -18,7 +18,14 @@ AS
 			AND	T.parent_class	= 1
 	)
 	BEGIN
-		SET @tDdlSql = N'CREATE TRIGGER TRG_' + PARSENAME(@inWorkitem_Table, 1) + N'_INS
+		SET @tSchema = PARSENAME(@inWorkitem_Table, 2);
+
+		IF @tSchema IS NULL
+			SET @tSchema = N''
+		ELSE
+			SET @tSchema = @tSchema + N'.';
+
+		SET @tDdlSql = N'CREATE TRIGGER ' + @tSchema + 'TRG_' + PARSENAME(@inWorkitem_Table, 1) + N'_IU
 ON ' + @inWorkitem_Table + N'
 AFTER INSERT, UPDATE
 AS
@@ -30,7 +37,7 @@ BEGIN
 	SELECT I.WORKITEM_NAME, I.TEMPLATE_NAME FROM inserted I;
 
 	EXEC T4SQL.META_COPY_PROPERTY_DEFAULT @@PROCID, @tWorkitems;
-END';
+END;';
 
 		EXECUTE (@tDdlSql);
 	END;