FSN#31260 bookkeeping van fac>adm stage 1

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

ADM/ADM_PAC.SRC

@@ -9,6 +9,8 @@ AS
    PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
    PROCEDURE trydrop (n IN VARCHAR2);
    PROCEDURE tryalter (n IN VARCHAR2);
+   PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2);
+   FUNCTION getdbversion RETURN VARCHAR2;
 END adm;
 /
 
@@ -142,6 +144,47 @@ AS
           END IF;
    END;
 
+   -- formerly in FAC-package
+   PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2)
+   AS
+       verstring fac_module.fac_module_version%TYPE;
+       revisionnr fac_version.fac_version_schema%TYPE;
+     BEGIN
+       IF pmaj IS NOT NULL AND pmin IS NOT NULL AND ppatch IS NOT NULL
+       THEN
+          verstring := TO_CHAR (pmaj) || '.' || TO_CHAR (pmin) || '.' || TO_CHAR (ppatch);
+          UPDATE   fac_module
+             SET   fac_module_version = verstring;
+
+          UPDATE   fac_version
+             SET   fac_version_major = pmaj,
+                   fac_version_minor = pmin,
+                   fac_version_patch = ppatch,
+                   fac_version_schema = pschema,
+                   fac_version_date = SYSDATE;
+
+          UPDATE   fac_message
+             SET   fac_message_text = 'FACILITOR ' || verstring || 'DB' || TO_CHAR(pschema)
+           WHERE   fac_message_code = 'FAC_M002';
+       END IF;
+
+       IF plang IS NOT NULL
+       THEN
+          UPDATE   fac_version
+             SET   fac_version_lang = plang;
+       END IF;
+    END;
+
+    FUNCTION getdbversion RETURN VARCHAR2
+    AS
+       verstring VARCHAR2(100);
+    BEGIN
+       SELECT 'DB'||fac_version_schema||'/'||fac_version_cust||fac_version_custnr||'-'||COALESCE(fac_version_otap,'P*')
+         INTO verstring
+         FROM fac_version;
+      RETURN verstring;
+    END;
+
 END adm;
 /
 

_UP/epilogue.inc

@@ -36,11 +36,11 @@ SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Warning: ' || object_type || ' ' || obje
 SET ECHO OFF
 SET FEEDBACK OFF
 PROMPT ======================================================================
-SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
+SELECT 'Schema FACILITOR@' || USER || ' is now ' || adm.getdbversion() FROM DUAL;
 PROMPT
 PROMPT Your schema upgrade is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
-PROMPT Copyright (c) 1992-2014 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
 SET DEFINE ON
 PROMPT Logfile of this upgrade is: &fcltlogfile
 SPOOL OFF

_UP/recreate.inc

@@ -65,7 +65,7 @@
 /* SETTINGS's */
 #include "fac\fac_set.src"
 
-BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, NULL); END;
+BEGIN adm.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, NULL); END;
 /
 /* now compile all views, triggers etc acc to the latest state */
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;