Subversion Repositories DevTools

Rev

Rev 5245 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5245 Rev 5246
Line 215... Line 215...
215 
'   List of fields may be extended as required (could use *)
 215 
'   List of fields may be extended as required (could use *)
216 
Sub GetReleaseInfo ( NNrtag_id )
 216 
Sub GetReleaseInfo ( NNrtag_id )
217 
   Dim rsTemp, Query_String, item
 217 
   Dim rsTemp, Query_String, item
218 
   If NNrtag_id = "" Then NNrtag_id = "-1"
 218 
   If NNrtag_id = "" Then NNrtag_id = "-1"
219 
 
 219 
 
220 
   If Not IsEmpty(releaseInfoHash) Then
 - 
 
221 
        releaseInfoHash = Nothing
 - 
 
222 
   End If
 - 
 
223 
   Set releaseInfoHash = CreateObject("Scripting.Dictionary")
 220 
   Set releaseInfoHash = CreateObject("Scripting.Dictionary")
224 
 
 221 
 
225 
   Query_String = "SELECT rtag_id ,official, lxr FROM release_tags WHERE rtag_id = "& NNrtag_id
 222 
   Query_String = "SELECT rtag_id ,official, lxr FROM release_tags WHERE rtag_id = "& NNrtag_id
226 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 223 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
227 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 224 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then