| 2 |
rsolanki |
1 |
<%
|
|
|
2 |
'=====================================================
|
|
|
3 |
' GLOBALS
|
|
|
4 |
'=====================================================
|
|
|
5 |
%>
|
|
|
6 |
<!--#include file="../class/classPersistanceModule.asp"-->
|
|
|
7 |
<!--#include file="../class/classAccessControl.asp"-->
|
|
|
8 |
<!--#include file="../class/classExceptionHandler.asp"-->
|
|
|
9 |
<%
|
|
|
10 |
' -- VARIABLE DEFINITION -----------------------------
|
|
|
11 |
Dim objPMod
|
|
|
12 |
Dim objEH
|
|
|
13 |
Dim objAccessControl
|
|
|
14 |
Dim objTabControl
|
|
|
15 |
|
|
|
16 |
Dim isPopupWindow
|
|
|
17 |
Dim arrActivePermissions
|
|
|
18 |
Dim arrVisiblePermissions
|
|
|
19 |
Dim INXperm_val
|
|
|
20 |
Dim INXperm_text
|
|
|
21 |
Dim INXperm_style
|
|
|
22 |
Dim NumberofPermissionFields
|
|
|
23 |
Dim aPersistList
|
|
|
24 |
Dim TIMER_VALUE
|
|
|
25 |
' -- INITIALISATION ----------------------------------
|
|
|
26 |
aPersistList = Array( "tree","app_id","role_id","user_id","obj_id","rfile" )
|
|
|
27 |
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now ) ' Find number of minutes since some very old point in time
|
|
|
28 |
isPopupWindow = FALSE
|
|
|
29 |
|
|
|
30 |
Set objAccessControl = New AccessControl
|
|
|
31 |
Set objPMod = New PersistanceModule
|
|
|
32 |
Set objEH = New ExceptionHandler
|
|
|
33 |
|
|
|
34 |
INXperm_val = 0
|
|
|
35 |
INXperm_text = 1
|
|
|
36 |
INXperm_style = 2
|
|
|
37 |
NumberofPermissionFields = 3
|
|
|
38 |
arrVisiblePermissions = Array ( "", "", "", "Y", "Show", "body_txt", "N", "Hide", "body_txtr")
|
|
|
39 |
arrActivePermissions = Array ( "", "", "", "Y", "Enable", "body_txt", "N", "Disable", "body_txtr" )
|
|
|
40 |
' ----------------------------------------------------
|
|
|
41 |
%>
|