Iets betere database versie (adm)tracking

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

FCLT.SRC

@@ -161,6 +161,11 @@ BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING,
 /
 REGISTERONCE('$Id$')
 
+INSERT INTO adm_tracking
+    (adm_tracking_name, adm_tracking_revision)
+VALUES
+    ('Database created', 'DB' || _DBV_STRING);
+
 COMMIT;
 /* Report invalid objects, if any */
 SET ECHO OFF

_UP/epilogue.inc

@@ -77,6 +77,11 @@ END;
 #include POST_RECREATE
 #endif
 
+INSERT INTO adm_tracking
+    (adm_tracking_name, adm_tracking_revision)
+VALUES
+    ('Database upgraded', 'DB' || _DBV_STRING);
+
 select 'Upgrade has completed in ' || ROUND(( dbms_utility.get_time - :update_start )/100) || ' seconds.' from dual;
 
 /* Report invalid objects, if any */

_UP/recreate.src

@@ -56,6 +56,11 @@ SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Warning: ' || object_type || ' ' || obje
 
 #include "recreate.inc"
 
+INSERT INTO adm_tracking
+    (adm_tracking_name, adm_tracking_revision)
+VALUES
+    ('Database recreated', 'DB' || _DBV_STRING);
+
 select 'Recreate has '||'completed in ' || ROUND(( dbms_utility.get_time - :recreate_start )/100) || ' seconds.' from dual;
 
 /* Report invalid objects, if any */