From 47f31e10ca52bc01daaee8ad1fcae410fef9cb9c Mon Sep 17 00:00:00 2001 From: Jan Kvetina Date: Thu, 20 Jan 2022 21:32:04 +0100 Subject: [PATCH] Add instance name --- packages/app.sql | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/packages/app.sql b/packages/app.sql index eba5005..dfa7b61 100644 --- a/packages/app.sql +++ b/packages/app.sql @@ -690,12 +690,13 @@ CREATE OR REPLACE PACKAGE BODY app AS AS out_name VARCHAR2(4000); 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 -- details for developers SELECT - out_name || CHR(10) || + out_name || 'Oracle APEX: ' || a.version_no || CHR(10) || 'Oracle DB: ' || p.version_full INTO out_name @@ -2223,7 +2224,7 @@ CREATE OR REPLACE PACKAGE BODY app AS -- dont log blacklisted records 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; -- retrieve parent log from map