Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'|                                                   |
4 
'|		           RELEASE NOTES	     	 	 	 |
5 
'|                                                   |
6 
'=====================================================
7 
%>
8 
<%
9 
'------------ Variable Definition -------------
10 
Dim rsCQ
11 
Dim rsDepIss
12 
Dim SQLstr
13 
Dim fixedIssDict
14 
Dim notesIssDict
15 
Dim issArr()
16 
Dim depIssDict
17 
Dim sDocTitle
18 
Dim rsQry, rsTemp
19 
Dim iss_db_id, G1_template, G1_style, currG1
20 
Dim retVal
21 
Dim tempProjId
22 
Dim baseURL
23 
Dim rsProjId
24 
Dim rsPkgMetrics
25 
Dim rsCodeReviewURL
26 
'------------ Constants Declaration -----------
27 
Const enumLoc_iss_db = 0
28 
Const enumLoc_iss_id = 1
29 
Const enumLoc_iss_num = 2
30 
Const enumLoc_summary = 3
31 
Const enumLoc_status = 4
32 
Const enumLoc_priority = 5
33 
Const enumLoc_issue_type = 6
34 
'Const enumLoc_Fixed_Issue = 1
35 
'Const enumLoc_NotFixed_Issue = 0
36 
'------------ Variable Init -------------------
37 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
38 
Set fixedIssDict = CreateObject("Scripting.Dictionary")
39 
Set notesIssDict = CreateObject("Scripting.Dictionary")
40 
Set depIssDict = CreateObject("Scripting.Dictionary")
41 
'----------------------------------------------
42 
%>
43 
<%
44 
'----------------------------------------------------------------------------------------------------------------------------------------
45 
Function asDepIss ( SSiss_db_id, SScolumn )
46 
	If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
47 
 
48 
	asDepIss = issArr ( SScolumn, CInt( depIssDict.Item (SSiss_db_id) ) )
49 
End Function
50 
'----------------------------------------------------------------------------------------------------------------------------------------
51 
Function FixedIssues ( parPv_id )
52 
	Dim sqlstr, rsTemp
53 
	sqlstr = "SELECT pv_id FROM cq_issues WHERE pv_id = "& parPv_id &" AND iss_state = "& enumISSUES_STATE_FIXED
54 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
55 
 
56 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
57 
		FixedIssues = TRUE
58 
	Else
59 
		FixedIssues = FALSE
60 
	End If
61 
 
62 
	rsTemp.Close()
63 
	Set rsTemp = nothing
64 
End Function
65 
'----------------------------------------------------------------------------------------------------------------------------------------
66 
Function SQL_Package_Information ( nPv_id )
67 
	SQL_Package_Information = _
68 
	" SELECT *"&_
69 
	"   FROM PACKAGE_VERSIONS pv"&_
70 
	"  WHERE pv.pv_id = "& nPv_id
71 
End Function
72 
'----------------------------------------------------------------------------------------------------------------------------------------
73 
Function SQL_Dependency_Issues ( NNpv_id )
74 
	SQL_Dependency_Issues = _
75 
	" SELECT pkg.pkg_name, pv.pkg_version, pv.pv_id, cqi.iss_db, cqi.iss_id, cqi.iss_state, pv.comments AS reasons"&_
76 
	"	  FROM cq_issues cqi,"&_
77 
	"	       package_dependencies dep,"&_
78 
	"	       packages pkg,"&_
79 
	"	       package_versions pv"&_
80 
	"	 WHERE dep.pv_id = "& NNpv_id &_
81 
	"	   AND dep.dpv_id = cqi.pv_id(+)"&_
82 
	"	   AND dep.dpv_id = pv.pv_id(+)"&_
83 
	"	   AND pv.pkg_id = pkg.pkg_id"&_
84 
	"	ORDER BY UPPER(pkg.pkg_name) ASC, cqi.iss_state DESC"
85 
End Function
86 
'----------------------------------------------------------------------------------------------------------------------------------------
87 
Function SQL_Additional_Notes ( nPv_id )
88 
	SQL_Additional_Notes = ReadFile( rootPath & "queries\additional_notes.sql" )
89 
	SQL_Additional_Notes = Replace( SQL_Additional_Notes, ":PV_ID", nPv_id )
90 
End Function
91 
'----------------------------------------------------------------------------------------------------------------------------------------
92 
Function SQL_Unit_Tests ( nPv_id )
93 
	SQL_Unit_Tests = ReadFile( rootPath & "queries\unit_tests.sql" )
94 
	SQL_Unit_Tests = Replace( SQL_Unit_Tests, ":PV_ID", nPv_id )
95 
End Function
96 
'----------------------------------------------------------------------------------------------------------------------------------------
97 
Sub Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
98 
	Dim rsTemp, sqlstr, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
99 
 
100 
	If IsObject(DDfixedIss) Then
101 
		' Find this package issues
102 
		sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = "& nIssState
103 
	Else
104 
		' Find dependency issues
105 
		sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE  pv_id IN ( "&_
106 
				 " SELECT dpv_id FROM package_dependencies WHERE pv_id = "& NNpv_id &_
107 
		         " )"
108 
	End If
109 
 
110 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
111 
 
112 
	DEVIiss = "-1"
113 
	TDSEiss  = "-1"
114 
	VT5DMiss = "-1"
115 
	VTSUPiss = "-1"
116 
 
117 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
118 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
119 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
120 
 
121 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
122 
			TDSEiss = TDSEiss &","& rsTemp("iss_id")
123 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
124 
			VT5DMiss = VT5DMiss &","& rsTemp("iss_id")
125 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
126 
			VTSUPiss = VTSUPiss &","& rsTemp("iss_id")
127 
 
128 
		End If
129 
 
130 
		If IsObject(DDfixedIss) Then
131 
			' Store only Fixed Issues
132 
			If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""
133 
		End If
134 
 
135 
		If IsObject(DDnotesIssDict) Then
136 
			' Store Notes
137 
			If Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "")Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))
138 
		End If
139 
 
140 
		rsTemp.MoveNext
141 
	WEnd
142 
 
143 
	' Construct SQL statement for CQ database
144 
	If Len(DEVIiss) <> 1 OR Len(TDSEiss) <> 1 Then
145 
		SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
146 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
147 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
148 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
149 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
150 
		SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
151 
		SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
152 
		SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
153 
		SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
154 
	End If
155 
 
156 
	rsTemp.Close()
157 
	Set rsTemp = nothing
158 
End Sub
159 
'----------------------------------------------------------------------------------------------------------------------------------------
160 
Sub Get_Products_Affected ( NNpv_id, NNrtag_id, rsTemp )
161 
	OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
162 
	OraDatabase.Parameters.Add "PV_ID",  NNpv_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
163 
 
164 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsAffectedByPackageChanges.sql"), cint(0) )
165 
 
166 
	OraDatabase.Parameters.Remove "RTAG_ID"
167 
	OraDatabase.Parameters.Remove "PV_ID"
168 
End Sub
169 
'----------------------------------------------------------------------------------------------------------------------------------------
170 
Sub Get_JIRA_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
171 
	Dim rsTemp, sqlstr, JIRAIss
172 
 
173 
	JIRAIss = "'-1'"
174 
		sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id="& NNpv_id
175 
 
176 
 
177 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
178 
 
179 
 
180 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
181 
				JIRAIss = JIRAIss &",'"& rsTemp("iss_key")&"'"
182 
		rsTemp.MoveNext
183 
	WEnd
184 
	'Response.Write(rsTemp.RecordCount)
185 
 
186 
	' Construct SQL statement for CQ database
187 
 
188 
	If Len(JIRAIss) <> 1 Then
189 
		SSsql = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
190 
				" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
191 
				" WHERE I.pkey IN ("& JIRAIss &") "&_
192 
				" AND I.issuestatus = ISS.ID "&_
193 
				" AND IT.ID = I.issuetype "&_
194 
				" AND PR.ID = I.PRIORITY "
195 
 
196 
	End If
197 
	'	SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
198 
	'	SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
199 
	'	SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
200 
	'	SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
201 
	'	SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
202 
	'	SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
203 
 
204 
	'Response.Write(SSsql)
205 
 
206 
 
207 
	rsTemp.Close()
208 
	Set rsTemp = nothing
209 
End Sub
210 
'----------------------------------------------------------------------------------------------------------------------------------------
211 
Sub LastPvId (PvId)
212 
	Dim sqlstr
213 
 
214 
	sqlstr = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId &_
215 
			 " UNION SELECT * FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID= "& PvId
216 
 
217 
	Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
218 
 
219 
End Sub
220 
'----------------------------------------------------------------------------------------------------------------------------------------
221 
Function  Get_JIRA_Issues ( SSsql, OOrsCQ )
222 
	If OOrsCQ.State = 1 Then
223 
		OOrsCQ.Close()
224 
	End If
225 
 
226 
 
227 
 
228 
	On Error Resume Next
229 
	OOrsCQ.ActiveConnection = JIRA_conn
230 
	OOrsCQ.Source = SSsql
231 
	OOrsCQ.CursorType = 0
232 
	OOrsCQ.CursorLocation = 3
233 
	OOrsCQ.LockType = 3
234 
	OOrsCQ.Open()
235 
 
236 
 
237 
	Get_JIRA_Issues = Err.Number
238 
 
239 
End Function
240 
'----------------------------------------------------------------------------------------------------------------------------------------
241 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
242 
	If OOrsCQ.State = 1 Then
243 
		OOrsCQ.Close()
244 
	End If
245 
 
246 
	On Error Resume Next
247 
	OOrsCQ.ActiveConnection = CQ_conn
248 
	OOrsCQ.Source = SSsql
249 
	OOrsCQ.CursorType = 0
250 
	OOrsCQ.CursorLocation = 2
251 
	OOrsCQ.LockType = 3
252 
	OOrsCQ.Open()
253 
 
254 
	Get_CQ_Issues = Err.Number
255 
 
256 
End Function
257 
'----------------------------------------------------------------------------------------------------------------------------------------
258 
Function Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )
259 
	Dim recCnt
260 
	If OOrsCQ.State = 1 Then
261 
		OOrsCQ.Close()
262 
	End If
263 
 
264 
	OOrsCQ.ActiveConnection = CQ_conn
265 
	OOrsCQ.Source = SSsql
266 
	OOrsCQ.CursorType = 0
267 
	OOrsCQ.CursorLocation = 2
268 
	OOrsCQ.LockType = 3
269 
 
270 
	On Error Resume Next
271 
	OOrsCQ.Open()
272 
 
273 
	' Exit with error if error occurs
274 
	Get_Dependency_CQ_Issues = Err.Number
275 
	If Err.Number <> 0 Then Exit Function
276 
 
277 
 
278 
	recCnt = 1
279 
 
280 
	While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))
281 
		ReDim Preserve AAiss( 6, recCnt )
282 
		'If NOT DDdepIss.Exists Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")) Then
283 
			DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)
284 
		'End If
285 
		AAiss( enumLoc_iss_db, recCnt ) 	= OOrsCQ("iss_db")
286 
		AAiss( enumLoc_iss_id, recCnt ) 	= OOrsCQ("iss_id")
287 
		AAiss( enumLoc_iss_num, recCnt )	= OOrsCQ("iss_num")
288 
		AAiss( enumLoc_summary, recCnt )	= OOrsCQ("summary")
289 
		AAiss( enumLoc_status, recCnt ) 	= OOrsCQ("status")
290 
		AAiss( enumLoc_priority, recCnt ) 	= OOrsCQ("priority")
291 
		AAiss( enumLoc_issue_type, recCnt ) = OOrsCQ("issue_type")
292 
 
293 
		recCnt = recCnt + 1
294 
		OOrsCQ.MoveNext
295 
	WEnd
296 
 
297 
	OOrsCQ.Close()
298 
End Function
299 
'----------------------------------------------------------------------------------------------------------------------------------------
300 
Function FormatPath ( SSpath )
301 
 
302 
	If (SSpath = "") Then
303 
		FormatPath = ""
304 
		Exit Function
305 
	End If
306 
 
307 
	If (InStr(1, LCase(SSpath), "http") = 1) OR (InStr(1, LCase(SSpath), "www") = 1) Then
308 
		' Source path is URL
309 
		FormatPath = "<a href='"& SSpath &"' class='txt_linked'>"& SSpath &"</a>"
310 
	Else
311 
		FormatPath = SSpath
312 
	End If
313 
 
314 
End Function
315 
'----------------------------------------------------------------------------------------------------------------------------------------
316 
Sub Group_By ( rsG, styleG, currG )
317 
	If rsG = currG Then Exit Sub
318 
	Response.write styleG
319 
	'currG = rsG
320 
End Sub
321 
'----------------------------------------------------------------------------------------------------------------------------------------
322 
Sub CheckUnitTestsState ( nPv_id, outMSG, outMSG_ID, outNote, outTestsFound )
323 
	Dim sqlstr, rsTemp
324 
	sqlstr = ReadFile( rootPath & "queries\unit_test_entries_check.sql" )
325 
	sqlstr = Replace( sqlstr, ":PV_ID", nPv_id)
326 
	sqlstr = Replace( sqlstr, ":enumTEST_TYPE_NOT_DONE", enumTEST_TYPE_NOT_DONE)
327 
 
328 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
329 
 
330 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
331 
		outMSG = rsTemp("msg")
332 
		outMSG_ID = CInt(rsTemp("msg_id"))
333 
		outNote = rsTemp("test_summary")
334 
		outTestsFound = FALSE
335 
 
336 
		If IsNull(rsTemp("msg")) Then outTestsFound = TRUE
337 
	End If
338 
 
339 
	rsTemp.Close()
340 
	Set rsTemp = nothing
341 
End Sub
342 
'----------------------------------------------------------------------------------------------------------------------------------------
343 
Function FormatAccepted ( sAccepted, nTest_id )
344 
	Dim tempSTR
345 
	If IsNull(nTest_id) Then Exit Function
346 
 
347 
	tempSTR = ""
348 
 
349 
	If pageIsEditable Then
350 
		tempSTR = "<select name='acc"& nTest_id &"' class='form_item'>"
351 
	Else
352 
		tempSTR = "<select name='acc"& nTest_id &"' class='form_item' disabled>"
353 
	End If
354 
 
355 
	If sAccepted = enumUNIT_TEST_ACCEPTED Then
356 
		tempSTR = tempSTR  &"<option></option>"&_
357 
							"<option value='"& enumUNIT_TEST_ACCEPTED &"' SELECTED>Yes</option>"&_
358 
							"<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
359 
 
360 
	ElseIf sAccepted = enumUNIT_TEST_NOTACCEPTED Then
361 
		tempSTR = tempSTR  &"<option></option>"&_
362 
							"<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
363 
							"<option value='"& enumUNIT_TEST_NOTACCEPTED &"' SELECTED>No</option>"
364 
 
365 
	Else
366 
		tempSTR = tempSTR  &"<option SELECTED></option>"&_
367 
							"<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
368 
							"<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
369 
 
370 
	End If
371 
 
372 
	tempSTR = tempSTR & "</select>"
373 
 
374 
	FormatAccepted = tempSTR
375 
 
376 
End Function
377 
'----------------------------------------------------------------------------------------------------------------------------------------
378 
Function SQL_CodeReview ( nPv_id )
379 
	SQL_CodeReview = _
380 
	"   SELECT cr.date_of_review, cr.time_spent, cr.review_reason, cr.rteam_domain_expert,"&_
381 
	"	       cr.rteam_language_expert, cr.rteam_peer_developer, cr.rteam_author,"&_
382 
	"	       cr.files_reviewed, cr.review_results, cr.issues_raised,"&_
383 
	"	       cr.review_comments, cr.fnc_s_meets_functionality,"&_
384 
	"	       cr.fnc_c_meets_functionality"&_
385 
	"	  FROM code_reviews cr"&_
386 
	"	 WHERE cr.pv_id = "& nPv_id
387 
End Function
388 
'----------------------------------------------------------------------------------------------------------------------------------------
389 
Function SQL_Build_Env ( nPv_id )
390 
	SQL_Build_Env = _
391 
	" SELECT pv.*, bm.BM_ID,"&_
392 
	"		   bm.BM_NAME,"&_
393 
	"		   pkgbinfo.BSA_ID"&_
394 
	"	  FROM PACKAGE_BUILD_INFO pkgbinfo,"&_
395 
	"	  	   BUILD_MACHINES bm,"&_
396 
	"	  	   PACKAGE_VERSIONS pv"&_
397 
	"	 WHERE pkgbinfo.BM_ID = bm.BM_ID"&_
398 
	"	 AND pv.PV_ID = pkgbinfo.PV_ID"&_
399 
	"	   AND pkgbinfo.PV_ID = "& nPv_id  &_
400 
	"	ORDER BY UPPER(bm.BM_NAME) "
401 
End Function
402 
'----------------------------------------------------------------------------------------------------------------------------------------
403 
Function DecodeOverallResult ( ByVal cCheck )
404 
	If cCheck = "" OR IsNull(cCheck) Then cCheck = 0
405 
 
406 
	Select Case CInt( cCheck )
407 
		Case enumCODE_REVIEW_ACCEPTED
408 
			DecodeOverallResult = "Accepted"
409 
		Case enumCODE_REVIEW_MINOR_UPDATES
410 
			DecodeOverallResult = "Minor updates required"
411 
		Case enumCODE_REVIEW_MAJOR_REWORK
412 
			DecodeOverallResult = "Major rework required"
413 
		Case Else
414 
			DecodeOverallResult = ""
415 
	End Select
416 
 
417 
End Function
418 
'----------------------------------------------------------------------------------------------------------------------------------------
419 
Function GetBuildType ( nBuildType )
420 
 
421 
	If (NOT IsNull(nBuildType)) OR (NOT nBuildType = "") Then
422 
 
423 
		If ( CInt(nBuildType) = enumDB_BUILD_TYPE_NONE ) Then
424 
			GetBuildType = "Build type not specified!"
425 
		Else
426 
			GetBuildType = GetBuildTypeString( nBuildType )
427 
		End If
428 
 
429 
	Else
430 
		GetBuildType = GetBuildTypeString( nBuildType )
431 
 
432 
	End If
433 
 
434 
	'' Wrap around brackets
435 
	GetBuildType = "("& GetBuildType &")"
436 
 
437 
End Function
438 
'----------------------------------------------------------------------------------------------------------------------------------------
439 
Sub GetPackageMetrics (NNpv_id, rsTemp)
440 
 
441 
	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
442 
 
443 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetrics.sql"), cint(0))
444 
 
445 
	OraDatabase.Parameters.Remove "PV_ID"
446 
 
447 
End Sub
448 
'----------------------------------------------------------------------------------------------------------------------------------------
449 
Sub GetCodeReviewURLs (NNpv_id, rsTemp)
450 
 
451 
	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
452 
 
453 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CodeReviewURLs.sql"), cint(0))
454 
 
455 
	OraDatabase.Parameters.Remove "PV_ID"
456 
 
457 
End Sub
458 
'----------------------------------------------------------------------------------------------------------------------------------------
459 
%>
460 
<%
461 
'------------------ MAIN LINE --------------------
462 
'-------------------------------------------------
463 
%>
464 
<!-- PACKAGE INFORMATION --------------------------------------------------------------------------------------------------------------->
465 
					<a name="PACKAGE_INFORMATION"></a>
466 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
467 
					  <tr>
468 
                       	<td class="body_colb"><img src="images/s_info.gif" width="22" height="22" hspace="4" border="0" align="absmiddle">Package Information</td>
469 
						<td align="right" valign="bottom"><%If pageIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','PackageInfo','resizable=yes,width=650,height=690')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td>
470 
					  </tr>
471 
					</table>
472 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
473 
					  <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))%>
474 
					  <tr>
475 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Deployable:</b></td>
476 
		                <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%></td>
477 
		              </tr>
478 
		              <tr>
479 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Label:</b></td>
480 
		                <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("pkg_label") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%><%End If%></td>
481 
		              </tr>
482 
		              <tr>
483 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
484 
		                <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("src_path") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%><%End If%></td>
485 
		              </tr>
486 
					  <tr>
487 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Short Description:</b></td>
488 
		                <td witdh="100%" background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("pv_description") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%><%End If%></td>
489 
		              </tr>
490 
		              <tr>
491 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Package Overview:</b> </td>
492 
		                <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("pv_overview") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_overview") ) )%><%End If%></td>
493 
		              </tr>
494 
		              <tr>
495 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Build Standard:</b><%If pkgInfoHash.Item ("dlocked") <> "A" AND pkgInfoHash.Item ("dlocked") <> "Y" AND criticalSectionIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_build_standard.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','BuildStandard','resizable=yes,width=400,height=300')" class="txt_linked"><img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
496 
		                  <%Else%><img src="images/i_edit_disable.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
497 
		                  <%End If%>
498 
		                </td>
499 
		            <%
500 
					If pkgInfoHash.Item ("bs_id") <> "" Then
501 
						If pkgInfoHash.Item ("bs_id") = "1" Then
502 
							Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>JATS<br></td>"
503 
 
504 
						ElseIf pkgInfoHash.Item ("bs_id") = "2" Then
505 
							Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>ANT<br></td>"
506 
 
507 
						ElseIf pkgInfoHash.Item ("bs_id") = "3" Then
508 
							Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>NONE<br></td>"
509 
 
510 
						End If
511 
					Else
512 
						Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'><span class='err_alert'>Required!</span><br></td>"
513 
					End If
514 
					%>
515 
 
516 
					</td>
517 
		              </tr>
518 
					  <tr>
519 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Build Environment:</b> </td>
520 
						<%
521 
						'--- Get Build Env Details
522 
 
523 
						Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
524 
						%>
525 
 
526 
						<%If rsTemp.RecordCount = 0 Then%>
527 
							<%If rsQry("is_build_env_required") = enumDB_NO Then%>
528 
								<td background="images/bg_form_lightgray.gif" class="sublbox_txt">Not Required.
529 
							<%Else%>
530 
								<td background="images/bg_form_lightgray.gif" class="sublbox_txt"><span class='err_alert'>Required!</span>
531 
							<%End If%>
532 
						<%Else%>
533 
							<td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If (IsNull( rsQry("is_build_env_required") ) AND (rsQry("comments") <> "Rippled Build.")) Then%><span class='err_alert'>Required!</span><%ElseIf rsQry("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
534 
						<%End If%>
535 
						<%If rsTemp.RecordCount > 0 Then%>
536 
                        <table width="40%"  border="0" cellspacing="3" cellpadding="2">
537 
						  <%
538 
						  currG1 = 0
539 
						  While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
540 
						  	'retVal = Lookup_Document ( rsQry("doc_num"), sDocTitle, NULL, NULL, NULL  )
541 
						  %>
542 
						  <%If currG1 <> CInt(rsTemp("bm_id")) Then%>
543 
                          <tr>
544 
                            <td colspan="2" nowrap class="sublbox_txt" background="images/bg_form_lightbluedark.gif"><%=rsTemp("bm_name")%>&nbsp;<%=GetBuildType( rsTemp("bsa_id") )%></td>
545 
                          </tr>
546 
						  <%
547 
						  	currG1 = CInt(rsTemp("bm_id"))
548 
						  End If
549 
						  rsTemp.MoveNext
550 
						  WEnd
551 
						  %>
552 
						  <tr>
553 
                            <td width="5%"></td>
554 
                            <td width="95%"></td>
555 
                          </tr>
556 
                        </table>
557 
						<%End If%>
558 
					   </td>
559 
					  </tr>
560 
 
561 
					  <tr>
562 
					  <%
563 
					  ' Previous Label
564 
					  Dim rsQry2, rsQry3
565 
					  Set rsQry2 = OraDatabase.DbCreateDynaset( "SELECT * from package_versions where pv_id ="&parPv_id , cint(0))
566 
					  Set rsQry3 = OraDatabase.DbCreateDynaset( "SELECT pkg_label from package_versions where pv_id ="&rsQry2("last_pv_id") , cint(0))
567 
					  %>
568 
					    <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Previous Label:</strong><%=Quick_Help ( "PreviousLabel" )%></td>
569 
					    <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
570 
					      <%=NewLine_To_BR ( To_HTML( rsQry3("pkg_label") ) )%></td>
571 
				      </tr>
572 
 
573 
					  <%
574 
					  ' Codestriker and Beyond Compare differencing commands
575 
					  Dim oldLabel
576 
					  oldLabel = getOldLabel(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
577 
					  %>
578 
					  <tr>
579 
					    <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Previous Significant Label:</strong><%=Quick_Help ( "PreviousSignificantLabel" )%></td>
580 
					    <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
581 
					    <%=NewLine_To_BR ( To_HTML( oldLabel ) )%></td>
582 
				      </tr>
583 
					  <tr>
584 
					    <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Codestriker command:</strong><%=Quick_Help ( "Codestriker" )%></td>
585 
					    <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
586 
					    <%=NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%></td>
587 
				      </tr>
588 
					  <tr>
589 
					    <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%></td>
590 
					    <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
591 
					    <%=NewLine_To_BR ( To_HTML( BeyondCompare_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%></td>
592 
				      </tr>
593 
 
594 
					  <%If pkgInfoHash.Item("is_deployable") = "Y" Then
595 
						OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
596 
						Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DeploymentManagerReference.sql"), cint(0))
597 
							If rsTemp.RecordCount = 0 Then%>
598 
							<tr>
599 
								<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>SBOM Information:</b></td>
600 
								<%If pkgInfoHash.Item("product_state") = 3 Then%>
601 
									<td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Deployment!</b></td>
602 
								<%ElseIf pkgInfoHash.Item("product_state") = 2 Then%>
603 
									<td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Testing!</b></td>
604 
								<%ElseIf pkgInfoHash.Item("product_state") = 1 Then%>
605 
									<td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Integration!</b></td>
606 
								<%ElseIf pkgInfoHash.Item("product_state") = 5 Then%>
607 
									<td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Integration and Deployment!</b></td>
608 
								<%ElseIf IsNull(pkgInfoHash.Item("product_state")) Then%>
609 
									<td background="images/bg_form_lightgray.gif" class="err_alert"><b>Information Unavailable!</b></td>
610 
								<%End If%>
611 
 
612 
							</tr>
613 
						<%Else%>
614 
							<tr>
615 
								<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>SBOM Added/Updated:</b></td>
616 
								<td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%=rsTemp("branch_name")%> - <%=rsTemp("bom_name")%><%=VBNewLine%><%=rsTemp("version")%></td>
617 
							</tr>
618 
 
619 
						<%End If
620 
						rsTemp.Close()
621 
						Set rsTemp = Nothing
622 
						OraDatabase.Parameters.Remove "PV_ID"
623 
 
624 
						End If
625 
						%>
626 
					  </tr>
627 
					</table>
628 
					<br>
629 
<!-- PACKAGE METRICS -------------------------------------------------------------------------------------------------------------------->
630 
<%If Request("rtag_id") <> "" Then%>
631 
				<%
632 
				Call GetPackageMetrics( parPv_id, rsPkgMetrics )
633 
				%>
634 
				<fieldset class="fset"><a href="javascript:;" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')" class="lbl_link">
635 
				<legend class="body_colb"><img src="images/i_metrics.gif" width="20" height="24" hspace="4" border="0" align="absmiddle" alt="Click to display Package Metrics">Package Metrics...</legend></a>
636 
				<div name="pkg_metrics_filler" id="pkg_metrics_filler" style="display:block;" class="div_filler"><a href="javascript:;" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')" class="txt_linked">Show...</a></div>
637 
				<div name="divPkgMetrics" id="divPkgMetrics" style="display:none;">
638 
				<a name="PACKAGE_METRICS"></a>
639 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
640 
						<tr>
641 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" width="20%"><b>Autobuilt:</b></td>
642 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%If rsPkgMetrics("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%></td>
643 
						</tr>
644 
						<tr>
645 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Unit Tested:</b></td>
646 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%If rsPkgMetrics("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
647 
						</tr>
648 
						<tr>
649 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Autotested:</b></td>
650 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%If rsPkgMetrics("autotested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
651 
						</tr>
652 
						<%If NOT IsNull(rsPkgMetrics("code_lines")) Then%>
653 
						<tr>
654 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Code Lines:</b></td>
655 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("code_lines")%></td>
656 
						</tr>
657 
						<%End If%>
658 
						<%If NOT IsNull(rsPkgMetrics("comment_lines")) Then%>
659 
						<tr>
660 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Comment Lines:</b></td>
661 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("comment_lines")%></td>
662 
						</tr>
663 
						<%End If%>
664 
						<%If NOT IsNull(rsPkgMetrics("blank_lines")) Then%>
665 
						<tr>
666 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Blank Lines:</b></td>
667 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("blank_lines")%></td>
668 
						</tr>
669 
						<%End If%>
670 
						<%If NOT IsNull(rsPkgMetrics("branches")) Then%>
671 
						<tr>
672 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Number of Branches:</b></td>
673 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("branches")%></td>
674 
						</tr>
675 
						<%End If%>
676 
						<%If NOT IsNull(rsPkgMetrics("branch_list")) Then%>
677 
						<tr>
678 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Branch List:</b></td>
679 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("branch_list")%></td>
680 
						</tr>
681 
						<%End If%>
682 
						<%If NOT IsNull(rsPkgMetrics("code_files")) Then%>
683 
						<tr>
684 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Code Files:</b></td>
685 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("code_files")%></td>
686 
						</tr>
687 
						<%End If%>
688 
						<%If NOT IsNull(rsPkgMetrics("ignored_files")) Then%>
689 
						<tr>
690 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Ignored Files:</b></td>
691 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("ignored_files")%></td>
692 
						</tr>
693 
						<%End If%>
694 
						<%If NOT IsNull(rsPkgMetrics("makefiles")) Then%>
695 
						<tr>
696 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Makefiles:</b></td>
697 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("makefiles")%></td>
698 
						</tr>
699 
						<%End If%>
700 
						<%If NOT IsNull(rsPkgMetrics("total_files")) Then%>
701 
						<tr>
702 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Total Files:</b></td>
703 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("total_files")%></td>
704 
						</tr>
705 
						<%End If%>
706 
						<%If NOT IsNull(rsPkgMetrics("directories")) Then%>
707 
						<tr>
708 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Number of Directories:</b></td>
709 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("directories")%></td>
710 
						</tr>
711 
						<%End If%>
712 
						<%If NOT IsNull(rsPkgMetrics("directory_depth")) Then%>
713 
						<tr>
714 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Directory Depth:</b></td>
715 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("directory_depth")%></td>
716 
						</tr>
717 
						<%End If%>
718 
						<%If NOT IsNull(rsPkgMetrics("created_stamp")) Then%>
719 
						<tr>
720 
							<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Metrics Collected:</b></td>
721 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("created_stamp")%></td>
722 
						</tr>
723 
						<%End If%>
724 
					</table>
725 
				</div>
726 
				</fieldset>
727 
				<br>
728 
				<%
729 
				rsPkgMetrics.Close()
730 
				Set rsPkgMetrics = nothing
731 
				%>
732 
 
733 
<%End If%>
734 
<!-- PRODUCTS AFFECTED BY CHANGE -------------------------------------------------------------------------------------------------------->
735 
<%
736 
If Request("rtag_id") <> "" Then
737 
	Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID ="& Request("rtag_id") &"", cint(0))
738 
	tempProjId = rsProjId("proj_id")
739 
	rsProjId.Close()
740 
	Set rsProjId = nothing
741 
 
742 
	If tempProjId = 142 Then
743 
	Call Get_Products_Affected( parPv_id, Request("rtag_id"), rsTemp )
744 
	If rsTemp.RecordCount > 0 Then%>
745 
		<fieldset class="fset"><legend class="body_colb"><img src="images/s_caution.gif" width="24" height="24" border="0" hspace="4" align="absmiddle">Products Affected By Change In This Package</legend>
746 
					<p class="body_colb"><a name="PRODUCTS_AFFECTED"></a></p>
747 
          <table width="100%" border="0" cellspacing="1" cellpadding="4">
748 
            <tr>
749 
							<td background="images/bg_form_lightbluedark.gif" width="1%" class="form_field">&nbsp;</td>
750 
              <td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Name</td>
751 
							<td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Version</td>
752 
            </tr>
753 
					  <%If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then%>
754 
							<%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
755 
								<tr>
756 
									<td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
757 
									<td nowrap background="images/bg_form_lightgray.gif" class="form_item">
758 
										<a href="fixed_issues.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=rsTemp("pkg_name")%></a>
759 
									</td>
760 
									<td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
761 
								</tr>
762 
							<%rsTemp.MoveNext
763 
							WEnd
764 
							rsTemp.Close()%>
765 
					  <%Else%>
766 
            <tr>
767 
							<td background="images/bg_form_lightgray.gif">&nbsp;</td>
768 
							<td background="images/bg_form_lightgray.gif"></td>
769 
							<td background="images/bg_form_lightgray.gif"></td>
770 
            </tr>
771 
					  <%End If%>
772 
 
773 
          </table>
774 
				</fieldset>
775 
				<br><br>
776 
	<%End If
777 
	End If
778 
End If%>
779 
 
780 
<!-- REASON FOR DEPRECATION/DEPENDANCY DEPRECATED ----------------------------------------------------------------------------------------------------------------->
781 
<%If pkgInfoHash.Item("deprecated_state") = 6 Then %>
782 
 
783 
					<fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for deprecation</legend>
784 
					<a name="REASON_FOR_DEPRECATION"></a>
785 
<%'Elseif pkgInfoHash.Item("pkg_state") = 7 Then%>
786 
<!-- 					<fieldset><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for dependancy deprecation</legend>
787 
					<a name="REASON_FOR_DEPRECATION"></a> -->
788 
 
789 
 
790 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
791 
					  <tr><td background="images/bg_form_lightgray.gif">
792 
 
793 
				    <%
794 
					Dim rsComment
795 
					Set rsComment = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
796 
					If rsComment("comments") <> "" Then
797 
						Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
798 
						Response.write "<tr>"
799 
						Response.write "<td class='sublbox_txt'>"& NewLine_To_BR((  rsComment("comments") ) ) &"<br></td>"
800 
						Response.write "</tr>"
801 
						Response.write "</table>"
802 
					'Else
803 
					'	If FixedIssues ( parPv_id ) Then
804 
					'		Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
805 
					'	Else
806 
					'		Response.write "<span class='err_alert'>Required!</span><br>"
807 
					'	End If
808 
					End If
809 
					rsComment.Close()
810 
					Set rsComment = nothing
811 
					%></td></tr>
812 
					</table>
813 
					</fieldset>
814 
					<br><br>
815 
<%End If%>
816 
<!-- SBOM PRIORITY/CRITICALITY  --------------------------------------------------------------------------------------------------------->
817 
<%If NOT pageIsEditable AND pkgInfoHash.Item ("is_deployable") = "Y" Then%>
818 
				<fieldset class="fset"><legend class="body_colb"><img src='icons/i_prod_sbom_priority.gif' hspace='4' border='0' align='absmiddle'>SBOM Priority</legend>
819 
				<a name="SBOM_PRIORITY"></a>
820 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
821 
						<tr>
822 
						<td class="body_colb"></td>
823 
						<td align="right" valign="bottom"><%If (pkgInfoHash.Item ("dlocked") = "Y") Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_sbom_priority.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','SBOMPriority','resizable=yes,width=400,height=400')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td>
824 
						</tr>
825 
					</table>
826 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
827 
						<tr>
828 
							<td background="images/bg_form_lightgray.gif">
829 
							<%If pkgInfoHash.Item ("sbom_priority") <> "" Then%>
830 
								<table border='0' cellspacing='0' cellpadding='0'>
831 
									<tr>
832 
										<td class='sublbox_txt'>
833 
										<%
834 
										If pkgInfoHash.Item ("sbom_priority") = "C" Then
835 
											Response.write "<b><font color='red'>Critical.</font></b>"
836 
										ElseIf pkgInfoHash.Item ("sbom_priority") = "I" Then
837 
											Response.write "<b>Important.</b>"
838 
										ElseIf pkgInfoHash.Item ("sbom_priority") = "R" Then
839 
											Response.write "Routine"
840 
										ElseIf pkgInfoHash.Item ("sbom_priority") = "L" Then
841 
											Response.write "Low"
842 
										End If
843 
										%>
844 
										</td>
845 
									</tr>
846 
								</table>
847 
							<%Else%>
848 
								<span class='err_alert'>Required!</span><br>
849 
							<%End If%>
850 
							</td>
851 
						</tr>
852 
					</table>
853 
				</fieldset>
854 
				<br><br>
855 
<%End If%>
856 
<!-- CHANGE TYPE  ----------------------------------------------------------------------------------------------------------------------->
857 
				    <%If pkgInfoHash.Item ("build_type") = "A" Then%>
858 
					<fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Change Type</legend>
859 
					<a name="CHANGE_TYPE"></a>
860 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
861 
					  <tr>
862 
                       	<td class="body_colb"></td>
863 
                      		<td align="right" valign="bottom"><%If (pkgInfoHash.Item ("dlocked") <> "A")  AND (pkgInfoHash.Item ("dlocked") <> "Y") AND criticalSectionIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_change_type.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ChangeType','resizable=yes,width=530,height=290')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td>
864 
					  </tr>
865 
					</table>
866 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
867 
					  <tr><td background="images/bg_form_lightgray.gif">
868 
				    <%
869 
					If pkgInfoHash.Item ("change_type") <> "" Then
870 
						Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
871 
						Response.write "<tr>"
872 
 
873 
						If pkgInfoHash.Item ("change_type") = "M" Then
874 
							Response.write "<td class='sublbox_txt'>Major Change.<br></td>"
875 
 
876 
						ElseIf pkgInfoHash.Item ("change_type") = "N" Then
877 
							Response.write "<td class='sublbox_txt'>Minor Change.<br></td>"
878 
 
879 
						ElseIf pkgInfoHash.Item ("change_type") = "P" Then
880 
							Response.write "<td class='sublbox_txt'>Patch Change.<br></td>"
881 
 
882 
						End If
883 
 
884 
						Response.write "</tr>"
885 
						Response.write "</table>"
886 
					Else
887 
						Response.write "<span class='err_alert'>Required!</span><br>"
888 
					End If
889 
					%></td></tr>
890 
					</table>
891 
					</fieldset>
892 
					<br><br>
893 
					<%End If%>
894 
<!-- RIPPLE PROPERTIES  ----------------------------------------------------------------------------------------------------------------------->
895 
<%If IsNull(pkgInfoHash.Item ("is_patch"))  Then%>
896 
<fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_ripple_type.gif' hspace='4' border='0' align='absmiddle' height='25' width='25'>Ripple Properties</legend>
897 
<a name="RIPPLE_PROPERTIES"></a>
898 
<table width="100%" border="0" cellspacing="1" cellpadding="2">
899 
  <tr>
900 
    <td class="body_colb"></td>
901 
    <td align="right" valign="bottom"><%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=1000,height=230')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td>
902 
  </tr>
903 
</table>
904 
<table width="100%" border="0" cellspacing="1" cellpadding="2">
905 
  <tr>
906 
    <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Build Inclusion</strong><%=Quick_Help ( "ripple_build" )%></td>
907 
 
908 
				<%
909 
				If Request("rtag_id") <> "" Then
910 
				Dim rsQryRipple
911 
				Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="&Request("pv_id"), cint(0))
912 
 
913 
 
914 
				If rsQryRipple.RecordCount = 0  Then %>
915 
		        <td background="images/bg_form_lightgray.gif" class="sublbox_txt">Yes</td>
916 
			  <%Else%>
917 
		        <td background="images/bg_form_lightgray.gif" class="sublbox_txt">No</td>
918 
			  <%End If%>
919 
 
920 
				<%
921 
				rsQryRipple.Close()
922 
				Set rsQryRipple = nothing
923 
				End If
924 
				%>
925 
 
926 
  </tr>
927 
  <tr>
928 
    <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Ripple Type</strong><%=Quick_Help ( "ripple_type" )%></td>
929 
    <td width="80%" background="images/bg_form_lightgray.gif"><p>
930 
        <%
931 
Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
932 
Response.write "<tr>"
933 
Response.write "<td class='sublbox_txt'>"
934 
 
935 
If pkgInfoHash.Item ("ripple_field") = "M" Then
936 
	Response.write "Major Number."
937 
 
938 
ElseIf pkgInfoHash.Item ("ripple_field") = "m" Then
939 
	Response.write "Minor Number."
940 
 
941 
ElseIf pkgInfoHash.Item ("ripple_field") = "p" Then
942 
	Response.write "Patch Number."
943 
 
944 
ElseIf pkgInfoHash.Item ("ripple_field") = "b" Then
945 
	Response.write "Build Number."
946 
 
947 
Else
948 
	Response.write "<span class='err_alert'>Required!</span>"
949 
End If
950 
 
951 
Response.Write "<br></td>"
952 
Response.write "</tr>"
953 
Response.write "</table>"
954 
%>
955 
    </p></td>
956 
  </tr>
957 
</table>
958 
</fieldset>
959 
<br><br>
960 
<%End If%>
961 
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
962 
					<fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for this version</legend>
963 
					<a name="REASON_FOR_THIS_RELEASE"></a>
964 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
965 
						<tr>
966 
							<td align="right" valign="bottom">
967 
							<%If pageIsEditable Then%>
968 
							<form name="updateversions" method="post" action="_update_versions.asp">
969 
							<input type="submit" name="btn" value="Update Dependencies" class="form_btn" onClick="return confirmAction('Current comments would be deleted. Do you wish to continue?')">
970 
							<a href='javascript:;' onClick="MM_openBrWindow('_wform_reason_for_version.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ReasonForRelease','resizable=yes,width=500,height=270')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
971 
							<input name="pv_id" type="hidden" value="<%=parPv_id%>">
972 
							<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
973 
							</form>
974 
							<%End If%>
975 
							</td>
976 
						</tr>
977 
					</table>
978 
 
979 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
980 
						<tr>
981 
							<td background="images/bg_form_lightgray.gif">
982 
							<%If pkgInfoHash.Item ("comments") <> "" Then%>
983 
								<table border='0' cellspacing='0' cellpadding='0'>
984 
									<tr>
985 
								<td class='sublbox_txt'> <%Response.Write( NewLine_To_BR(pkgInfoHash.Item("comments")) )%><br></td>
986 
									</tr>
987 
								</table>
988 
							<%ElseIf FixedIssues ( parPv_id ) Then%>
989 
								<span class='sublbox_txt'>Not specified.</span><br>
990 
							<%Else%>
991 
								<span class='err_alert'>Required!</span><br>
992 
							<%End If%>
993 
							</td>
994 
						</tr>
995 
					</table>
996 
					</fieldset>
997 
					<br><br>
998 
<!-- REASON FOR NON_RIPPLE RELEASE ----------------------------------------------------------------------------------------------------------------->
999 
<%
1000 
If pkgInfoHash.Item ("comments") = "Rippled Build." Then
1001 
%>
1002 
 
1003 
					<fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for last non-ripple build</legend>
1004 
 
1005 
 
1006 
 
1007 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1008 
					  <tr><td background="images/bg_form_lightgray.gif">
1009 
				    <%
1010 
					'Dim rsQry
1011 
					Call LastPvId(pkgInfoHash.Item ("pv_id"))
1012 
 
1013 
					While rsQry("comments") = "Rippled Build."
1014 
						Call LastPvId(rsQry("last_pv_id"))
1015 
					Wend
1016 
 
1017 
					If pkgInfoHash.Item ("comments") <> "" Then
1018 
						Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1019 
						Response.write "<tr>"
1020 
						Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"
1021 
						Response.write "</tr>"
1022 
						Response.write "<tr>"
1023 
						Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"
1024 
						Response.write "</tr>"
1025 
 
1026 
						Response.write "</table>"%>
1027 
 
1028 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1029 
					  <tr>
1030 
					  	<td valign="top" class="sublbox_txt"><b>Fixed Issues For Last Non-Ripple Build</b></td>
1031 
						<td align="right" valign="top"><%If pageIsEditable Then%>
1032 
						<a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import Fixed Issues from ClearQuest<img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1033 
						<%End If%></td>
1034 
					  </tr>
1035 
					</table>
1036 
			<%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%>
1037 
			<%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%>
1038 
			<%If retVal = 0 Then%>
1039 
                       <table width="100%" border="0" cellspacing="1" cellpadding="3">
1040 
                         <tr>
1041 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1042 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1043 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1044 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1045 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1046 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1047 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1048 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1049 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1050 
                         </tr>
1051 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1052 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1053 
                         <tr>
1054 
						   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1055 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
1056 
                           <td background="images/bg_form_lightgray.gif" class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
1057 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1058 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1059 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1060 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1061 
						   <%If sectionIsEditable Then%>
1062 
							  <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1063 
						  	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></a></td>
1064 
							  <%Else%>
1065 
							  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note"></a></td>
1066 
							  <%End If%>
1067 
						   <%Else%>
1068 
						      <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1069 
						  	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></td>
1070 
							  <%Else%>
1071 
  						   	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td>
1072 
							  <%End If%>
1073 
						   <%End If%>
1074 
						<%If NOT pageIsEditable Then%>
1075 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
1076 
						<%Else%>
1077 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td>
1078 
						<%End If%>
1079 
                         </tr>
1080 
                         <%rsCQ.MoveNext
1081 
					  WEnd
1082 
					  rsCQ.Close()%>
1083 
					  <%Else%>
1084 
                         <tr>
1085 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1086 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1087 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1088 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1089 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1090 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1091 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1092 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1093 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1094 
                         </tr>
1095 
					  <%End If%>
1096 
 
1097 
                       </table>
1098 
			<%End If%>
1099 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR
1100 
					Else
1101 
						If FixedIssues ( parPv_id ) Then
1102 
							Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1103 
						Else
1104 
							Response.write "<span class='err_alert'>Required!</span><br>"
1105 
						End If
1106 
					End If
1107 
 
1108 
					rsQry.Close()
1109 
					Set rsQry = nothing
1110 
					%></td></tr>
1111 
					</table>
1112 
					</fieldset>
1113 
					<br><br>
1114 
 
1115 
<%
1116 
End If
1117 
%>
1118 
<!-- FIXED ISSUES ----------------------------------------------------------------------------------------------------------------------->
1119 
					<fieldset class="fset"><legend class="body_colb"><img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">Issues</legend>
1120 
					<p class="body_colb"><a name="ISSUES"></a></p>
1121 
<%
1122 
 
1123 
If Request("rtag_id") <> "" Then
1124 
	Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID ="& Request("rtag_id") &"", cint(0))
1125 
	tempProjId = rsProjId("proj_id")
1126 
	rsProjId.Close()
1127 
	Set rsProjId = nothing
1128 
End If
1129 
If tempProjId = 42 OR tempProjId = 202 Then
1130 
%>
1131 
					<table width="100%" border="0" cellpadding="2" cellspacing="1">
1132 
                      <tr>
1133 
                        <td valign="top" class="body_colb">JIRA Issues</td>
1134 
                        <td align="right" valign="top"><%If pageIsEditable Then%>
1135 
                            <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_jira_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import JIRA issues <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1136 
                            <%End If%></td>
1137 
<%End If%>
1138 
			<%Call Get_JIRA_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%>
1139 
			<%retVal = Get_JIRA_Issues ( SQLstr, rsCQ )%>
1140 
			<%If (retVal = 0 And rsCQ.RecordCount > 0) Or (tempProjId = 42 OR tempProjId = 202) Then
1141 
				If Request("rtag_id") = "" Then
1142 
			%>
1143 
					<table width="100%" border="0" cellpadding="2" cellspacing="1">
1144 
                      <tr>
1145 
                        <td valign="top" class="body_colb">JIRA Issues</td>
1146 
			<%	End if%>
1147 
 
1148 
                       <table width="100%" border="0" cellspacing="1" cellpadding="3">
1149 
                         <tr>
1150 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1151 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1152 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1153 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1154 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1155 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1156 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1157 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1158 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1159 
                         </tr>
1160 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1161 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1162 
                         <tr><%If rsCQ("resolution") = 1 Then %>
1163 
							   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1164 
							 <%Else%>
1165 
    						   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"></td>
1166 
							 <%End If%>
1167 
	                       <td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="http://auperajir01:8080/browse/<%=rsCQ("iss_num")%>" target="_blank" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
1168 
                           <td background="images/bg_form_lightgray.gif" class="form_item">JIRA</td>
1169 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1170 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issuetype")%></td>
1171 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1172 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("state")%></td>
1173 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
1174 
						<%If NOT pageIsEditable Then%>
1175 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
1176 
						<%Else%>
1177 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_jira_issue.asp?iss_link=<%=rsCQ("iss_num")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td>
1178 
						<%End If%>
1179 
                         </tr>
1180 
                         <%rsCQ.MoveNext
1181 
					  WEnd
1182 
					  rsCQ.Close()%>
1183 
					  <%Else%>
1184 
                         <tr>
1185 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1186 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1187 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1188 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1189 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1190 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1191 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1192 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1193 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1194 
                         </tr>
1195 
					  <%End If%>
1196 
 
1197 
                       </table>
1198 
			<%End If%>
1199 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1200 
 
1201 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1202 
					  <tr>
1203 
					  	<td valign="top" class="body_colb">Fixed Issues</td>
1204 
						<td align="right" valign="top"><%If pageIsEditable Then%>
1205 
						<a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import Fixed Issues from ClearQuest<img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1206 
						<%End If%></td>
1207 
					  </tr>
1208 
					</table>
1209 
			<%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%>
1210 
			<%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%>
1211 
			<%If retVal = 0 Then%>
1212 
                       <table width="100%" border="0" cellspacing="1" cellpadding="3">
1213 
                         <tr>
1214 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1215 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1216 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1217 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1218 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1219 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1220 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1221 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1222 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1223 
                         </tr>
1224 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1225 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1226 
                         <tr>
1227 
						   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1228 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
1229 
                           <td background="images/bg_form_lightgray.gif" class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
1230 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1231 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1232 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1233 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1234 
						   <%If sectionIsEditable AND pageIsEditable Then%>
1235 
							  <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1236 
						  	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></a></td>
1237 
							  <%Else%>
1238 
							  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note"></a></td>
1239 
							  <%End If%>
1240 
						   <%Else%>
1241 
						      <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1242 
						  	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></td>
1243 
							  <%Else%>
1244 
  						   	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td>
1245 
							  <%End If%>
1246 
						   <%End If%>
1247 
						<%If NOT pageIsEditable Then%>
1248 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
1249 
						<%Else%>
1250 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td>
1251 
						<%End If%>
1252 
                         </tr>
1253 
                         <%rsCQ.MoveNext
1254 
					  WEnd
1255 
					  rsCQ.Close()%>
1256 
					  <%Else%>
1257 
                         <tr>
1258 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1259 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1260 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1261 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1262 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1263 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1264 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1265 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1266 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1267 
                         </tr>
1268 
					  <%End If%>
1269 
 
1270 
                       </table>
1271 
			<%End If%>
1272 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1273 
 
1274 
 
1275 
 
1276 
 
1277 
			<table width="100%" border="0" cellspacing="1" cellpadding="2">
1278 
					  <tr>
1279 
					  	<td valign="top" class="body_colb">Outstanding Issues</td>
1280 
						<td align="right" valign="top"><%If pageIsEditable Then%>
1281 
						<a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import Outstanding Issues from ClearQuest<img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1282 
						<%End If%></td>
1283 
					  </tr>
1284 
					</table>
1285 
			<%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )%>
1286 
			<%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%>
1287 
			<%If retVal = 0 Then%>
1288 
                       <table width="100%" border="0" cellspacing="1" cellpadding="2">
1289 
					   <form name="fixedissues" method="get" action="_update_issues_state.asp">
1290 
                         <tr>
1291 
						   <%If pageIsEditable Then%>
1292 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td>
1293 
						   <%End If%>
1294 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
1295 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
1296 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1297 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
1298 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td>
1299 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Status</td>
1300 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Note</td>
1301 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
1302 
                         </tr>
1303 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1304 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1305 
                         <tr>
1306 
					    <%If pageIsEditable Then%>
1307 
                           <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>"></td>
1308 
						<%End If%>
1309 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
1310 
                           <td background="images/bg_form_lightgray.gif" class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
1311 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1312 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1313 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1314 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1315 
						   <%If sectionIsEditable AND pageIsEditable Then%>
1316 
							  <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1317 
						  	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></a></td>
1318 
							  <%Else%>
1319 
							  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_off.gif" width="11" height="12" border="0" alt="Add Note"></a></td>
1320 
							  <%End If%>
1321 
						   <%Else%>
1322 
						      <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1323 
						  	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></td>
1324 
							  <%Else%>
1325 
  						   	  <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td>
1326 
							  <%End If%>
1327 
						   <%End If%>
1328 
						<%If NOT pageIsEditable Then%>
1329 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
1330 
						<%Else%>
1331 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td>
1332 
						<%End If%>
1333 
                         </tr>
1334 
                         <%rsCQ.MoveNext
1335 
					  WEnd
1336 
					  rsCQ.Close()%>
1337 
					  	<%If pageIsEditable Then%>
1338 
					     <tr>
1339 
                           <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="submit" name="Apply" value="Apply" class="form_btn"></td>
1340 
                           <td></td>
1341 
						   <td></td>
1342 
						   <td></td>
1343 
                           <td></td>
1344 
                           <td></td>
1345 
						   <td></td>
1346 
						   <td></td>
1347 
                           <td></td>
1348 
                         </tr>
1349 
					  	<%End If%>
1350 
					  <%Else%>
1351 
                         <tr>
1352 
						   <%If pageIsEditable Then%>
1353 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1354 
						   <%End If%>
1355 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1356 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1357 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1358 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1359 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1360 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1361 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1362 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1363 
                         </tr>
1364 
					  <%End If%>
1365 
					  <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1366 
					<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1367 
					</form>
1368 
                       </table>
1369 
			<%End If%>
1370 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1371 
 
1372 
 
1373 
 
1374 
 
1375 
					</fieldset>
1376 
					<br><br>
1377 
<!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) ------------------------------------------------------------------------------------------------------->
1378 
 
1379 
			<%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
1380 
					<fieldset class="fset"><legend class="body_colb"><img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">Dependency Issues</legend>
1381 
                    <table width="100%" border="0" cellspacing="1" cellpadding="2">
1382 
 
1383 
			  <%Call Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )%>
1384 
			  <%retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )%>
1385 
			  <%If retVal = 0 Then%>
1386 
					  <%
1387 
					  currG1 = 0
1388 
					  G1_template = _
1389 
					  "<tr>"&_
1390 
					  "  <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_
1391 
					  "</tr>"&_
1392 
					  "<tr>"&_
1393 
                         "  <td colspan='7' background='images/bg_form_lightbluedark.gif' class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_
1394 
                         "</tr>"
1395 
					  Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))
1396 
					  %>
1397 
					  <%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%>
1398 
                         <%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%>
1399 
					  <%
1400 
					  iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))
1401 
					  G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")
1402 
					  If IsNull(rsDepIss("iss_id")) Then
1403 
						  If IsNull(rsDepIss("reasons")) Then
1404 
						  	G1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")
1405 
						  Else
1406 
							G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1407 
						  End If
1408 
					  Else
1409 
					  	  If IsNull(rsDepIss("reasons")) Then
1410 
						  	G1_style = Replace(G1_style, "/*REASONS*/", "")
1411 
						  Else
1412 
							G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1413 
						  End If
1414 
					  End If
1415 
 
1416 
					  Call Group_By ( rsDepIss("pv_id"), G1_style, currG1 )
1417 
					  %>
1418 
					  <%If NOT IsNull(rsDepIss("iss_id")) Then%>
1419 
					  	<%If rsDepIss("pv_id") <> currG1 Then
1420 
					      currG1 = rsDepIss("pv_id")
1421 
						%>
1422 
					     <tr>
1423 
					       <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field' align='center'></td>
1424 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field' align='center'>Fixed</td>
1425 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Issue&nbsp;Id&nbsp;</td>
1426 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
1427 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='100%' class='form_field'>Summary</td>
1428 
						   <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Issue&nbsp;Type&nbsp;</td>
1429 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Priority</td>
1430 
                         </tr>
1431 
					  	<%End If%>
1432 
                         <tr>
1433 
					    <td background="images/bg_form_lightbluedark.gif"></td>
1434 
						<td align="center" nowrap background="images/bg_form_lightgray.gif">
1435 
						  <%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%>
1436 
						  <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1437 
						  <%Else%>
1438 
						  <img src="images/spacer.gif" width="7" height="7" vspace="2">
1439 
						  <%End If%></td>
1440 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=asDepIss( iss_db_id, enumLoc_iss_db )%>&iss_id=<%=asDepIss( iss_db_id, enumLoc_iss_id )%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=asDepIss( iss_db_id, enumLoc_iss_num )%></a></td>
1441 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
1442 
                           <td background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
1443 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
1444 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
1445 
                         </tr>
1446 
					  <%End If%>
1447 
                         <%rsDepIss.MoveNext
1448 
					  WEnd
1449 
					  rsDepIss.Close()
1450 
					  Set rsDepIss = nothing%>
1451 
					  <%Else%>
1452 
                         <tr>
1453 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1454 
						   <td background="images/bg_form_lightgray.gif"></td>
1455 
                           <td background="images/bg_form_lightgray.gif"></td>
1456 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1457 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1458 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1459 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1460 
                         </tr>
1461 
					  <%End If%>
1462 
                       </table>
1463 
				<%End If%>
1464 
				<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1465 
					   </fieldset>
1466 
					   <br><br>
1467 
			<%End If%>
1468 
<!-- UNIT TESTS --------------------------------------------------------------------------------------------------------------------->
1469 
					<%
1470 
					Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound
1471 
					Call CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound  )
1472 
					Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))
1473 
					%>
1474 
					<fieldset class="fset"><legend class="body_colb"><img src="images/i_unit_test.gif" width="18" height="25" hspace="4" border="0" align="absmiddle" alt="">Unit Tests
1475 
						<%If testCheckMSG_ID = 0 Then%>
1476 
							&nbsp;&nbsp;<%=testCheckMSG%>
1477 
						<%End If%></legend>
1478 
					<a name="UNIT_TESTS"></a>
1479 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1480 
					  <tr>
1481 
                       		<td align="right" valign="bottom">
1482 
							<%If pageIsEditable Then%>
1483 
							<a href='javascript:;' onClick="MM_openBrWindow('_wform_unit_test.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UnitTest','resizable=yes,width=700,height=550')" class="txt_linked">New Test<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new test."></a>
1484 
								<%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0)  Then%>
1485 
									<a href='_not_done_unit_test.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&notdone=Y' class='txt_linked'>Click here if Not Done!<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new test."></a>
1486 
								<%End If%>
1487 
							<%End If%></td>
1488 
					  </tr>
1489 
					</table>
1490 
					<%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%>
1491 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1492 
					  <tr>
1493 
                      	<td background="images/bg_form_lightgray.gif" class="form_item"><%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%>
1494 
						<span class="rep_small">Last Modified: <%=testCheckMSG%></span><br>
1495 
						<%=NewLine_To_BR( To_HTML ( testCheckNote ) )%>
1496 
						</td>
1497 
					  </tr>
1498 
					</table>
1499 
				    <%End If%>
1500 
 
1501 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1502 
					<form name="review" method="get" action="_update_unit_test_accepted_state.asp">
1503 
		              <tr>
1504 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">&nbsp;Test Type&nbsp;</td>
1505 
		                <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">&nbsp;Test Summary&nbsp;</td>
1506 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">Test<br>Completed</td>
1507 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Passed<br># / Total&nbsp;</td>
1508 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Results&nbsp;</td>
1509 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Accepted&nbsp;</td>
1510 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">Review<br>Completed</td>
1511 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">Comments /<br>Issue#</td>
1512 
		                <td width="1%" background="images/bg_form_lightbluedark.gif"></td>
1513 
		              </tr>
1514 
					  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%>
1515 
		              <tr>
1516 
						<%If NOT pageIsEditable Then%>
1517 
							<%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then%>
1518 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_update_unit_test.asp?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UpdateUT','resizable=yes,width=700,height=550')" class="txt_linked"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle" border="0"><%=rsQry("test_type_name")%></a></td>
1519 
							<%Else%>
1520 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle"><%=rsQry("test_type_name")%></td>
1521 
							<%End If%>
1522 
						<%Else%>
1523 
						    <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('<%If Not IsNull(rsQry("test_id")) Then%>_wform_update_unit_test.asp<%Else%>_wform_unit_test.asp<%End If%>?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&test_type_id=<%=rsQry("test_type_id")%>','UpdateUT','resizable=yes,width=700,height=550')" class="txt_linked"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle" border="0"><%=rsQry("test_type_name")%></a></td>
1524 
						<%End If%>
1525 
		                <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td>
1526 
						<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%If ( NOT IsNull(rsQry("tester")) ) Then%><%=EuroDate ( rsQry("completion_date") )%><br>by <a href="mailto:<%=rsQry("tester_email")%>" class="txt_linked"><%=rsQry("tester")%></a><%End If%></td>
1527 
						<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top" align="center"><%=rsQry("numof_test")%></td>
1528 
 
1529 
						<%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then%>
1530 
							<td background="images/bg_form_lightgray.gif" class="form_item" align="center" valign="top">
1531 
							<%If NOT IsNull( rsQry("results_url") ) Then%>
1532 
								<%If InStr( rsQry("results_url"), "http://" ) = 1 Then%>
1533 
		                		<a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1534 
								<%Else%>
1535 
									<%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1536 
									<a href="<%=deploy_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") & rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1537 
									<%Else%>
1538 
									<a href="<%=dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") & rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1539 
									<%End If%>
1540 
								<%End If%>
1541 
							<%End If%>
1542 
							</td>
1543 
						<%Else%>
1544 
							<td background="images/bg_form_lightgray.gif" class="form_item"  align="center" valign="top">
1545 
							<%If NOT IsNull( rsQry("results_attachment_name") ) Then%>
1546 
								<%If pkgInfoHash.Item ("dlocked") = "Y" Then%>
1547 
									<%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1548 
									<a href="<%=deploy_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1549 
									<%Else%>
1550 
									<a href="<%=dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1551 
									<%End If%>
1552 
 
1553 
								<%Else%>
1554 
									<a href="<%=TEMP_FOLDER &"/"& pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1555 
								<%End If%>
1556 
							<%End If%>
1557 
							</td>
1558 
						<%End If%>
1559 
 
1560 
						<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top" align="center"><%=FormatAccepted( rsQry("test_accepted"), rsQry("test_id") )%></td>
1561 
						<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%If NOT IsNull(rsQry("reviewee")) Then%><%=EuroDate ( rsQry("acceptance_date") )%><br>by <a href="mailto:<%=rsQry("reviewee_email")%>" class="txt_linked"><%=rsQry("reviewee")%></a><%End If%></td>
1562 
						<td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td>
1563 
 
1564 
						<%If NOT pageIsEditable Then%>
1565 
							<td background="images/bg_form_lightgray.gif" valign="top"></td>
1566 
						<%Else%>
1567 
							<td background="images/bg_form_lightgray.gif" valign="top"><%If NOT IsNull(rsQry("test_id")) Then%><a href="_remove_unit_test.asp?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this unit test');"><img src="images/i_delete.gif" alt="Remove this test." width="13" height="12" hspace="3" border="0"></a><%End If%></td>
1568 
						<%End If%>
1569 
		              </tr>
1570 
					  <%rsQry.MoveNext
1571 
					    WEnd%>
1572 
					  <tr>
1573 
		                <td class="form_field"></td>
1574 
						<td class="form_field"></td>
1575 
						<td class="form_field"></td>
1576 
						<td class="form_field"></td>
1577 
						<td class="form_field"></td>
1578 
		                <td class="form_field" align="center"><%If (testCheckTestsFound) AND (testCheckMSG_ID = 0) AND ( scriptName = "fixed_issues.asp" ) AND pageIsEditable Then%><input type="submit" name="Apply" value="Apply" class="form_btn"><%End If%></td>
1579 
						<td class="form_field"></td>
1580 
						<td class="form_field"></td>
1581 
						<td class="form_field"></td>
1582 
		              </tr>
1583 
					<input name="pv_id" type="hidden" value="<%=parPv_id%>">
1584 
					<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1585 
					</form>
1586 
					</table>
1587 
					</fieldset>
1588 
		            <br><br>
1589 
<!-- CODE REVIEW ------------------------------------------------------------------------------------------------------------------->
1590 
          <fieldset class="fset"><legend class="body_colb"><img src='images/s_code_review.gif' width='21' height='23' hspace='4' border='0' align='absmiddle'>Code Review</legend>
1591 
            <a name="CODE_REVIEW" id="CODE_REVIEW"></a>
1592 
            <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%>
1593 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1594 
              <tr>
1595 
                <td align="right" valign="bottom"><%If ( scriptName = "fixed_issues.asp" ) Then%>
1596 
                  <%If pageIsEditable Then%>
1597 
                    <a href='javascript:;' onClick="MM_openBrWindow('_wform_update_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewEdit','scrollbars=yes,resizable=yes,width=950,height='+ ( screen.height - 100 ) +',top=0,left=0')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1598 
                  <%End If%>
1599 
                  <%If rsQry.RecordCount > 0 Then%><%If NOT IsNull(rsQry("date_of_review")) Then%>&nbsp;<a href='javascript:;' onClick="MM_openBrWindow('_wform_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewView','scrollbars=yes,resizable=yes,width=950,height='+ ( screen.height - 100 ) +',top=0,left=0')" class="txt_linked">View<img src="images/i_open.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%><%End If%>
1600 
                  <%End If%>
1601 
                </td>
1602 
              </tr>
1603 
            </table>
1604 
          <%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
1605 
            <%If NOT IsNull(rsQry("date_of_review")) Then%>
1606 
            <table width="100%"  border="0" cellspacing="1" cellpadding="4">
1607 
              <tr>
1608 
                <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Date of Review</td>
1609 
                <td width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=EuroDate ( rsQry("date_of_review") )%>&nbsp;&nbsp;&nbsp;</td>
1610 
                <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;&nbsp;&nbsp;Time Spent:</td>
1611 
                <td width="100%" background="images/bg_form_lightgray.gif" class="form_item"><%=rsQry("time_spent")%> hrs </td>
1612 
              </tr>
1613 
              <tr>
1614 
                <td align="right" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Reason for Review</td>
1615 
                <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td>
1616 
              </tr>
1617 
              <tr>
1618 
                <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Review Results </td>
1619 
                <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item">
1620 
                <%=DecodeOverallResult( rsQry("review_results") )%>
1621 
                </td>
1622 
              </tr>
1623 
              <tr>
1624 
                <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issues Raised </td>
1625 
                <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td>
1626 
              </tr>
1627 
            </table>
1628 
            <%Else%>
1629 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1630 
              <tr>
1631 
                <td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td>
1632 
              </tr>
1633 
            </table>
1634 
            <%End If%>
1635 
          <%Else%>
1636 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1637 
              <tr>
1638 
                <td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td>
1639 
              </tr>
1640 
            </table>
1641 
          <%End If%>
1642 
 
1643 
          <!-- Code Review URL section for this version -->
1644 
            <%Call GetCodeReviewURLs( parPv_id, rsCodeReviewURL )%>
1645 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1646 
              <tr>
1647 
                <td align="left" valign="top" class="body_colb">Code Review URL for this version</td>
1648 
                <td align="right" valign="top" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='5'")%>>
1649 
                  <%If pageIsEditable Then%>
1650 
                    <a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewURLEdit','scrollbars=no,resizable=yes,width=930,height=185,top=0,left=0')" class="txt_linked">New<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle"></a>
1651 
                  <%End If%>
1652 
                </td>
1653 
              </tr>
1654 
              <%If IsNull(rsCodeReviewURL("full_url")) Then %>
1655 
                <tr>
1656 
                  <td background="images/bg_form_lightgray.gif" width="100%" class="form_item" colspan="2">
1657 
                    <span class='sublbox_txt'>No details found.</span>
1658 
                  </td>
1659 
                </tr>
1660 
              <%Else%>
1661 
                <tr>
1662 
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
1663 
                  <td background="images/bg_form_lightbluedark.gif" width="25%" class="form_field">Reason for Review</td>
1664 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Date of Review</td>
1665 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Last Modified</td>
1666 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1667 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1668 
                </tr>
1669 
                <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
1670 
                While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
1671 
                <tr>
1672 
				  <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
1673 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
1674 
				  <%Else%>
1675 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
1676 
				  <%End If%>
1677 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
1678 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
1679 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
1680 
                  <%If pageIsEditable Then%>
1681 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&cr_id=<%=rsCodeReviewURL("cr_id")%>','CodeReviewURLEdit','scrollbars=no,resizable=yes,width=930,height=185')" class="txt_linked"><img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle" alt="Edit this code review URL"></a></td>
1682 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="_remove_code_review_url.asp?cr_id=<%=rsCodeReviewURL("cr_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onclick="return confirmDelete('this code review URL from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this code review URL"></a></td>
1683 
                  <%Else%>
1684 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1685 
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1686 
                  <%End If%>
1687 
                </tr>
1688 
                <%rsCodeReviewURL.MoveNext
1689 
                WEnd
1690 
                Else%>
1691 
                <tr>
1692 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1693 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1694 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1695 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1696 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1697 
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1698 
                </tr>
1699 
                <%End If
1700 
              End If%>
1701 
            </table>
1702 
 
1703 
 
1704 
        <!-- Code Review URL section for last non-ripple build -->
1705 
        <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then
1706 
          Call LastPvId(pkgInfoHash.Item ("pv_id"))
1707 
          While rsQry("comments") = "Rippled Build."
1708 
            Call LastPvId(rsQry("last_pv_id"))
1709 
          Wend
1710 
          Dim sOldPkgVersion
1711 
          Call Get_Pkg_Short_Info ( rsQry("pv_id"), NULL, NULL, sOldPkgVersion, NULL, NULL, NULL )
1712 
          Call GetCodeReviewURLs( rsQry("pv_id"), rsCodeReviewURL )
1713 
          %>
1714 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1715 
              <tr>
1716 
                <td align="left" valign="top" class="body_colb" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='6'")%>>Code Review URL for last non-ripple build (<a class="lbl_link" href="fixed_issues.asp?pv_id=<%=rsQry("pv_id")%>"><%=sOldPkgVersion%></a>)</td>
1717 
              </tr>
1718 
              <%If IsNull(rsCodeReviewURL("url")) Then%>
1719 
                <tr>
1720 
                  <td background="images/bg_form_lightgray.gif" width="100%" class="form_item" colspan="2">
1721 
                    <span class='sublbox_txt'>No details found.</span>
1722 
                  </td>
1723 
                </tr>
1724 
              <%Else%>
1725 
                <tr>
1726 
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
1727 
                  <td background="images/bg_form_lightbluedark.gif" width="30%" class="form_field">Reason for Review</td>
1728 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Date of Review</td>
1729 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Last Modified</td>
1730 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1731 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1732 
                </tr>
1733 
                <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
1734 
                  While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
1735 
                  <tr>
1736 
				    <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
1737 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
1738 
				    <%Else%>
1739 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
1740 
				    <%End If%>
1741 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
1742 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
1743 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
1744 
                    <%If pageIsEditable Then%>
1745 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=rsCodeReviewURL("pv_id")%>&rtag_id=<%=parRtag_id%>&cr_id=<%=rsCodeReviewURL("cr_id")%>','CodeReviewURLEdit','scrollbars=no,resizable=yes,width=930,height=185')" class="txt_linked"><img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle" alt="Edit this code review URL"></a></td>
1746 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="_remove_code_review_url.asp?cr_id=<%=rsCodeReviewURL("cr_id")%>&pv_id=<%=rsCodeReviewURL("pv_id")%>&rtag_id=<%=parRtag_id%>" onclick="return confirmDelete('this code review URL from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this code review URL"></a></td>
1747 
                    <%Else%>
1748 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1749 
                    <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1750 
                    <%End If%>
1751 
                  </tr>
1752 
                  <%rsCodeReviewURL.MoveNext
1753 
                  WEnd
1754 
                Else%>
1755 
                  <tr>
1756 
                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1757 
                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1758 
                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1759 
                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1760 
                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1761 
                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1762 
                  </tr>
1763 
                <%End If
1764 
              End If%>
1765 
            </table>
1766 
          <%End If%>
1767 
 
1768 
          </fieldset>
1769 
          <br>
1770 
          <br>
1771 
<!-- ADDITIONAL NOTES ------------------------------------------------------------------------------------------------------------------->
1772 
					<fieldset class="fset"><legend class="body_colb"><img src="images/i_additional_notes.gif" width="26" height="20" hspace="4" border="0" align="absmiddle" alt="">Additional Notes</legend>
1773 
					<a name="ADDITIONAL_NOTES"></a>
1774 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1775 
					  <tr>
1776 
                      		<td align="right" valign="bottom"><%If pageIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_additional_note.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','AdditionalNotes','resizable=yes,width=600,height=400')" class="txt_linked">New Note<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new note."></a><%End If%></td>
1777 
					  </tr>
1778 
					</table>
1779 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1780 
		              <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%>
1781 
					  <%If rsQry.RecordCount < 1 Then%>
1782 
					  <tr>
1783 
                       	<td class="form_field" width="100%" background="images/bg_form_lightgray.gif">&nbsp;</td>
1784 
					  </tr>
1785 
					  <%End If%>
1786 
					  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
1787 
					  <tr>
1788 
		                <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="body_col">
1789 
						<%If pageIsEditable Then%>
1790 
							<a href="javascript:;" onClick="MM_openBrWindow('_wform_update_additional_note.asp?note_id=<%=rsQry("note_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UpdateAN','resizable=yes,width=600,height=400')" class="body_col"><img src="images/i_edit.gif" alt="Edit" width="12" height="12" hspace="3" vspace="3" border="0" align="absmiddle"><%=To_HTML (rsQry("note_title"))%></a>
1791 
						<%Else%>
1792 
							<%=To_HTML (rsQry("note_title"))%>
1793 
						<%End If%>
1794 
						</td>
1795 
		                <td width="1" background="images/bg_form_lightbluedark.gif">
1796 
						<%If pageIsEditable Then%>
1797 
							<a href="_remove_additional_note.asp?note_id=<%=rsQry("note_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this note');"><img src="images/i_delete.gif" alt="Remove this note." width="13" height="12" hspace="3" border="0"></a>
1798 
						<%End If%>
1799 
						</td>
1800 
		              </tr>
1801 
		              <tr>
1802 
		                <td colspan="2" background="images/bg_form_lightgray.gif" class="sublbox_txt">
1803 
						<%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br><br>
1804 
						<span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span></td>
1805 
		              </tr>
1806 
					  <tr>
1807 
		                <td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td>
1808 
		              </tr>
1809 
					  <%rsQry.MoveNext
1810 
					    WEnd%>
1811 
		            </table>
1812 
					</fieldset>
1813 
		            <br><br>