Subversion Repositories DevTools

Rev

Rev 5846 | Rev 6577 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5846 Rev 5951
Line 28... Line 28...
28 
Dim bJqueryCommonLoaded                     ' Prevent multiple loads
 28 
Dim bJqueryCommonLoaded                     ' Prevent multiple loads
29 
' -- Variable Initialisation --------------------------
 29 
' -- Variable Initialisation --------------------------
30 
Set releaseInfoHash = Nothing
 30 
Set releaseInfoHash = Nothing
31 
rmDebug = ""
 31 
rmDebug = ""
32 
isPopupWindow = FALSE
 32 
isPopupWindow = FALSE
33 
parRtag_id = QStrPar("rtag_id")
 33 
parRtag_id = QStrPar("rtag_id") : If parRtag_id = "" Then parRtag_id = Empty
34 
Set objAccessControl = New AccessControl
 34 
Set objAccessControl = New AccessControl
35 
Set objPMod = New PersistanceModule
 35 
Set objPMod = New PersistanceModule
36 
Set objEH = New ExceptionHandler
 36 
Set objEH = New ExceptionHandler
37 
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID )	' These parameters are used
 37 
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID )	' These parameters are used
38 
'-- rmDebug = rmDebug &  "Proj:" &  DB_PROJ_ID  & ",Rtag:" &  DB_RTAG_ID & ",Pvid:" & DB_PV_ID
 38 
'-- rmDebug = rmDebug &  "Proj:" &  DB_PROJ_ID  & ",Rtag:" &  DB_RTAG_ID & ",Pvid:" & DB_PV_ID