Subversion Repositories DevTools

Rev

Rev 6623 | 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
6651 dpurdie 31
Dim bCsvExport                              ' Include TableCSVExporter
5590 dpurdie 32
Dim bJqueryCommonLoaded                     ' Prevent multiple loads
119 ghuddy 33
' -- Variable Initialisation --------------------------
5246 dpurdie 34
Set releaseInfoHash = Nothing
4063 dpurdie 35
rmDebug = ""
36
isPopupWindow = FALSE
5951 dpurdie 37
parRtag_id = QStrPar("rtag_id") : If parRtag_id = "" Then parRtag_id = Empty 
119 ghuddy 38
Set objAccessControl = New AccessControl
39
Set objPMod = New PersistanceModule
40
Set objEH = New ExceptionHandler
6577 dpurdie 41
Call GetCurrentParameters( DB_PROJ_ID, DB_PROJ_NAME, DB_RTAG_ID, DB_RTAG_NAME, DB_PV_ID )	' These parameters are used
5102 dpurdie 42
'-- rmDebug = rmDebug &  "Proj:" &  DB_PROJ_ID  & ",Rtag:" &  DB_RTAG_ID & ",Pvid:" & DB_PV_ID
119 ghuddy 43
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 44
bJqueryDataTables = FALSE
45
bJqueryForms = FALSE
5190 dpurdie 46
bJqueryVix = TRUE
5636 dpurdie 47
bJqueryTimePicker = FALSE
5590 dpurdie 48
bJqueryCommonLoaded = FALSE
119 ghuddy 49
' -- Constants ----------------------------------------
50
Const enumPAR_PROJ_ID 	= 0
51
Const enumPAR_RTAG_ID 	= 1
52
Const enumPAR_PV_ID 	= 2
53
Const enumPAR_RFILE 	= 3
54
Const enumPAR_ADD_TYPE 	= 4
55
Const enumPAR_DPV_ID 	= 5
5266 dpurdie 56
aPersistList = Array( "proj_id","rtag_id","pv_id","rfile","add_type","dpv_id","pkg_id" )
119 ghuddy 57
'-------------------------------------------------------
58
%>