Subversion Repositories DevTools

Rev

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

Rev 7357 Rev 7380
Line 243... Line 243...
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 
 
 - 
 
- 
 
 248 
   ' Create with case insensitive keys
249 
   Set releaseInfoHash = CreateObject("Scripting.Dictionary")
 249 
   Set releaseInfoHash = CreateObject("Scripting.Dictionary")
- 
 
 250 
   releaseInfoHash.CompareMode = VBTextCompare
- 
 
 251 
 
250 
   Query_String = " SELECT rt.RTAG_ID ,rt.rtag_name, proj.proj_id, proj.proj_name,rt.lxr, rt.official," &_
 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," &_
251 
                  "   NVL(lx.lxrserver, 'N') as lxrserver" &_
 253 
                  "  CASE when (TRUNC(SYSDATE - rt.created_stamp) <= 20) AND rt.creator_id = "& objAccessControl.UserId & " THEN 1 ELSE 0 END as userCanDelete" &_
252 
                  " FROM Release_tags rt, projects proj, lxr_state lx"&_
 254 
                  "  FROM Release_tags rt, projects proj, lxr_state lx" &_
253 
                  " WHERE rt.RTAG_ID = lx.RTAG_ID(+)"&_
 255 
                  "  WHERE rt.RTAG_ID = lx.RTAG_ID(+)" &_
254 
                  " AND rt.proj_id = proj.proj_id" &_
 256 
                  "  AND rt.proj_id = proj.proj_id" &_
255 
                  " AND rt.RTAG_ID = " & NNrtag_id
 257 
                  "  AND rt.RTAG_ID = " & NNrtag_id
256 
 
 258 
 
257 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 259 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
258 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 260 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
259 
      For Each item In rsTemp.Fields
261 
      For Each item In rsTemp.Fields
260 
        'Response.Write("<br><pre> item:" & Lcase(item.name) & ":" & item & "</pre>")
 262 
        'Response.Write("<br><pre> item:" & item.name & ":" & item & "</pre>")
261 
        releaseInfoHash.Add  Lcase(item.name), item.value
 263 
        releaseInfoHash.Add  item.name, item.value
262 
      Next
 264 
      Next
263 
   End If
 265 
   End If
264 
 
 266 
 
265 
   rsTemp.Close
 267 
   rsTemp.Close
266 
   Set rsTemp = nothing
 268 
   Set rsTemp = nothing