Subversion Repositories DevTools

<%
'=====================================================
'                                        GLOBALS
'=====================================================
%>
<!--#include file="../class/classPersistanceModule.asp"-->
<!--#include file="../class/classAccessControl.asp"-->
<!--#include file="../class/classExceptionHandler.asp"-->
<%
' -- VARIABLE DEFINITION ------------------------------
Dim parProj_id                  ' This par has the value of Request( par )
Dim parBranch_id                ' This par has the value of Request( par )
Dim parBom_id                   ' This par has the value of Request( par )
Dim parNode_id                  ' This par has the value of Request( par )
Dim parOs_id                    ' This par has the value of Request( par )
Dim parProd_id                  ' This par has the value of Request( par )
Dim dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id           ' These pars has -1 if Request( par ) is empty. Used mostly by DB bind params.
Dim objPMod             ' Persistance Module
Dim objEH               ' Exception Handler
Dim objCrumbs   ' Crumbs
Dim objAccessControl    ' Access Control
Dim aPersistList
Dim AT_BOM_LEVEL
Dim AT_NODE_LEVEL
Dim AT_OS_LEVEL
Dim AT_PROD_LEVEL
Dim isPopupWindow
Dim aAdminZones
Dim oEnumStateTypeNames
Dim TIMER_VALUE
Dim DB_PROJ_ID
' -- INITIALISATION ----------------------------------
isPopupWindow = FALSE

Set objAccessControl = New AccessControl
Set objPMod = New PersistanceModule
Set objEH = New ExceptionHandler
Set oEnumStateTypeNames = CreateObject("Scripting.Dictionary")

Const enumDB_STATE_TYPE_BOM_CREATOR = 1                         ' Used in [STATES] table
Const enumDB_STATE_TYPE_BOM_LOCAL_TESTER = 2            ' Used in [STATES] table
Const enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER = 3         ' Used in [STATES] table
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_CREATOR)), "BOM CREATORS"
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_LOCAL_TESTER)), "INTERNAL TESTERS"
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER)), "EXTERNAL TESTERS"

TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )       ' Find number of minutes since some very old point in time

Const enumPAR_PROJ_ID   = 0
Const enumPAR_BRANCH_ID = 1
Const enumPAR_BOM_ID    = 2
Const enumPAR_NODE_ID   = 3
Const enumPAR_OS_ID     = 4
Const enumPAR_PROD_ID   = 5
Const enumPAR_RFILE     = 6
Const enumPAR_STATE_ID  = 7
Const enumPAR_ROOT_VERSION      = 8
Const enumPAR_BOM_NAME_ID       = 9
aPersistList = Array( "proj_id","branch_id","bom_id","node_id","os_id","prod_id","rfile","state_id","root_version","bom_name_id" )

Const enumADMIN_ZONE_PROJECTS = 0
Const enumADMIN_ZONE_VALIDATION_RULES = 2
Const enumADMIN_ZONE_ACTION_TRAIL = 4
aAdminZones = Array( "Projects", "AdminProject_List.asp", _
                                         "Validation Rules", "CommingSoon.asp", _
                                         "Action Trail", "CommingSoon.asp" )
                                         
Call GetCurrentParameters( DB_PROJ_ID, -1, -1 ) ' These parameters are used 
' ----------------------------------------------------
%>