Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 rsolanki 1 
<%
2 
'===================================================================
3 
'							Tab Controls
4 
'===================================================================
5 
%>
6 
<%
7 
'------------ VARIABLE DEFINITION -------------
8 
Dim arrUserAccount
9 
Dim arrRole
10 
Dim arrControl
11 
Dim arrComputer
12 
'------------ CONSTANTS DECLARATION -----------
13 
'------------ VARIABLE INIT -------------------
14 
 
15 
	'[1] Tab Name
16 
	'[2] Tab Link
17 
	'[3] JavaScript Event e.g. "onClick='...'"
18 
	'[4] Tab Image Selected
19 
	'[5] Tab Image Diselected
20 
	'[6] Tab Image Disabled
21 
	'[7] Tab Hint
22 
	'[8] Force Disable. Values: Y, N(default)
23 
 
24 
 
25 
arrUserAccount = _
26 
				Array ( "General", _
27 
						"User_General.asp?"& objPMod.ComposeURL(), _
28 
						"", _
29 
						"", "", "", "", "", _
30 
 
31 
						"Applications", _
6 ghuddy 32 
						"User_Applications.asp?"& objPMod.ComposeURLWith("user_id,tree"), _
2 rsolanki 33 
						"", _
34 
						"", "", "", "", "", _
35 
 
36 
						"Roles", _
37 
						"User_Roles.asp?"& objPMod.ComposeURL(), _
38 
						"", _
39 
						"", "", "", "", "", _
40 
 
41 
						"User Permissions", _
42 
						"User_Privileges.asp?"& objPMod.ComposeURL(), _
43 
						"", _
44 
						"", "", "", "", "", _
45 
 
46 
						"Login Trail", _
47 
						"User_LoginTrail.asp?"& objPMod.ComposeURL(), _
48 
						"", _
49 
						"", "", "", "", "" _
50 
					  )
51 
 
52 
arrRole = _
53 
				Array ( "General", _
54 
						"Role_General.asp?"& objPMod.ComposeURL(), _
55 
						"", _
56 
						"", "", "", "", "", _
57 
 
58 
						"Members", _
59 
						"Role_Members.asp?"& objPMod.ComposeURL(), _
60 
						"", _
61 
						"", "", "", "", "", _
62 
 
63 
						"Role Permissions", _
64 
						"Role_Privileges.asp?"& objPMod.ComposeURL(), _
65 
						"", _
66 
						"", "", "", "", "", _
67 
 
68 
						"Data Filtering", _
69 
						"Role_DataFiltering.asp?"& objPMod.ComposeURL(), _
70 
						"", _
71 
						"", "", "", "", "" _
72 
					  )
73 
 
74 
arrControl = _
75 
				Array ( "General", _
76 
						"Control_General.asp?"& objPMod.ComposeURL(), _
77 
						"", _
78 
						"", "", "", "", "", _
79 
 
80 
						"Action Permissions", _
81 
						"Control_Privileges.asp?"& objPMod.ComposeURL(), _
82 
						"", _
83 
						"", "", "", "", ""_
84 
					  )
85 
 
86 
 
87 
arrComputer = _
88 
				Array ( "Computer Users", _
89 
						"ClientList.asp?"& objPMod.ComposeURL(), _
90 
						"", _
91 
						"", "", "", "", "" _
92 
					  )
93 
'----------------------------------------------
94 
%>
95 
<%
96 
'------------ RUN BEFORE CONTROL RENDER -------
97 
'----------------------------------------------
98 
%>
99 
<%
100 
'------------ RUN AFTER CONTROL RENDER --------
101 
'----------------------------------------------
102 
%>