Add instance name

This commit is contained in:
Jan Kvetina 2022-01-20 21:32:04 +01:00
parent 3700de211c
commit 47f31e10ca

View File

@ -690,12 +690,13 @@ CREATE OR REPLACE PACKAGE BODY app AS
AS AS
out_name VARCHAR2(4000); out_name VARCHAR2(4000);
BEGIN BEGIN
out_name := 'Environment: ' || SYS_CONTEXT('USERENV', 'SERVER_HOST'); out_name := out_name || 'Environment: ' || SYS_CONTEXT('USERENV', 'SERVER_HOST') || CHR(10);
out_name := out_name || 'Instance: ' || SYS_CONTEXT('USERENV', 'INSTANCE_NAME') || CHR(10);
-- --
IF app.is_developer() THEN IF app.is_developer() THEN
-- details for developers -- details for developers
SELECT SELECT
out_name || CHR(10) || out_name ||
'Oracle APEX: ' || a.version_no || CHR(10) || 'Oracle APEX: ' || a.version_no || CHR(10) ||
'Oracle DB: ' || p.version_full 'Oracle DB: ' || p.version_full
INTO out_name INTO out_name
@ -2223,7 +2224,7 @@ CREATE OR REPLACE PACKAGE BODY app AS
-- dont log blacklisted records -- dont log blacklisted records
IF SQLCODE = 0 AND NOT app.is_debug_on() AND app.is_blacklisted(rec) THEN IF SQLCODE = 0 AND NOT app.is_debug_on() AND app.is_blacklisted(rec) THEN
RETURN NULL; RETURN NULL; -- skip blacklisted record only if there is no error and debug mode off
END IF; END IF;
-- retrieve parent log from map -- retrieve parent log from map