diff --git a/Modules/mip_security.pck b/Modules/mip_security.pck index bbab3bd..0ba0a3f 100644 --- a/Modules/mip_security.pck +++ b/Modules/mip_security.pck @@ -311,6 +311,8 @@ CREATE OR REPLACE PACKAGE BODY mip_security AS RETURN TRUE; END; END IF; + -- added block around this to catch no data. + BEGIN SELECT access_allowed INTO l_access_allowed FROM (SELECT auth.component_name @@ -338,12 +340,17 @@ CREATE OR REPLACE PACKAGE BODY mip_security AS AND auth.component_type = p_component_type ORDER BY parl.rt_code) WHERE rownum < 2; + IF nvl(l_access_allowed ,'NO') = 'YES' THEN RETURN TRUE; ELSE RETURN FALSE; END IF; + EXCEPTION + WHEN no_data_found THEN + RETURN FALSE; + END; END authorization; /** Checks for authorization to access the given page