| Line 27... |
Line 27... |
| 27 |
parRtag_id = QStrPar("rtag_id")
|
27 |
parRtag_id = QStrPar("rtag_id")
|
| 28 |
Set objAccessControl = New AccessControl
|
28 |
Set objAccessControl = New AccessControl
|
| 29 |
Set objPMod = New PersistanceModule
|
29 |
Set objPMod = New PersistanceModule
|
| 30 |
Set objEH = New ExceptionHandler
|
30 |
Set objEH = New ExceptionHandler
|
| 31 |
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID ) ' These parameters are used
|
31 |
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID ) ' These parameters are used
|
| 32 |
rmDebug = rmDebug & "Proj:" & DB_PROJ_ID & ",Rtag:" & DB_RTAG_ID & ",Pvid:" & DB_PV_ID
|
32 |
'-- rmDebug = rmDebug & "Proj:" & DB_PROJ_ID & ",Rtag:" & DB_RTAG_ID & ",Pvid:" & DB_PV_ID
|
| 33 |
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now ) ' Find number of minutes since some very old point in time
|
33 |
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now ) ' Find number of minutes since some very old point in time
|
| 34 |
bJqueryDataTables = FALSE
|
34 |
bJqueryDataTables = FALSE
|
| 35 |
bJqueryForms = FALSE
|
35 |
bJqueryForms = FALSE
|
| 36 |
' -- Constants ----------------------------------------
|
36 |
' -- Constants ----------------------------------------
|
| 37 |
Const enumPAR_PROJ_ID = 0
|
37 |
Const enumPAR_PROJ_ID = 0
|
| Line 43... |
Line 43... |
| 43 |
aPersistList = Array( "proj_id","rtag_id","pv_id","rfile","add_type","dpv_id" )
|
43 |
aPersistList = Array( "proj_id","rtag_id","pv_id","rfile","add_type","dpv_id" )
|
| 44 |
' -- Very Baisc Functions -----------------------------
|
44 |
' -- Very Baisc Functions -----------------------------
|
| 45 |
' Determine if a variable or Const exists and is not empty
|
45 |
' Determine if a variable or Const exists and is not empty
|
| 46 |
' Use to check if a vbscript variable has been declared and contains a non-empty value
|
46 |
' Use to check if a vbscript variable has been declared and contains a non-empty value
|
| 47 |
Function isDefined( var)
|
47 |
Function isDefined( var)
|
| 48 |
If (not IsEmpty(Eval(var))) AND var <> "" Then
|
48 |
If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
|
| 49 |
isDefined = TRUE
|
49 |
isDefined = TRUE
|
| 50 |
Else
|
50 |
Else
|
| 51 |
isDefined = FALSE
|
51 |
isDefined = FALSE
|
| 52 |
End If
|
52 |
End If
|
| 53 |
End Function
|
53 |
End Function
|