admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#35673 adm.systrackscript is al twee jaar deprecated dus nu vervallen

Browse Source 
svn path=/Database/trunk/; revision=28361
This commit is contained in:
Jos Groot Lipman
2016-03-03 15:29:45 +00:00
parent e5a20a13de
commit 26793e05e1
1 changed files with 2 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
ADM/ADM_PAC.SRC
View File

@@ -4,9 +4,7 @@
CREATE OR REPLACE PACKAGE adm CREATE OR REPLACE PACKAGE adm
AS AS
PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER); PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1);
PROCEDURE systrackscriptId (svnid IN VARCHAR2);
PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
PROCEDURE trydrop (n IN VARCHAR2); PROCEDURE trydrop (n IN VARCHAR2);
PROCEDURE tryalter (n IN VARCHAR2); PROCEDURE tryalter (n IN VARCHAR2);
END adm; END adm;
@@ -14,45 +12,9 @@ END adm;
CREATE OR REPLACE PACKAGE BODY adm CREATE OR REPLACE PACKAGE BODY adm
AS AS
PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER)
AS
revisionnr VARCHAR2 (60);
scriptname VARCHAR2 (60);
BEGIN
-- Als force = 1 dan wordt onvoorwaardelijk getrackt, anders
-- wordt niet getrackt als deze (n,r) al eerder werd getrackt
revisionnr := REPLACE (r, '$', '');
revisionnr := RTRIM (REPLACE (revisionnr, 'Revision: ', ''));
scriptname := REPLACE (n, '$', '');
scriptname := RTRIM (REPLACE (scriptname, 'Workfile: ', ''));
IF force = 1
THEN
INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision
)
VALUES (scriptname, revisionnr
);
ELSE
BEGIN
UPDATE adm_tracking
SET adm_tracking_date = SYSDATE, adm_tracking_osuser = SYS_CONTEXT ('USERENV', 'OS_USER')
WHERE UPPER (adm_tracking_name) = UPPER (scriptname)
AND UPPER (adm_tracking_revision) = UPPER (revisionnr);
IF SQL%ROWCOUNT = 0
THEN
INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision
)
VALUES (scriptname, revisionnr
);
END IF;
END;
END IF;
END;
-- Voor SVN is dit handiger, vereist alleen de svn-id string -- Voor SVN is dit handiger, vereist alleen de svn-id string
-- ($Id$) -- ($Id$)
PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER) PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1)
AS AS
revisionnr VARCHAR2 (60); revisionnr VARCHAR2 (60);
scriptname VARCHAR2 (60); scriptname VARCHAR2 (60);
@@ -84,13 +46,6 @@ AS
END IF; END IF;
END; END;
-- Trackt altijd
PROCEDURE systrackscriptId (svnid IN VARCHAR2)
AS
BEGIN
adm.systrackscriptId(svnid, 1);
END;
-- DDL. Probeert een object (TABLE, INDEX e.d.) te droppen, maar moppert niet als die niet bestond -- DDL. Probeert een object (TABLE, INDEX e.d.) te droppen, maar moppert niet als die niet bestond
-- Hiermee voorkomen we foutmeldingen in logfiles die niet erg zijn -- Hiermee voorkomen we foutmeldingen in logfiles die niet erg zijn
PROCEDURE trydrop (n IN VARCHAR2) PROCEDURE trydrop (n IN VARCHAR2)