Subversion Repositories DevTools

Rev

Rev 6577 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 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 parRtag_id
5846 dpurdie 12
Dim pkgInfoHash                             ' See Get_Pkg_Info
5207 dpurdie 13
Dim releaseInfoHash
119 ghuddy 14
Dim objAccessControl
15
Dim objPMod
16
Dim objEH
17
Dim objTabControl
18
Dim aPersistList
19
Dim isPopupWindow
6577 dpurdie 20
Dim DB_PROJ_ID, DB_PROJ_NAME                ' Extracted from Request(proj_id) 
21
Dim DB_RTAG_ID, DB_RTAG_NAME                ' Extracted from Request(rtag_id)
22
Dim DB_PV_ID                                ' Extracted from Request(pv_id)
119 ghuddy 23
Dim TIMER_VALUE
3959 dpurdie 24
Dim rmDebug                                 ' Will display text in the footer area
5590 dpurdie 25
Dim sJqueryIformCancel                      ' ID of Cancel Button in Iframe
6623 dpurdie 26
Dim bJqueryDataTables                       ' Include DataTables support
27
Dim sJqueryDataTablesCss                    ' Alternate CSS for DataTables
5590 dpurdie 28
Dim bJqueryForms                            ' Include Jquery Form support
29
Dim bJqueryVix                              ' Include vix jquery components
5636 dpurdie 30
Dim bJqueryTimePicker                       ' Include Date-Time picker
5590 dpurdie 31
Dim bJqueryCommonLoaded                     ' Prevent multiple loads
119 ghuddy 32
' -- Variable Initialisation --------------------------
5246 dpurdie 33
Set releaseInfoHash = Nothing
4063 dpurdie 34
rmDebug = ""
35
isPopupWindow = FALSE
5951 dpurdie 36
parRtag_id = QStrPar("rtag_id") : If parRtag_id = "" Then parRtag_id = Empty 
119 ghuddy 37
Set objAccessControl = New AccessControl
38
Set objPMod = New PersistanceModule
39
Set objEH = New ExceptionHandler
6577 dpurdie 40
Call GetCurrentParameters( DB_PROJ_ID, DB_PROJ_NAME, DB_RTAG_ID, DB_RTAG_NAME, DB_PV_ID )	' These parameters are used
5102 dpurdie 41
'-- rmDebug = rmDebug &  "Proj:" &  DB_PROJ_ID  & ",Rtag:" &  DB_RTAG_ID & ",Pvid:" & DB_PV_ID
119 ghuddy 42
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time
5085 dpurdie 43
bJqueryDataTables = FALSE
44
bJqueryForms = FALSE
5190 dpurdie 45
bJqueryVix = TRUE
5636 dpurdie 46
bJqueryTimePicker = FALSE
5590 dpurdie 47
bJqueryCommonLoaded = FALSE
119 ghuddy 48
' -- Constants ----------------------------------------
49
Const enumPAR_PROJ_ID 	= 0
50
Const enumPAR_RTAG_ID 	= 1
51
Const enumPAR_PV_ID 	= 2
52
Const enumPAR_RFILE 	= 3
53
Const enumPAR_ADD_TYPE 	= 4
54
Const enumPAR_DPV_ID 	= 5
5266 dpurdie 55
aPersistList = Array( "proj_id","rtag_id","pv_id","rfile","add_type","dpv_id","pkg_id" )
119 ghuddy 56
'-------------------------------------------------------
57
%>