Subversion Repositories DevTools

Rev

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

Rev 4256 Rev 4554
Line 53... Line 53...
53 
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
 53 
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
54 
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
 54 
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
55 
Set objSbomDetailsA = CreateObject("Scripting.Dictionary")
 55 
Set objSbomDetailsA = CreateObject("Scripting.Dictionary")
56 
Set objSbomDetailsB = CreateObject("Scripting.Dictionary")
 56 
Set objSbomDetailsB = CreateObject("Scripting.Dictionary")
57 
Set objIssueDetails = CreateObject("Scripting.Dictionary")
 57 
Set objIssueDetails = CreateObject("Scripting.Dictionary")
58 
Set cqIssues = Server.CreateObject("ADODB.Recordset")
 - 
 
59 
Set jiraIssues = CreateObject( "Scripting.Dictionary" )
 58 
Set jiraIssues = CreateObject( "Scripting.Dictionary" )
60 
Set rsBomPackages = Server.CreateObject("ADODB.Recordset")
 59 
Set rsBomPackages = Server.CreateObject("ADODB.Recordset")
61 
Set rsPkgDeps = Server.CreateObject("ADODB.Recordset")
 60 
Set rsPkgDeps = Server.CreateObject("ADODB.Recordset")
62 
'----------------------------------------------
 61 
'----------------------------------------------
63 
%>
 62 
%>
Line 163... Line 162...
163 
 
 162 
 
164 
      sqlStrTemp = GetQuery ("cq_issues.sql")
 163 
      sqlStrTemp = GetQuery ("cq_issues.sql")
165 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 164 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
166 
      sqlStrTemp = Replace( sqlStrTemp, "/*DEVIiss*/", DEVIiss)
 165 
      sqlStrTemp = Replace( sqlStrTemp, "/*DEVIiss*/", DEVIiss)
167 
 
 166 
 
168 
      If oRsCqIssTemp.State = 1 Then
 - 
 
169 
         oRsCqIssTemp.Close
 - 
 
170 
      End If
 - 
 
171 
 
 - 
 
172 
      On Error Resume Next
 167 
      On Error Resume Next
173 
      oRsCqIssTemp.ActiveConnection = CQ_conn
 - 
 
174 
      oRsCqIssTemp.Source = sqlStrTemp
 168 
      Set oRsCqIssTemp = OraDatabase.DbCreateDynaset( sqlStrTemp, cint(0))
175 
      oRsCqIssTemp.CursorType = 0
 - 
 
176 
      oRsCqIssTemp.CursorLocation = 2
 - 
 
177 
      oRsCqIssTemp.LockType = 3
 - 
 
178 
      oRsCqIssTemp.Open()
 - 
 
179 
 
 - 
 
180 
      GetIssues = Err.Number
 169 
      GetIssues = Err.Number
181 
   Else
 170 
   Else
182 
 
 171 
 
183 
    GetIssues = -1
 172 
    GetIssues = -1
184 
 
 173