<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' ' User Override ' User_Override.asp ' '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim RoleId Dim sNode Dim rsQry Dim ActiveCombo Dim VisibleCombo Dim objAppCollector Dim CanEdit '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objAppCollector = CreateObject("Scripting.Dictionary") CanEdit = canActionControl("canEditUserOverrides") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------------------------------------ Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo ) Dim i, selected, disableControl ' -- Disable editing If CanEdit Then disableControl = "" Else disableControl = " disabled" End IF ' --- Visible Combo --- outVisibleCombo = "" outVisibleCombo = outVisibleCombo &"" For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields selected = "" If arrVisiblePermissions( INXperm_val + i ) = cVisible Then selected = "selected" End If outVisibleCombo = outVisibleCombo &""& arrVisiblePermissions( INXperm_text + i ) &""& VBNewLine Next outVisibleCombo = outVisibleCombo &"" ' --- Active Combo --- outActiveCombo = "" outActiveCombo = outActiveCombo &"" For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields selected = "" If arrActivePermissions( INXperm_val + i ) = cActive Then selected = "selected" End If outActiveCombo = outActiveCombo &""& arrActivePermissions( INXperm_text + i ) &""& VBNewLine Next outActiveCombo = outActiveCombo &"" End Sub '------------------------------------------------------------------------------------------------------------------------------------------------------ '----------------------------------------------------------------------------------------------------------------- Sub GetUserRoleDetails ( nUser_id) Dim rsQry, query query = _ "SELECT r.ROLE_ID " &_ " FROM ROLES r, USER_ROLES ur WHERE " &_ " r.IS_ROLE_VARIATION IS NOT NULL AND" &_ " ur.ROLE_ID = r.ROLE_ID" &_ " AND ur.USER_ID = " & nUser_id Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then RoleId = rsQry("role_id") Else RoleId = NULL End If rsQry.Close Set rsQry = Nothing End Sub %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) Call GetApplicationDetails ( parApp_id, objAppCollector ) Call GetUserRoleDetails ( parUser_id ) '---------------------------------------------- %>

<%=PARENT_TITLE%> <%Call RenderTitle ( objUserCollector )%> Application: <%=objAppCollector.Item ("application_name")%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrUserAccount ) objTabControl.SelectByName ( "User Override" ) objTabControl.Render () %> <%Call Messenger ( "Any permission changes will be appled to this user only!", 3, 400 )%> <% OraDatabase.Parameters.Add "USER_ID", parUser_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ROLE_ID", RoleId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserOverride.sql") , ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call SetPermissionCombos ( rsQry("obj_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo ) %> <%End If%> <% rsQry.MoveNext %> <% WEnd OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "APP_ID" OraDatabase.Parameters.Remove "ROLE_ID" %> <%If CanEdit Then %> <%End If%> <%=objPMod.ComposeHiddenTags()%> Action Name Permissions Description &<%=objPMod.ComposeURL%>" class="body_link"> <%=Eval(rsQry("TYPE")) & rsQry("obj_name")%>   <%=VisibleCombo%>  <%=ActiveCombo%>   <%=rsQry("obj_description")%> <%If RoleId <> "" Then %> &role_id=<%=RoleId%>&<%=objPMod.ComposeURL%>" class="body_link"><%=EVal( rsQry("data_filter") )%> NOTE: "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>