Subversion Repositories DevTools

<%
'=====================================================
'                                        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" )
' ----------------------------------------------------
%>