<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' ' User_Privileges.asp ' Display the complete list of user privileges and the source of the permission ' Tis page does not allow them to be edited - that is done on other pages '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim ActiveCombo Dim VisibleCombo Dim currObj_id Dim isNewGroup Dim isVisibleComboDisabled Dim isActiveComboDisabled Dim ActionDescriptions Dim objAppCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objAppCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------------------- Sub GetActionDescriptions Set ActionDescriptions = CreateObject("Scripting.Dictionary") If parApp_id <> "" Then Dim rsQry, query query = "Select OBJ_ID, OBJ_NAME, OBJ_DESCRIPTION from control_objects where app_id = " & parApp_id Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) ActionDescriptions.Add rsQry("OBJ_ID").Value , rsQry("OBJ_DESCRIPTION").Value rsQry.MoveNext Wend rsQry.Close Set rsQry = Nothing End If End Sub '-------------------------------------------------------------------------------------------------------------------------------------------- Sub SetPermissionCombos ( nObj_id, _ bNewGroup, _ cIsRoleVariation, _ ByRef isVisibleComboDisabled,_ ByRef isActiveComboDisabled, _ cVisible, _ cActive, _ ByRef outVisibleCombo, _ ByRef outActiveCombo ) Dim i Dim visText, actText ' --- Visible Combo --- For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields If arrVisiblePermissions( INXperm_val + i ) = cVisible Then visText = arrVisiblePermissions( INXperm_text + i ) End If Next outVisibleCombo = "" & visText & "" ' --- Active Combo --- For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields If arrActivePermissions( INXperm_val + i ) = cActive Then actText = arrActivePermissions( INXperm_text + i ) End If Next outActiveCombo = "" & actText & "" End Sub '-------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) Call GetApplicationDetails ( parApp_id, objAppCollector ) Call GetActionDescriptions '---------------------------------------------- %>

<%=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 Permissions" ) objTabControl.Render () %> <% OraDatabase.Parameters.Add "USER_ID", parUser_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserPermissions.sql") , ORADYN_DEFAULT ) currObj_id = -1 isNewGroup = FALSE isVisibleComboDisabled = "" isActiveComboDisabled = "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%If currObj_id <> CInt(rsQry("obj_id")) Then%> <%isNewGroup = TRUE%> <%currObj_id = CInt(rsQry("obj_id"))%> <%End If%> <%Call SetPermissionCombos ( rsQry("role_id") &"_"& rsQry("obj_id"), _ isNewGroup, rsQry("is_role_variation"), _ isVisibleComboDisabled, isActiveComboDisabled, _ rsQry("visible_value"), rsQry("active_value"), _ VisibleCombo, ActiveCombo )%> <% isNewGroup = FALSE rsQry.MoveNext %> <% WEnd OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "APP_ID" %> Role Name Permissions Description <%=objPMod.ComposeURLWithout("obj_id")%>" title="See this Control Permissions" class="body_link"><%=LIMG_CONTROL & rsQry("obj_name")%> <%=ActionDescriptions.Item(rsQry("obj_id").Value)%> <%=objPMod.ComposeURLWithout("role_id")%>" title="See this Role Permissions" class="body_link"><%If IsNull( rsQry("is_role_variation") ) Then%><%=LIMG_ROLE%><%Else%><%=LIMG_SPEC_ROLE%><%End If%><%=rsQry("role_name")%>   <%=VisibleCombo%>  <%=ActiveCombo%>   NOTE: "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.

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