Subversion Repositories DevTools

Rev

Rev 6 | Blame | Compare with Previous | Last modification | View Log | RSS feed

<%
'===================================================================
'                                                       Tab Controls
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim arrUserAccount
Dim arrRole
Dim arrControl
Dim arrComputer
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
        
        '[1] Tab Name
        '[2] Tab Link
        '[3] JavaScript Event e.g. "onClick='...'"
        '[4] Tab Image Selected
        '[5] Tab Image Diselected
        '[6] Tab Image Disabled
        '[7] Tab Hint
        '[8] Force Disable. Values: Y, N(default)
        
        
arrUserAccount = _
                                Array ( "General", _
                                                "User_General.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Applications", _
                                                "User_Applications.asp?"& objPMod.ComposeURLWith("user_id,tree"), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Roles", _
                                                "User_Roles.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "User Permissions", _
                                                "User_Privileges.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Login Trail", _
                                                "User_LoginTrail.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "" _
                                          )

arrRole = _
                                Array ( "General", _
                                                "Role_General.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Members", _
                                                "Role_Members.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Role Permissions", _
                                                "Role_Privileges.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Data Filtering", _
                                                "Role_DataFiltering.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "" _
                                          )                                       

arrControl = _
                                Array ( "General", _
                                                "Control_General.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Action Permissions", _
                                                "Control_Privileges.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", ""_
                                          )     
                                          

arrComputer = _
                                Array ( "Computer Users", _
                                                "ClientList.asp?"& objPMod.ComposeURL(), _
                                                "", _
                                                "", "", "", "", "" _
                                          )
'----------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------
'----------------------------------------------
%>
<%
'------------ RUN AFTER CONTROL RENDER --------
'----------------------------------------------
%>