<%
'=====================================================
'					 GLOBALS
'=====================================================
%>
<!--#include file="../class/classPersistanceModule.asp"-->
<!--#include file="../class/classAccessControl.asp"-->
<!--#include file="../class/classExceptionHandler.asp"-->
<%
' -- VARIABLE DEFINITION -----------------------------
Dim objPMod
Dim objEH
Dim objAccessControl
Dim objTabControl

Dim isPopupWindow
Dim arrActivePermissions
Dim arrVisiblePermissions
Dim INXperm_val
Dim INXperm_text
Dim INXperm_style
Dim NumberofPermissionFields
Dim aPersistList
Dim TIMER_VALUE
' -- INITIALISATION ----------------------------------
aPersistList = Array( "tree","app_id","role_id","user_id","obj_id","rfile" )
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time
isPopupWindow = FALSE

Set objAccessControl = New AccessControl
Set objPMod = New PersistanceModule
Set objEH = New ExceptionHandler

INXperm_val		= 0
INXperm_text	= 1
INXperm_style	= 2
NumberofPermissionFields = 3
arrVisiblePermissions 	= Array ( "", "", "",		"Y", "Show", "body_txt",		"N", "Hide", "body_txtr")
arrActivePermissions 	= Array ( "", "", "", 		"Y", "Enable", "body_txt", 		"N", "Disable", "body_txtr" )
' ----------------------------------------------------
%>