Subversion Repositories DevTools

Rev

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

Rev 17 Rev 19
Line 129... Line 129...
129 
	Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
129 
	Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
130
130
131 
		If sqlstrA.RecordCount <> 0 Then
 131 
		If sqlstrA.RecordCount <> 0 Then
132 
			NewTextFile.WriteLine()
 132 
			NewTextFile.WriteLine()
133 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
 133 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
- 
 
 134 
			NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table width='100%' border='1' cellspacing='0' cellpadding='1'>")
- 
 
 135 
			NewTextFile.WriteLine("<tr>")
- 
 
 136 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Issue&nbsp;Id&nbsp;</font></td>")
- 
 
 137 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Summary</font></td>")
- 
 
 138 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Issue&nbsp;Type&nbsp;</font></td>")
- 
 
 139 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Priority</font></td>")
- 
 
 140 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Status</font></td>")
- 
 
 141 
			NewTextFile.WriteLine("</tr>")
- 
 
 142
134
143
135
144
136 
		For counterA=1 to sqlstrA.RecordCount
 145 
		For counterA=1 to sqlstrA.RecordCount
137 
			DEVIiss = "-1"
 146 
			DEVIiss = "-1"
138 
			TDSEiss = "-1"
 147 
			TDSEiss = "-1"
Line 153... Line 162...
153 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
 162 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
154 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
 163 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
155 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
164 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
156 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
165 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
157 
 
 166 
 
- 
 
 167 
			NewTextFile.WriteLine("<tr>")
- 
 
 168 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("iss_num")&"</font></td>")
- 
 
 169 
			NewTextFile.WriteLine("				   <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</font></td>")
- 
 
 170 
			NewTextFile.WriteLine("				  <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("issue_type")&"</font></td>")
- 
 
 171 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("priority")&"</font></td>")
- 
 
 172 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("Status")&"</font></td>")
- 
 
 173 
			NewTextFile.WriteLine("                     </tr>")
- 
 
 174
158 
			If rsCQ("iss_num") <> "" Then
 175 
			'If rsCQ("iss_num") <> "" Then
159 
  				NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
 176 
  			'	NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
160 
	    	End If
 177 
	    	'End If
161
178
162 
	     	If rsCQ("summary") <> "" Then
 179 
	     	'If rsCQ("summary") <> "" Then
163 
				NewTextFile.Write(rsCQ("summary")&" ")
180 
			'	NewTextFile.Write(rsCQ("summary")&" ")
164 
			End If
 181 
			'End If
165
182
166 
			If rsCQ("summary") <> "" Then
 183 
			'If rsCQ("summary") <> "" Then
167 
				NewTextFile.WriteLine("(Priority: "& rsCQ("priority") &")</blockquote></blockquote></blockquote>")
184 
			'	NewTextFile.WriteLine("(Priority: "& rsCQ("priority") &")</blockquote></blockquote></blockquote>")
168 
			End If
 185 
			'End If
169
186
170
187
171
188
172 
			sqlstrA.MoveNext
 189 
			sqlstrA.MoveNext
173 
		Next
 190 
		Next
- 
 
 191 
			NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote> 		")
174 
			sqlstrA.Close()
192 
			sqlstrA.Close()
175
193
176 
		End If
 194 
		End If
177
195
178 
 
 196 
 
Line 366... Line 384...
366 
End Sub
 384 
End Sub
367 
'--------------------------------------------------------------------------------------------------------------------------
 385 
'--------------------------------------------------------------------------------------------------------------------------
368 
Sub Comments(Pv_Id)
 386 
Sub Comments(Pv_Id)
369 
	Dim comments
 387 
	Dim comments
370 
	Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id , cint(0))
 388 
	Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id , cint(0))
371 
 
 - 
 
372 
	If comments("comments") <> "Rippled Build." Then
 389 
	If comments("comments") <> "Rippled Build." Then
373 
		NewTextFile.WriteLine("<blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">Version: "& comments("pkg_version")&"</font></blockquote></blockquote>")
 390 
		NewTextFile.WriteLine("<blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">Version: "& comments("pkg_version")&"</font></blockquote></blockquote>")
374 
		If comments("comments") <> "" Then
 391 
		If comments("comments") <> "" Then
375 
			NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")
 392 
			NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")
376 
			NewTextFile.WriteLine("<blockquote><blockquote><blockquote>"& TextToHTML(comments("comments")) &"</blockquote></blockquote></blockquote>")
 393 
			NewTextFile.WriteLine("<blockquote><blockquote><blockquote>"& TextToHTML(comments("comments")) &"</blockquote></blockquote></blockquote>")
Line 606... Line 623...
606 
'--------------------------------------------------------------------------------------------------------------------------
 623 
'--------------------------------------------------------------------------------------------------------------------------
607 
%>
 624 
%>
608 
<%
 625 
<%
609 
'------------ RUN BEFORE PAGE RENDER ----------
 626 
'------------ RUN BEFORE PAGE RENDER ----------
610 
If Request("btn") = "Exit" Then
 627 
If Request("btn") = "Exit" Then
611 
	Call OpenInWindow ( "default.asp" )
 628 
	Call OpenInWindow ( "reports.asp" )
612 
End If
 629 
End If
613 
 
 630 
 
614 
' Get release details
 631 
' Get release details
615 
 
 632 
 
616 
Call GetFormDetails ( parSBOMA, objRelCollectorA )
 633 
Call GetFormDetails ( parSBOMA, objRelCollectorA )
Line 957... Line 974...
957
974
958
975
959 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
 976 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
960 
			  <tr>
977 
			  <tr>
961 
                <td width="1%"></td>
 978 
                <td width="1%"></td>
962 
                <td width="100%" align="left" class="form_ttl">DIFF / MERGE SBOM</td>
 979 
                <td width="100%" align="left" class="form_ttl">DIFF SBOM</td>
963 
                <td width="1%"></td>
 980 
                <td width="1%"></td>
964 
              </tr>
 981 
              </tr>
965 
              <tr>
982 
              <tr>
966 
                <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 983 
                <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
967 
                <td background="images/lbox_bg_blue.gif" align="left" class="wform_ttl">&nbsp;
984 
                <td background="images/lbox_bg_blue.gif" align="left" class="wform_ttl">&nbsp;
Line 1207... Line 1224...
1207 
		If rsQry("change_type") = "A" AND rsQry("patch_b") = "Y" Then
 1224 
		If rsQry("change_type") = "A" AND rsQry("patch_b") = "Y" Then
1208 
			Dim rsQryPatch
 1225 
			Dim rsQryPatch
1209 
			OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id_b"),	ORAPARM_INPUT, ORATYPE_NUMBER
1226 
			OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id_b"),	ORAPARM_INPUT, ORATYPE_NUMBER
1210 
			Set rsQryPatch = OraDatabase.DbCreateDynaset( GetQuery("pd_patch.sql"), cint(0))
 1227 
			Set rsQryPatch = OraDatabase.DbCreateDynaset( GetQuery("pd_patch.sql"), cint(0))
1211 
			OraDatabase.Parameters.Remove "PV_ID"
 1228 
			OraDatabase.Parameters.Remove "PV_ID"
1212
1229 
			If NOT IsNull(rsQryPatch("pv_id")) Then
1213 
			NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
 1230 
				NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
1214 
			NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
 1231 
				NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
1215 
			NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
1232 
				NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
- 
 
 1233 
				Call Comments(rsQryPatch("pv_id"))
- 
 
 1234 
				Call GetFixedIssues(rsQryPatch("pv_id"))
- 
 
 1235 
			Else
- 
 
 1236 
				NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQry("pkg_name_b") &" "& rsQry("pkg_version_b") &"</a></SPAN>")
1216
1237 
				NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQry("pkg_name_b") &" "& rsQry("pkg_version_b") &"</a></SPAN>")
- 
 
 1238 
				NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
1217 
			Call Comments(rsQryPatch("pv_id"))
 1239 
				Call Comments(rsQry("pv_id_b"))
1218 
			Call GetFixedIssues(rsQryPatch("pv_id"))
 1240 
				Call GetFixedIssues(rsQry("pv_id_b"))
- 
 
 1241 
			End If
1219
1242
1220 
			NewTextFile.WriteLine("</SPAN>")
1243 
			NewTextFile.WriteLine("</SPAN>")
1221 
			rsQryPatch.Close
 1244 
			rsQryPatch.Close
1222 
			Set rsQryPatch = nothing
 1245 
			Set rsQryPatch = nothing
1223
1246