FSN#18275

svn path=/Database/trunk/; revision=10396

ADM/ADM_PAC.SRC

@@ -0,0 +1,54 @@
+/*  $Revision: 1 $
+ *  $Modtime: 7-09-10 9:13 $
+ */
+
+CREATE OR REPLACE PACKAGE adm
+AS
+   PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER);
+END adm;
+/
+
+CREATE OR REPLACE PACKAGE BODY adm
+AS
+   PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER)
+   AS
+      revisionnr VARCHAR2 (60);
+      scriptname VARCHAR2 (60);
+      d1 adm_tracking.adm_tracking_name%TYPE;
+      d2 adm_tracking.adm_tracking_revision%TYPE;
+   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;
+   
+END adm;
+/
+
+REGISTERRUN('$Workfile: ADM_PAC.SRC $','$Revision: 1 $')

ADM/ADM_TAB.SRC

@@ -0,0 +1,12 @@
+/*
+ * $Revision: 1 $
+ * $Modtime: 6-09-10 15:49 $
+ */
+
+CREATE_TABLE(adm_tracking, 0)
+(
+   adm_tracking_name VARCHAR2 (60),
+   adm_tracking_revision VARCHAR2 (60),
+   adm_tracking_date DATE DEFAULT SYSDATE,
+   adm_tracking_osuser VARCHAR2 (60) DEFAULT SYS_CONTEXT('USERENV','OS_USER')
+);