| Line 233... |
Line 233... |
| 233 |
' Cache the results
|
233 |
' Cache the results
|
| 234 |
' Largely to simplify a code refactor
|
234 |
' Largely to simplify a code refactor
|
| 235 |
' Data will be read early, but may need to be changed
|
235 |
' Data will be read early, but may need to be changed
|
| 236 |
'
|
236 |
'
|
| 237 |
Sub GetReleaseInfo ( NNrtag_id )
|
237 |
Sub GetReleaseInfo ( NNrtag_id )
|
| 238 |
Dim rsTemp, Query_String, item
|
238 |
Dim rsTemp, Query_String, item
|
| 239 |
If NNrtag_id = "" Then NNrtag_id = "-1"
|
239 |
If NNrtag_id = "" Then NNrtag_id = "-1"
|
| 240 |
|
240 |
|
| 241 |
' Do we already have the data
|
241 |
' Do we already have the data
|
| 242 |
If NOT (releaseInfoHash is Nothing) Then
|
242 |
If NOT (releaseInfoHash is Nothing) Then
|
| 243 |
If Cdbl(releaseInfoHash("rtag_id") ) = CDbl(NNrtag_id) Then
|
243 |
If Cdbl(releaseInfoHash("rtag_id") ) = CDbl(NNrtag_id) Then
|
| 244 |
Exit Sub
|
244 |
Exit Sub
|
| 245 |
End If
|
245 |
End If
|
| 246 |
End If
|
246 |
End If
|
| 247 |
|
247 |
|
| 248 |
' Create with case insensitive keys
|
248 |
' Create with case insensitive keys
|
| 249 |
Set releaseInfoHash = CreateObject("Scripting.Dictionary")
|
249 |
Set releaseInfoHash = CreateObject("Scripting.Dictionary")
|
| 250 |
releaseInfoHash.CompareMode = VBTextCompare
|
250 |
releaseInfoHash.CompareMode = VBTextCompare
|
| 251 |
|
251 |
|
| - |
|
252 |
' Handle not logged in
|
| - |
|
253 |
Dim UserId : UserId = -1
|
| - |
|
254 |
If objAccessControl.UserLogedIn Then UserId = objAccessControl.UserId
|
| - |
|
255 |
|
| 252 |
Query_String = "SELECT rt.RTAG_ID ,rt.rtag_name, proj.proj_id, proj.proj_name,rt.lxr, rt.official, NVL(lx.lxrserver, 'N') as lxrserver," &_
|
256 |
Query_String = "SELECT rt.RTAG_ID ,rt.rtag_name, proj.proj_id, proj.proj_name,rt.lxr, rt.official, NVL(lx.lxrserver, 'N') as lxrserver," &userCanDeleteStr & " as userCanDelete" &_
|
| 253 |
" CASE when (TRUNC(SYSDATE - rt.created_stamp) <= 20) AND rt.creator_id = "& objAccessControl.UserId & " THEN 1 ELSE 0 END as userCanDelete" &_
|
257 |
" CASE when (TRUNC(SYSDATE - rt.created_stamp) <= 20) AND rt.creator_id = "& UserId & " THEN 1 ELSE 0 END as userCanDelete" &_
|
| 254 |
" FROM Release_tags rt, projects proj, lxr_state lx" &_
|
258 |
" FROM Release_tags rt, projects proj, lxr_state lx" &_
|
| 255 |
" WHERE rt.RTAG_ID = lx.RTAG_ID(+)" &_
|
259 |
" WHERE rt.RTAG_ID = lx.RTAG_ID(+)" &_
|
| 256 |
" AND rt.proj_id = proj.proj_id" &_
|
260 |
" AND rt.proj_id = proj.proj_id" &_
|
| 257 |
" AND rt.RTAG_ID = " & NNrtag_id
|
261 |
" AND rt.RTAG_ID = " & NNrtag_id
|
| 258 |
|
262 |
|
| 259 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
263 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 260 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
264 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
| 261 |
For Each item In rsTemp.Fields
|
265 |
For Each item In rsTemp.Fields
|
| 262 |
'Response.Write("<br><pre> item:" & item.name & ":" & item & "</pre>")
|
266 |
'Response.Write("<br><pre> item:" & item.name & ":" & item & "</pre>")
|
| 263 |
releaseInfoHash.Add item.name, item.value
|
267 |
releaseInfoHash.Add item.name, item.value
|
| 264 |
Next
|
268 |
Next
|
| 265 |
End If
|
269 |
End If
|
| 266 |
|
270 |
|
| 267 |
rsTemp.Close
|
271 |
rsTemp.Close
|
| 268 |
Set rsTemp = nothing
|
272 |
Set rsTemp = nothing
|
| 269 |
End Sub
|
273 |
End Sub
|
| 270 |
|
274 |
|
| 271 |
'-----------------------------------------------------------------------------------------------------------------------------
|
275 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 272 |
Function Get_Devl_Environment
|
276 |
Function Get_Devl_Environment
|
| 273 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") <> "" Then
|
277 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") <> "" Then
|