<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Role Privileges | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim sNode Dim rsQry Dim ActiveCombo Dim VisibleCombo '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------------------------------------ Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo ) Dim i, selected ' --- 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 '------------------------------------------------------------------------------------------------------------------------------------------------------ %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetRoleDetails ( parRole_id, parApp_id, objRoleCollector ) '---------------------------------------------- %>

<%=PARENT_TITLE%> <%Call RenderTitle ( objRoleCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrRole ) objTabControl.DisableByName ( "Data Filtering" ) objTabControl.SelectByName ( "Role Permissions" ) objTabControl.Render () %> <% OraDatabase.Parameters.Add "ROLE_ID", parRole_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RolePrivileges.sql") , ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call SetPermissionCombos ( rsQry("obj_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo ) %> <%rsQry.MoveNext%> <% WEnd OraDatabase.Parameters.Remove "ROLE_ID" OraDatabase.Parameters.Remove "APP_ID" %> <%=objPMod.ComposeHiddenTags()%> Action Name Permissions Description " disabled> &<%=objPMod.ComposeURL%>" class="body_link"><%=LIMG_CONTROL & rsQry("obj_name")%>   <%=VisibleCombo%>  <%=ActiveCombo%>   <%=rsQry("obj_description")%> &<%=objPMod.ComposeURL%>" class="body_link"><%=EVal( rsQry("data_filter") )%>

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