| Line 251... |
Line 251... |
| 251 |
|
251 |
|
| 252 |
' Handle not logged in
|
252 |
' Handle not logged in
|
| 253 |
Dim UserId : UserId = -1
|
253 |
Dim UserId : UserId = -1
|
| 254 |
If objAccessControl.UserLogedIn Then UserId = objAccessControl.UserId
|
254 |
If objAccessControl.UserLogedIn Then UserId = objAccessControl.UserId
|
| 255 |
|
255 |
|
| 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" &_
|
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," &_
|
| 257 |
" CASE when (TRUNC(SYSDATE - rt.created_stamp) <= 20) AND rt.creator_id = "& 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" &_
|
| 258 |
" FROM Release_tags rt, projects proj, lxr_state lx" &_
|
258 |
" FROM Release_tags rt, projects proj, lxr_state lx" &_
|
| 259 |
" WHERE rt.RTAG_ID = lx.RTAG_ID(+)" &_
|
259 |
" WHERE rt.RTAG_ID = lx.RTAG_ID(+)" &_
|
| 260 |
" AND rt.proj_id = proj.proj_id" &_
|
260 |
" AND rt.proj_id = proj.proj_id" &_
|
| 261 |
" AND rt.RTAG_ID = " & NNrtag_id
|
261 |
" AND rt.RTAG_ID = " & NNrtag_id
|
| 262 |
|
262 |
|
| 263 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
263 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 264 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
264 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
| 265 |
For Each item In rsTemp.Fields
|
265 |
For Each item In rsTemp.Fields
|
| 266 |
'Response.Write("<br><pre> item:" & item.name & ":" & item & "</pre>")
|
266 |
'Response.Write("<br><pre> item:" & item.name & ":" & item & "</pre>")
|