<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Control Privileges | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim ActiveCombo Dim VisibleCombo Dim CanEdit '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- CanEdit = canActionControl("canAssignActionToRole") '------------ 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 '-------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetControlDetails ( parObj_id, parApp_id, objObjCollector ) '---------------------------------------------- %>

<%=PARENT_TITLE%> <%Call RenderTitle ( objObjCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrControl ) objTabControl.SelectByName ( "Action Permissions" ) objTabControl.Render () %> <% Call SetPermissionCombos ( "ALL", NULL, NULL, VisibleCombo, ActiveCombo ) %> <% OraDatabase.Parameters.Add "OBJ_ID", parObj_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ControlPrivileges.sql") , ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call SetPermissionCombos ( rsQry("role_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo ) %> <%rsQry.MoveNext%> <% WEnd OraDatabase.Parameters.Remove "OBJ_ID" OraDatabase.Parameters.Remove "APP_ID" %> <%If CanEdit Then%> <%End If%> <%=objPMod.ComposeHiddenTags()%> Role Name Control Name Permissions  ALL <%=LIMG_CONTROL & objObjCollector("obj_name")%>   <%=VisibleCombo%>  <%=ActiveCombo%>   " disabled> <%=objPMod.ComposeURLWithout("obj_id")%>" title="See this Role Permissions" class="body_link"><%=LIMG_ROLE & rsQry("role_name")%> <%=LIMG_CONTROL & objObjCollector("obj_name")%>   <%=VisibleCombo%>  <%=ActiveCombo%>

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