Subversion Repositories DevTools

Rev

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

Rev 1283 Rev 3938
Line 32... Line 32...
32 
Dim objRelCollectorA, objRelCollectorB
 32 
Dim objRelCollectorA, objRelCollectorB
33 
Dim parSbomA, parSbomB
 33 
Dim parSbomA, parSbomB
34 
Dim retValCQIssues
 34 
Dim retValCQIssues
35 
Dim retValJIRAIssues
 35 
Dim retValJIRAIssues
36 
Dim topLevelId
 36 
Dim topLevelId
37 
Dim DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
 37 
Dim DEVIiss
38 
Dim pvIdList
 38 
Dim pvIdList
39 
Dim objIssueDetails
 39 
Dim objIssueDetails
40 
Dim cqIssues
 40 
Dim cqIssues
41 
Dim jiraIssues
 41 
Dim jiraIssues
42 
Dim rsBomPackages
 42 
Dim rsBomPackages
Line 146... Line 146...
146 
   Set oRsTemp = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id FROM CQ_ISSUES WHERE pv_id IN ("& sPvIdList &")", cint(0))
 146 
   Set oRsTemp = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id FROM CQ_ISSUES WHERE pv_id IN ("& sPvIdList &")", cint(0))
147 
 
 147 
 
148 
   If oRsTemp.RecordCount <> 0 Then
 148 
   If oRsTemp.RecordCount <> 0 Then
149 
 
 149 
 
150 
      DEVIiss = "-1"
 150 
      DEVIiss = "-1"
151 
      TDSEiss = "-1"
 - 
 
152 
      VT5DMiss = "-1"
 - 
 
153 
      VTSUPiss = "-1"
 - 
 
154 
 
 151 
 
155 
      While ((NOT oRsTemp.BOF) AND (NOT oRsTemp.EOF))
 152 
      While ((NOT oRsTemp.BOF) AND (NOT oRsTemp.EOF))
156 
 
 153 
 
157 
         If CInt(oRsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 154 
         If CInt(oRsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
158 
            DEVIiss = DEVIiss &","& oRsTemp("iss_id")
 155 
            DEVIiss = DEVIiss &","& oRsTemp("iss_id")
159 
         ElseIf CInt(oRsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 - 
 
160 
            TDSEiss = TDSEiss &","& oRsTemp("iss_id")
 - 
 
161 
         ElseIf CInt(oRsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
 - 
 
162 
            VT5DMiss = VT5DMiss &","& oRsTemp("iss_id")
 - 
 
163 
         ElseIf CInt(oRsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
 - 
 
164 
            VTSUPiss = VTSUPiss &","& oRsTemp("iss_id")
 - 
 
165 
         End If
 156 
         End If
166 
 
 157 
 
167 
         oRsTemp.MoveNext
 158 
         oRsTemp.MoveNext
168 
      WEnd
 159 
      WEnd
169 
 
 160 
 
170 
      sqlStrTemp = GetQuery ("cq_issues.sql")
 161 
      sqlStrTemp = GetQuery ("cq_issues.sql")
171 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 162 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
172 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 - 
 
173 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
 - 
 
174 
      sqlStrTemp = Replace( sqlStrTemp, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
 - 
 
175 
      sqlStrTemp = Replace( sqlStrTemp, "/*DEVIiss*/", DEVIiss)
 163 
      sqlStrTemp = Replace( sqlStrTemp, "/*DEVIiss*/", DEVIiss)
176 
      sqlStrTemp = Replace( sqlStrTemp, "/*TDSEiss*/", TDSEiss)
 - 
 
177 
      sqlStrTemp = Replace( sqlStrTemp, "/*VT5DMiss*/", VT5DMiss)
 - 
 
178 
      sqlStrTemp = Replace( sqlStrTemp, "/*VTSUPiss*/", VTSUPiss)
 - 
 
179 
 
 164 
 
180 
      If oRsCqIssTemp.State = 1 Then
 165 
      If oRsCqIssTemp.State = 1 Then
181 
         oRsCqIssTemp.Close
 166 
         oRsCqIssTemp.Close
182 
      End If
 167 
      End If
183 
 
 168 
 
Line 323... Line 308...
323 
   <head>
 308 
   <head>
324 
      <title>Deployment Manager - SBOM Issues Report</title>
 309 
      <title>Deployment Manager - SBOM Issues Report</title>
325 
      <meta http-equiv="Pragma" content="no-cache">
 310 
      <meta http-equiv="Pragma" content="no-cache">
326 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 311 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
327 
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 312 
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
- 
 
 313 
      <link rel="stylesheet" href="scripts/deployment_manager.css" type="text/css">
328 
      <script language="JavaScript" src="scripts/common.js"></script>
 314 
      <script language="JavaScript" src="scripts/common.js"></script>
329 
      <script language="JavaScript" src="scripts/remote_scripting.js"></script>
 315 
      <script language="JavaScript" src="scripts/remote_scripting.js"></script>
330 
      <script language="JavaScript" type="text/javascript">
 316 
      <script language="JavaScript" type="text/javascript">
331 
         <!--
 317 
         <!--
332 
 
 318 
 
Line 426... Line 412...
426 
         }
 412 
         }
427 
         //-->
 413 
         //-->
428 
      </script>
 414 
      </script>
429 
   </head>
 415 
   </head>
430 
   <body onresize="setLeftOffset('loader');">
 416 
   <body onresize="setLeftOffset('loader');">
- 
 
 417 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
- 
 
 418 
<!-- HEADER ++++++++++++++++ -->
- 
 
 419 
<!--#include file="_header.asp"-->
- 
 
 420 
<!-- +++++++++++++++++++++++ -->
- 
 
 421 
<!-- BODY ---->
431 
      <div align="center" class="report_header">
 422 
      <div align="center" class="report_header">
432 
 
 423 
 
433 
      <%=objSbomDetailsA("bom_full_version")%> Issues Report
 424 
      <%=objSbomDetailsA("bom_full_version")%> Issues Report
434 
 
 425 
 
435 
      </div>
 426 
      </div>
Line 777... Line 768...
777 
         Set rsPkgDeps = Nothing
 768 
         Set rsPkgDeps = Nothing
778 
         Set cqIssues = Nothing
 769 
         Set cqIssues = Nothing
779 
         Set jiraIssues = Nothing
 770 
         Set jiraIssues = Nothing
780 
 
 771 
 
781 
      End If%>
 772 
      End If%>
- 
 
 773 
<!-- FOOTER -->
- 
 
 774 
<!--#include file="_footer.asp"-->
782 
   </body>
 775 
   </body>
783 
</html>
 776 
</html>