<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| User Privileges | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim ActiveCombo Dim VisibleCombo Dim currObj_id Dim isNewGroup Dim isVisibleComboDisabled Dim isActiveComboDisabled '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------------------- Sub SetPermissionCombos ( nObj_id, bNewGroup, cIsRoleVariation, _ ByRef isVisibleComboDisabled, ByRef isActiveComboDisabled, _ cVisible, cActive, _ ByRef outVisibleCombo, ByRef outActiveCombo ) Dim i, selected ' --- Reset combos "disabled" if necessary --- If bNewGroup AND IsNull( cIsRoleVariation ) Then isVisibleComboDisabled = "" isActiveComboDisabled = "" 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 &"" ' --- Set combos "disabled" if role variation is present --- If bNewGroup AND NOT IsNull( cIsRoleVariation ) Then isVisibleComboDisabled = "disabled" isActiveComboDisabled = "disabled" End If End Sub '-------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) '---------------------------------------------- %>

<%=PARENT_TITLE%> <%Call RenderTitle ( objUserCollector )%> <% 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 () %> <%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 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" %> <%=objPMod.ComposeHiddenTags()%> Role Name Control Name Permissions <%=LIMG_CONTROL & rsQry("obj_name")%> <%=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")%> <%=objPMod.ComposeURLWithout("obj_id")%>" title="See this Control Permissions" class="body_link"><%=LIMG_CONTROL & rsQry("obj_name")%>   <%=VisibleCombo%>  <%=ActiveCombo%>   NOTE: "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.

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