Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'|                                                   |
4 
'|		          ARCHIVED 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 
'------------ Constants Declaration -----------
23 
Const enumLoc_iss_db = 0
24 
Const enumLoc_iss_id = 1
25 
Const enumLoc_iss_num = 2
26 
Const enumLoc_summary = 3
27 
Const enumLoc_status = 4
28 
Const enumLoc_priority = 5
29 
Const enumLoc_issue_type = 6
30 
'Const enumLoc_Fixed_Issue = 1
31 
'Const enumLoc_NotFixed_Issue = 0
32 
'------------ Variable Init -------------------
33 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
34 
Set fixedIssDict = CreateObject("Scripting.Dictionary")
35 
Set notesIssDict = CreateObject("Scripting.Dictionary")
36 
Set depIssDict = CreateObject("Scripting.Dictionary")
37 
'----------------------------------------------
38 
%>
39 
<%
40 
'----------------------------------------------------------------------------------------------------------------------------------------
41 
Function asDepIss ( SSiss_db_id, SScolumn )
42 
	If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
43 
 
44 
	asDepIss = issArr ( SScolumn, CInt( depIssDict.Item (SSiss_db_id) ) )
45 
End Function
46 
'----------------------------------------------------------------------------------------------------------------------------------------
47 
Function FixedIssues ( parPv_id )
48 
	Dim sqlstr, rsTemp
49 
	sqlstr = "SELECT pv_id FROM archive_manager.cq_issues WHERE pv_id = "& parPv_id &" AND iss_state = "& enumISSUES_STATE_FIXED
50 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
51 
 
52 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
53 
		FixedIssues = TRUE
54 
	Else
55 
		FixedIssues = FALSE
56 
	End If
57 
 
58 
	rsTemp.Close
59 
	Set rsTemp = nothing
60 
End Function
61 
'----------------------------------------------------------------------------------------------------------------------------------------
62 
Function SQL_Package_Information ( nPv_id )
63 
	SQL_Package_Information = _
64 
	" SELECT *"&_
65 
	"   FROM archive_manager.PACKAGE_VERSIONS pv"&_
66 
	"  WHERE pv.pv_id = "& nPv_id
67 
End Function
68 
'----------------------------------------------------------------------------------------------------------------------------------------
69 
Function SQL_Dependency_Issues ( NNpv_id )
70 
	SQL_Dependency_Issues = _
71 
	" SELECT pkg.pkg_name, pv.pkg_version, pv.pv_id, cqi.iss_db, cqi.iss_id, cqi.iss_state, pv.comments AS reasons"&_
72 
	"	  FROM archive_manager.cq_issues cqi,"&_
73 
	"	       archive_manager.package_dependencies dep,"&_
74 
	"	       archive_manager.packages pkg,"&_
75 
	"	       archive_manager.package_versions pv"&_
76 
	"	 WHERE dep.pv_id = "& NNpv_id &_
77 
	"	   AND dep.dpv_id = cqi.pv_id(+)"&_
78 
	"	   AND dep.dpv_id = pv.pv_id(+)"&_
79 
	"	   AND pv.pkg_id = pkg.pkg_id"&_
80 
	"	ORDER BY UPPER(pkg.pkg_name) ASC, cqi.iss_state DESC"
81 
End Function
82 
'----------------------------------------------------------------------------------------------------------------------------------------
83 
Function SQL_Additional_Notes ( nPv_id )
84 
	SQL_Additional_Notes = ReadFile( rootPath & "queries\additional_notes.sql" )
85 
	SQL_Additional_Notes = Replace( SQL_Additional_Notes, ":PV_ID", nPv_id )
86 
End Function
87 
'----------------------------------------------------------------------------------------------------------------------------------------
88 
Function SQL_Unit_Tests ( nPv_id )
89 
	SQL_Unit_Tests = ReadFile( rootPath & "queries\unit_tests.sql" )
90 
	SQL_Unit_Tests = Replace( SQL_Unit_Tests, ":PV_ID", nPv_id )
91 
End Function
92 
'----------------------------------------------------------------------------------------------------------------------------------------
93 
Sub Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
94 
	Dim rsTemp, sqlstr, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
95 
 
96 
	If IsObject(DDfixedIss) Then
97 
		' Find this package issues
98 
		sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM archive_manager.CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = "& nIssState
99 
	Else
100 
		' Find dependency issues
101 
		sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM archive_manager.CQ_ISSUES WHERE  pv_id IN ( "&_
102 
				 " SELECT dpv_id FROM archive_manager.package_dependencies WHERE pv_id = "& NNpv_id &_
103 
		         " )"
104 
	End If
105 
 
106 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
107 
 
108 
	DEVIiss = "-1"
109 
	TDSEiss  = "-1"
110 
	VT5DMiss = "-1"
111 
	VTSUPiss = "-1"
112 
 
113 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
114 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
115 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
116 
 
117 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
118 
			TDSEiss = TDSEiss &","& rsTemp("iss_id")
119 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
120 
			VT5DMiss = VT5DMiss &","& rsTemp("iss_id")
121 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
122 
			VTSUPiss = VTSUPiss &","& rsTemp("iss_id")
123 
 
124 
		End If
125 
 
126 
		If IsObject(DDfixedIss) Then
127 
			' Store only Fixed Issues
128 
			If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""
129 
		End If
130 
 
131 
		If IsObject(DDnotesIssDict) Then
132 
			' Store Notes
133 
			If Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "")Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))
134 
		End If
135 
 
136 
		rsTemp.MoveNext
137 
	WEnd
138 
 
139 
	' Construct SQL statement for CQ database
140 
	If Len(DEVIiss) <> 1 OR Len(TDSEiss) <> 1 Then
141 
		SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
142 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
143 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
144 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
145 
		SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
146 
		SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
147 
		SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
148 
		SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
149 
		SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
150 
	End If
151 
 
152 
	rsTemp.Close
153 
	Set rsTemp = nothing
154 
End Sub
155 
'----------------------------------------------------------------------------------------------------------------------------------------
156 
Sub Get_JIRA_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
157 
	Dim rsTemp, sqlstr, JIRAIss
158 
 
159 
	JIRAIss = "'-1'"
160 
		sqlstr = "SELECT iss_key FROM archive_manager.JIRA_ISSUES WHERE pv_id="& NNpv_id
161 
 
162 
 
163 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
164 
 
165 
 
166 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
167 
				JIRAIss = JIRAIss &",'"& rsTemp("iss_key")&"'"
168 
		rsTemp.MoveNext
169 
	WEnd
170 
	'Response.Write(rsTemp.RecordCount)
171 
 
172 
	' Construct SQL statement for CQ database
173 
 
174 
	If Len(JIRAIss) <> 1 Then
175 
		SSsql = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
176 
				" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
177 
				" WHERE I.pkey IN ("& JIRAIss &") "&_
178 
				" AND I.issuestatus = ISS.ID "&_
179 
				" AND IT.ID = I.issuetype "&_
180 
				" AND PR.ID = I.PRIORITY "
181 
 
182 
	End If
183 
	'	SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
184 
	'	SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
185 
	'	SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
186 
	'	SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
187 
	'	SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
188 
	'	SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
189 
 
190 
	'Response.Write(SSsql)
191 
 
192 
 
193 
	rsTemp.Close
194 
	Set rsTemp = nothing
195 
End Sub
196 
'----------------------------------------------------------------------------------------------------------------------------------------
197 
Sub LastPvId (PvId)
198 
 
199 
 
200 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM archive_manager.PACKAGE_VERSIONS WHERE PV_ID= "& PvId &"", cint(0))
201 
 
202 
 
203 
End Sub
204 
'----------------------------------------------------------------------------------------------------------------------------------------
205 
Function  Get_JIRA_Issues ( SSsql, OOrsCQ )
206 
	If OOrsCQ.State = 1 Then
207 
		OOrsCQ.Close
208 
	End If
209 
 
210 
 
211 
 
212 
	On Error Resume Next
213 
	OOrsCQ.ActiveConnection = JIRA_conn
214 
	OOrsCQ.Source = SSsql
215 
	OOrsCQ.CursorType = 0
216 
	OOrsCQ.CursorLocation = 3
217 
	OOrsCQ.LockType = 3
218 
	OOrsCQ.Open()
219 
 
220 
 
221 
	Get_JIRA_Issues = Err.Number
222 
 
223 
End Function
224 
'----------------------------------------------------------------------------------------------------------------------------------------
225 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
226 
	If OOrsCQ.State = 1 Then
227 
		OOrsCQ.Close
228 
	End If
229 
 
230 
	On Error Resume Next
231 
	OOrsCQ.ActiveConnection = CQ_conn
232 
	OOrsCQ.Source = SSsql
233 
	OOrsCQ.CursorType = 0
234 
	OOrsCQ.CursorLocation = 2
235 
	OOrsCQ.LockType = 3
236 
	OOrsCQ.Open()
237 
 
238 
	Get_CQ_Issues = Err.Number
239 
 
240 
End Function
241 
'----------------------------------------------------------------------------------------------------------------------------------------
242 
Function Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )
243 
	Dim recCnt
244 
	If OOrsCQ.State = 1 Then
245 
		OOrsCQ.Close
246 
	End If
247 
 
248 
	OOrsCQ.ActiveConnection = CQ_conn
249 
	OOrsCQ.Source = SSsql
250 
	OOrsCQ.CursorType = 0
251 
	OOrsCQ.CursorLocation = 2
252 
	OOrsCQ.LockType = 3
253 
 
254 
	On Error Resume Next
255 
	OOrsCQ.Open()
256 
 
257 
	' Exit with error if error occurs
258 
	Get_Dependency_CQ_Issues = Err.Number
259 
	If Err.Number <> 0 Then Exit Function
260 
 
261 
 
262 
	recCnt = 1
263 
 
264 
	While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))
265 
		ReDim Preserve AAiss( 6, recCnt )
266 
		'If NOT DDdepIss.Exists Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")) Then
267 
			DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)
268 
		'End If
269 
		AAiss( enumLoc_iss_db, recCnt ) 	= OOrsCQ("iss_db")
270 
		AAiss( enumLoc_iss_id, recCnt ) 	= OOrsCQ("iss_id")
271 
		AAiss( enumLoc_iss_num, recCnt )	= OOrsCQ("iss_num")
272 
		AAiss( enumLoc_summary, recCnt )	= OOrsCQ("summary")
273 
		AAiss( enumLoc_status, recCnt ) 	= OOrsCQ("status")
274 
		AAiss( enumLoc_priority, recCnt ) 	= OOrsCQ("priority")
275 
		AAiss( enumLoc_issue_type, recCnt ) = OOrsCQ("issue_type")
276 
 
277 
		recCnt = recCnt + 1
278 
		OOrsCQ.MoveNext
279 
	WEnd
280 
 
281 
	OOrsCQ.Close
282 
End Function
283 
'----------------------------------------------------------------------------------------------------------------------------------------
284 
Function FormatPath ( SSpath )
285 
	If (SSpath = "") Then
286 
		FormatPath = ""
287 
		Exit Function
288 
	End If
289 
 
290 
	If (InStr(1, LCase(SSpath), "http") = 1) OR (InStr(1, LCase(SSpath), "www") = 1) Then
291 
		' Source path is URL
292 
		FormatPath = "<a href='"& SSpath &"' class='txt_linked'>"& SSpath &"</a>"
293 
	Else
294 
		FormatPath = SSpath
295 
	End If
296 
 
297 
End Function
298 
'----------------------------------------------------------------------------------------------------------------------------------------
299 
Sub Group_By ( rsG, styleG, currG )
300 
	If rsG = currG Then Exit Sub
301 
	Response.write styleG
302 
	'currG = rsG
303 
End Sub
304 
'----------------------------------------------------------------------------------------------------------------------------------------
305 
Sub CheckUnitTestsState ( nPv_id, outMSG, outMSG_ID, outNote, outTestsFound )
306 
	Dim sqlstr, rsTemp
307 
	sqlstr = ReadFile( rootPath & "queries\unit_test_entries_check.sql" )
308 
	sqlstr = Replace( sqlstr, ":PV_ID", nPv_id)
309 
	sqlstr = Replace( sqlstr, ":enumTEST_TYPE_NOT_DONE", enumTEST_TYPE_NOT_DONE)
310 
 
311 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
312 
 
313 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
314 
		outMSG = rsTemp("msg")
315 
		outMSG_ID = CInt(rsTemp("msg_id"))
316 
		outNote = rsTemp("test_summary")
317 
		outTestsFound = FALSE
318 
 
319 
		If IsNull(rsTemp("msg")) Then outTestsFound = TRUE
320 
	End If
321 
 
322 
	rsTemp.Close
323 
	Set rsTemp = nothing
324 
End Sub
325 
'----------------------------------------------------------------------------------------------------------------------------------------
326 
Function FormatAccepted ( sAccepted, nTest_id )
327 
	Dim tempSTR
328 
	If IsNull(nTest_id) Then Exit Function
329 
 
330 
	tempSTR = ""
331 
 
332 
	tempSTR = "<select name='acc"& nTest_id &"' class='form_item'>"
333 
 
334 
	If sAccepted = enumUNIT_TEST_ACCEPTED Then
335 
		tempSTR = tempSTR  &"<option></option>"&_
336 
							"<option value='"& enumUNIT_TEST_ACCEPTED &"' SELECTED>Yes</option>"&_
337 
							"<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
338 
 
339 
	ElseIf sAccepted = enumUNIT_TEST_NOTACCEPTED Then
340 
		tempSTR = tempSTR  &"<option></option>"&_
341 
							"<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
342 
							"<option value='"& enumUNIT_TEST_NOTACCEPTED &"' SELECTED>No</option>"
343 
 
344 
	Else
345 
		tempSTR = tempSTR  &"<option SELECTED></option>"&_
346 
							"<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
347 
							"<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
348 
 
349 
	End If
350 
 
351 
	tempSTR = tempSTR & "</select>"
352 
 
353 
	FormatAccepted = tempSTR
354 
 
355 
End Function
356 
'----------------------------------------------------------------------------------------------------------------------------------------
357 
Function SQL_CodeReview ( nPv_id )
358 
	SQL_CodeReview = _
359 
	"   SELECT cr.date_of_review, cr.time_spent, cr.review_reason, cr.rteam_domain_expert,"&_
360 
	"	       cr.rteam_language_expert, cr.rteam_peer_developer, cr.rteam_author,"&_
361 
	"	       cr.files_reviewed, cr.review_results, cr.issues_raised,"&_
362 
	"	       cr.review_comments, cr.fnc_s_meets_functionality,"&_
363 
	"	       cr.fnc_c_meets_functionality"&_
364 
	"	  FROM archive_manager.code_reviews cr"&_
365 
	"	 WHERE cr.pv_id = "& nPv_id
366 
End Function
367 
'----------------------------------------------------------------------------------------------------------------------------------------
368 
Function SQL_Build_Env ( nPv_id )
369 
	SQL_Build_Env = _
370 
	" SELECT pv.*, bm.BM_ID,"&_
371 
	"		   bm.BM_NAME,"&_
372 
	"		   pkgbinfo.BSA_ID"&_
373 
	"	  FROM archive_manager.PACKAGE_BUILD_INFO pkgbinfo,"&_
374 
	"	  	   archive_manager.BUILD_MACHINES bm,"&_
375 
	"	  	   archive_manager.PACKAGE_VERSIONS pv"&_
376 
	"	 WHERE pkgbinfo.BM_ID = bm.BM_ID"&_
377 
	"	 AND pv.PV_ID = pkgbinfo.PV_ID"&_
378 
	"	   AND pkgbinfo.PV_ID = "& nPv_id  &_
379 
	"	ORDER BY UPPER(bm.BM_NAME) "
380 
End Function
381 
'----------------------------------------------------------------------------------------------------------------------------------------
382 
Function DecodeOverallResult ( ByVal cCheck )
383 
	If cCheck = "" OR IsNull(cCheck) Then cCheck = 0
384 
 
385 
	Select Case CInt( cCheck )
386 
		Case enumCODE_REVIEW_ACCEPTED
387 
			DecodeOverallResult = "Accepted"
388 
		Case enumCODE_REVIEW_MINOR_UPDATES
389 
			DecodeOverallResult = "Minor updates required"
390 
		Case enumCODE_REVIEW_MAJOR_REWORK
391 
			DecodeOverallResult = "Major rework required"
392 
		Case Else
393 
			DecodeOverallResult = ""
394 
	End Select
395 
 
396 
End Function
397 
'-----------------------------------------------------------------------------------------------------------------------------------
398 
Function GetBuildType ( nBuildType )
399 
 
400 
	If (NOT IsNull(nBuildType)) OR (NOT nBuildType = "") Then
401 
 
402 
		If ( CInt(nBuildType) = enumDB_BUILD_TYPE_NONE ) Then
403 
			GetBuildType = "Build type not specified!"
404 
		Else
405 
			GetBuildType = GetBuildTypeString( nBuildType )
406 
		End If
407 
 
408 
	Else
409 
		GetBuildType = GetBuildTypeString( nBuildType )
410 
 
411 
	End If
412 
 
413 
	'' Wrap around brackets
414 
	GetBuildType = "("& GetBuildType &")"
415 
 
416 
End Function
417 
'-----------------------------------------------------------------------------------------------------------------------------------
418 
%>
419 
<%
420 
'------------------ MAIN LINE --------------------
421 
'-------------------------------------------------
422 
%>
423 
<!-- PACKAGE INFORMATION --------------------------------------------------------------------------------------------------------------->
424 
					<a name="PACKAGE_INFORMATION"></a>
425 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
426 
					  <tr>
427 
                       	<td class="body_colb"><img src="images/s_info.gif" width="22" height="22" hspace="4" border="0" align="absmiddle">Package Information</td>
428 
						<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>
429 
					  </tr>
430 
					</table>
431 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
432 
					  <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))%>
433 
					  <%If rsQry.RecordCount > 0 Then%>
434 
					  <tr>
435 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Deployable:</strong></td>
436 
		                <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%></td>
437 
		              </tr>
438 
		              <tr>
439 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Label:</strong></td>
440 
		                <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>
441 
		              </tr>
442 
		              <tr>
443 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
444 
		                <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>
445 
		              </tr>
446 
					  <tr>
447 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
448 
		                <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>
449 
		              </tr>
450 
		              <tr>
451 
		                <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
452 
		                <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>
453 
		              </tr>
454 
					   </td>
455 
		              </tr>
456 
		            </table>
457 
		            <br><br>
458 
 
459 
<!-- CHANGE TYPE  ----------------------------------------------------------------------------------------------------------------------->
460 
				    <%If rsQry("build_type") = "A" Then%>
461 
					<fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Change Type</legend>
462 
					<a name="CHANGE_TYPE"></a>
463 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
464 
					  <tr><td background="images/bg_form_lightgray.gif">
465 
				    <%
466 
					If rsQry("change_type") <> "" Then
467 
						Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
468 
						Response.write "<tr>"
469 
 
470 
						If rsQry("change_type") = "M" Then
471 
							Response.write "<td class='sublbox_txt'>Major Change.<br></td>"
472 
 
473 
						ElseIf rsQry("change_type") = "N" Then
474 
							Response.write "<td class='sublbox_txt'>Minor Change.<br></td>"
475 
 
476 
						ElseIf rsQry("change_type") = "P" Then
477 
							Response.write "<td class='sublbox_txt'>Patch Change.<br></td>"
478 
 
479 
						End If
480 
 
481 
						Response.write "</tr>"
482 
						Response.write "</table>"
483 
					Else
484 
						Response.write "<span class='err_alert'>Required!</span><br>"
485 
					End If
486 
					%></td></tr>
487 
					</table>
488 
					</fieldset>
489 
					<br><br>
490 
					<%End If%>
491 
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
492 
					<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>
493 
					<a name="REASON_FOR_THIS_RELEASE"></a>
494 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
495 
					  <tr>
496 
 
497 
                       	<td align="right" valign="bottom">
498 
                       	<%If pageIsEditable Then%>
499 
						<form name="updateversions" method="post" action="_update_versions.asp">
500 
						<input type="submit" name="btn" value="Update Dependencies" class="form_btn" onClick="return confirmAction('Current comments would be deleted. Do you wish to continue?')">
501 
						<a href='javascript:;' onClick="MM_openBrWindow('_wform_reason_for_version.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ReasonForRelease','resizable=yes,width=400,height=250')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><span class="form_field">
502 
						<input name="pv_id" type="hidden" value="<%=parPv_id%>">
503 
						<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
504 
                       	</span>
505 
						</form>
506 
						<%End If%></td>
507 
					  </tr>
508 
 
509 
					</table>
510 
 
511 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
512 
					  <tr><td background="images/bg_form_lightgray.gif">
513 
				    <%
514 
					If rsQry("comments") <> "" Then
515 
						Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
516 
						Response.write "<tr>"
517 
						Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry("comments") ) ) &"<br></td>"
518 
						Response.write "</tr>"
519 
						Response.write "</table>"
520 
					Else
521 
						If FixedIssues ( parPv_id ) Then
522 
							Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
523 
						Else
524 
							Response.write "<span class='err_alert'>Required!</span><br>"
525 
						End If
526 
					End If
527 
					%></td></tr>
528 
					</table>
529 
					</fieldset>
530 
					<br><br>
531 
<!-- REASON FOR NON_RIPPLE RELEASE ----------------------------------------------------------------------------------------------------------------->
532 
<%
533 
If rsQry("comments") = "Rippled Build." Then
534 
%>
535 
 
536 
					<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>
537 
 
538 
 
539 
 
540 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
541 
					  <tr><td background="images/bg_form_lightgray.gif">
542 
				    <%
543 
					'Dim rsQry
544 
					Call LastPvId(rsQry("pv_id"))
545 
 
546 
					While rsQry("comments") = "Rippled Build."
547 
						Call LastPvId(rsQry("last_pv_id"))
548 
					Wend
549 
 
550 
					If rsQry("comments") <> "" Then
551 
						Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
552 
						Response.write "<tr>"
553 
						Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"
554 
						Response.write "</tr>"
555 
						Response.write "<tr>"
556 
						Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"
557 
						Response.write "</tr>"
558 
 
559 
						Response.write "</table>"
560 
					Else
561 
						If FixedIssues ( parPv_id ) Then
562 
							Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
563 
						Else
564 
							Response.write "<span class='err_alert'>Required!</span><br>"
565 
						End If
566 
					End If
567 
 
568 
					rsQry.Close
569 
					Set rsQry = nothing
570 
					%></td></tr>
571 
					</table>
572 
					</fieldset>
573 
					<br><br>
574 
 
575 
<%
576 
End If
577 
%>
578 
<!-- FIXED ISSUES ----------------------------------------------------------------------------------------------------------------------->
579 
					<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>
580 
					<p class="body_colb"><a name="ISSUES"></a></p>
581 
<%
582 
 
583 
If Request("rtag_id") <> "" Then
584 
	Dim rsProjId
585 
	Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PROJ_ID FROM archive_manager.RELEASE_TAGS WHERE RTAG_ID ="& Request("rtag_id") &"", cint(0))
586 
	tempProjId = rsProjId("proj_id")
587 
	rsProjId.Close()
588 
	Set rsProjId = nothing
589 
End If
590 
If tempProjId = 42 OR tempProjId = 202 Then
591 
%>
592 
					<table width="100%" border="0" cellpadding="2" cellspacing="1">
593 
                      <tr>
594 
                        <td valign="top" class="body_colb">JIRA Issues</td>
595 
                        <td align="right" valign="top"><%If pageIsEditable Then%>
596 
                            <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>
597 
                            <%End If%></td>
598 
<%End If%>
599 
			<%Call Get_JIRA_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%>
600 
			<%retVal = Get_JIRA_Issues ( SQLstr, rsCQ )%>
601 
			<%If (retVal = 0 And rsCQ.RecordCount > 0) Or (tempProjId = 42 OR tempProjId = 202) Then
602 
				If Request("rtag_id") = 0 Then
603 
			%>
604 
					<table width="100%" border="0" cellpadding="2" cellspacing="1">
605 
                      <tr>
606 
                        <td valign="top" class="body_colb">JIRA Issues</td>
607 
			<%	End if%>
608 
 
609 
                       <table width="100%" border="0" cellspacing="1" cellpadding="3">
610 
                         <tr>
611 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
612 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
613 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
614 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
615 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
616 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
617 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
618 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
619 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
620 
                         </tr>
621 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
622 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
623 
                         <tr><%If rsCQ("resolution") = 1 Then %>
624 
							   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
625 
							 <%Else%>
626 
    						   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"></td>
627 
							 <%End If%>
628 
	                       <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>
629 
                           <td background="images/bg_form_lightgray.gif" class="form_item">JIRA</td>
630 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
631 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issuetype")%></td>
632 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
633 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("state")%></td>
634 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
635 
						<%If NOT pageIsEditable Then%>
636 
							<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>
637 
						<%Else%>
638 
							<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>
639 
						<%End If%>
640 
                         </tr>
641 
                         <%rsCQ.MoveNext
642 
					  WEnd
643 
					  rsCQ.Close%>
644 
					  <%Else%>
645 
                         <tr>
646 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
647 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
648 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
649 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
650 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
651 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
652 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
653 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
654 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
655 
                         </tr>
656 
					  <%End If%>
657 
 
658 
                       </table>
659 
			<%End If%>
660 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
661 
 
662 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
663 
					  <tr>
664 
					  	<td valign="top" class="body_colb">Fixed Issues</td>
665 
						<td align="right" valign="top"><%If pageIsEditable Then%>
666 
						<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>
667 
						<%End If%></td>
668 
					  </tr>
669 
					</table>
670 
			<%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%>
671 
			<%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%>
672 
			<%If retVal = 0 Then%>
673 
                       <table width="100%" border="0" cellspacing="1" cellpadding="3">
674 
                         <tr>
675 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
676 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
677 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
678 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
679 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
680 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
681 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
682 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
683 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
684 
                         </tr>
685 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
686 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
687 
                         <tr>
688 
						   <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
689 
                           <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>
690 
                           <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>
691 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
692 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
693 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
694 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
695 
						   <%If sectionIsEditable Then%>
696 
							  <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
697 
						  	  <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>
698 
							  <%Else%>
699 
							  <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>
700 
							  <%End If%>
701 
						   <%Else%>
702 
						      <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
703 
						  	  <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>
704 
							  <%Else%>
705 
  						   	  <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>
706 
							  <%End If%>
707 
						   <%End If%>
708 
						<%If NOT pageIsEditable Then%>
709 
							<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>
710 
						<%Else%>
711 
							<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>
712 
						<%End If%>
713 
                         </tr>
714 
                         <%rsCQ.MoveNext
715 
					  WEnd
716 
					  rsCQ.Close%>
717 
					  <%Else%>
718 
                         <tr>
719 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
720 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
721 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
722 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
723 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
724 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
725 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
726 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
727 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
728 
                         </tr>
729 
					  <%End If%>
730 
 
731 
                       </table>
732 
			<%End If%>
733 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
734 
 
735 
 
736 
 
737 
 
738 
			<table width="100%" border="0" cellspacing="1" cellpadding="2">
739 
					  <tr>
740 
					  	<td valign="top" class="body_colb">Outstanding Issues</td>
741 
						<td align="right" valign="top"><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></td>
742 
					  </tr>
743 
					</table>
744 
			<%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )%>
745 
			<%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%>
746 
			<%If retVal = 0 Then%>
747 
                       <table width="100%" border="0" cellspacing="1" cellpadding="2">
748 
					   <form name="fixedissues" method="get" action="_update_issues_state.asp">
749 
                         <tr>
750 
						   <%If pageIsEditable Then%>
751 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td>
752 
						   <%End If%>
753 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
754 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
755 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
756 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
757 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td>
758 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Status</td>
759 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Note</td>
760 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
761 
                         </tr>
762 
					  <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
763 
                         <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
764 
                         <tr>
765 
					    <%If pageIsEditable Then%>
766 
                           <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>"></td>
767 
						<%End If%>
768 
                           <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>
769 
                           <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>
770 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
771 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
772 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
773 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
774 
						   <%If sectionIsEditable Then%>
775 
							  <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
776 
						  	  <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>
777 
							  <%Else%>
778 
							  <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>
779 
							  <%End If%>
780 
						   <%Else%>
781 
						      <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
782 
						  	  <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>
783 
							  <%Else%>
784 
  						   	  <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>
785 
							  <%End If%>
786 
						   <%End If%>
787 
						<%If NOT objAccessControl.IsActive("DeleteOutstandingIssues") Then%>
788 
							<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>
789 
						<%Else%>
790 
							<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>
791 
						<%End If%>
792 
                         </tr>
793 
                         <%rsCQ.MoveNext
794 
					  WEnd
795 
					  rsCQ.Close%>
796 
					  	<%If pageIsEditable Then%>
797 
					     <tr>
798 
                           <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="submit" name="Apply" value="Apply" class="form_btn"></td>
799 
                           <td></td>
800 
						   <td></td>
801 
						   <td></td>
802 
                           <td></td>
803 
                           <td></td>
804 
						   <td></td>
805 
						   <td></td>
806 
                           <td></td>
807 
                         </tr>
808 
					  	<%End If%>
809 
					  <%Else%>
810 
                         <tr>
811 
						   <%If pageIsEditable Then%>
812 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
813 
						   <%End If%>
814 
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
815 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
816 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
817 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
818 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
819 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
820 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
821 
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
822 
                         </tr>
823 
					  <%End If%>
824 
					  <input name="pv_id" type="hidden" value="<%=parPv_id%>">
825 
					<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
826 
					</form>
827 
                       </table>
828 
			<%End If%>
829 
			<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
830 
 
831 
 
832 
 
833 
 
834 
					</fieldset>
835 
					<br><br>
836 
<!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) ------------------------------------------------------------------------------------------------------->
837 
 
838 
			<%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
839 
					<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>
840 
                    <table width="100%" border="0" cellspacing="1" cellpadding="2">
841 
 
842 
			  <%Call Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )%>
843 
			  <%retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )%>
844 
			  <%If retVal = 0 Then%>
845 
					  <%
846 
					  currG1 = 0
847 
					  G1_template = _
848 
					  "<tr>"&_
849 
					  "  <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_
850 
					  "</tr>"&_
851 
					  "<tr>"&_
852 
                         "  <td colspan='7' background='images/bg_form_lightbluedark.gif' class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_
853 
                         "</tr>"
854 
					  Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))
855 
					  %>
856 
					  <%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%>
857 
                         <%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%>
858 
					  <%
859 
					  iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))
860 
					  G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")
861 
					  If IsNull(rsDepIss("iss_id")) Then
862 
						  If IsNull(rsDepIss("reasons")) Then
863 
						  	G1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")
864 
						  Else
865 
							G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
866 
						  End If
867 
					  Else
868 
					  	  If IsNull(rsDepIss("reasons")) Then
869 
						  	G1_style = Replace(G1_style, "/*REASONS*/", "")
870 
						  Else
871 
							G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
872 
						  End If
873 
					  End If
874 
 
875 
					  Call Group_By ( rsDepIss("pv_id"), G1_style, currG1 )
876 
					  %>
877 
					  <%If NOT IsNull(rsDepIss("iss_id")) Then%>
878 
					  	<%If rsDepIss("pv_id") <> currG1 Then
879 
					      currG1 = rsDepIss("pv_id")
880 
						%>
881 
					     <tr>
882 
					       <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field' align='center'></td>
883 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field' align='center'>Fixed</td>
884 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Issue&nbsp;Id&nbsp;</td>
885 
						   <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
886 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='100%' class='form_field'>Summary</td>
887 
						   <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Issue&nbsp;Type&nbsp;</td>
888 
                           <td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Priority</td>
889 
                         </tr>
890 
					  	<%End If%>
891 
                         <tr>
892 
					    <td background="images/bg_form_lightbluedark.gif"></td>
893 
						<td align="center" nowrap background="images/bg_form_lightgray.gif">
894 
						  <%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%>
895 
						  <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
896 
						  <%Else%>
897 
						  <img src="images/spacer.gif" width="7" height="7" vspace="2">
898 
						  <%End If%></td>
899 
                           <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>
900 
						   <td background="images/bg_form_lightgray.gif" class="form_item"><%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>DEVI<%Else%>TDSE<%End If%></td>
901 
                           <td background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
902 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
903 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
904 
                         </tr>
905 
					  <%End If%>
906 
                         <%rsDepIss.MoveNext
907 
					  WEnd
908 
					  rsDepIss.Close
909 
					  Set rsDepIss = nothing%>
910 
					  <%Else%>
911 
                         <tr>
912 
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
913 
						   <td background="images/bg_form_lightgray.gif"></td>
914 
                           <td background="images/bg_form_lightgray.gif"></td>
915 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
916 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
917 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
918 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
919 
                         </tr>
920 
					  <%End If%>
921 
                       </table>
922 
				<%End If%>
923 
				<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
924 
					   </fieldset>
925 
					   <br><br>
926 
			<%End If%>
927 
<!-- UNIT TESTS --------------------------------------------------------------------------------------------------------------------->
928 
					<%
929 
					Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound
930 
					Call CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound  )
931 
					Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))
932 
					%>
933 
					<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
934 
						<%If testCheckMSG_ID = 0 Then%>
935 
							&nbsp;&nbsp;<%=testCheckMSG%>
936 
						<%End If%></legend>
937 
					<a name="UNIT_TESTS"></a>
938 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
939 
					  <tr>
940 
                       		<td align="right" valign="bottom">
941 
							<%If pageIsEditable Then%>
942 
							<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>
943 
								<%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0)  Then%>
944 
									<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>
945 
								<%End If%>
946 
							<%End If%></td>
947 
					  </tr>
948 
					</table>
949 
					<%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%>
950 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
951 
					  <tr>
952 
                      	<td background="images/bg_form_lightgray.gif" class="form_item"><%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%>
953 
						<span class="rep_small">Last Modified: <%=testCheckMSG%></span><br>
954 
						<%=NewLine_To_BR( To_HTML ( testCheckNote ) )%>
955 
						</td>
956 
					  </tr>
957 
					</table>
958 
				    <%End If%>
959 
 
960 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
961 
					<form name="review" method="get" action="_update_unit_test_accepted_state.asp">
962 
		              <tr>
963 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><img src='images/spacer.gif' width='16' height='16' hspace="3" align="absmiddle">Test</td>
964 
		                <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Test Summary</td>
965 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">Test<br>Completed</td>
966 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">&nbsp;Passed<br># / Total&nbsp;</td>
967 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">&nbsp;Results&nbsp;</td>
968 
		                <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">&nbsp;Accepted&nbsp;</td>
969 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">Review<br>Completed</td>
970 
						<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Comments /<br>Issue#</td>
971 
		                <td width="1%" background="images/bg_form_lightbluedark.gif"></td>
972 
		              </tr>
973 
					  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%>
974 
		              <tr>
975 
						<%If NOT pageIsEditable Then%>
976 
							<%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then%>
977 
							<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>
978 
							<%Else%>
979 
							<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>
980 
							<%End If%>
981 
						<%Else%>
982 
						    <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>
983 
						<%End If%>
984 
		                <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td>
985 
						<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>
986 
						<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top" align="center"><%=rsQry("numof_test")%></td>
987 
 
988 
						<%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then%>
989 
							<td background="images/bg_form_lightgray.gif" class="form_item" align="center" valign="top">
990 
							<%If NOT IsNull( rsQry("results_url") ) Then%>
991 
								<%If InStr( rsQry("results_url"), "http://" ) = 1 Then%>
992 
		                		<a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
993 
								<%Else%>
994 
									<%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
995 
									<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>
996 
									<%Else%>
997 
									<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>
998 
									<%End If%>
999 
								<%End If%>
1000 
							<%End If%>
1001 
							</td>
1002 
						<%Else%>
1003 
							<td background="images/bg_form_lightgray.gif" class="form_item"  align="center" valign="top">
1004 
							<%If NOT IsNull( rsQry("results_attachment_name") ) Then%>
1005 
								<%If pkgInfoHash.Item ("dlocked") = "Y" Then%>
1006 
									<%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1007 
									<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>
1008 
									<%Else%>
1009 
									<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>
1010 
									<%End If%>
1011 
 
1012 
								<%Else%>
1013 
									<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>
1014 
								<%End If%>
1015 
							<%End If%>
1016 
							</td>
1017 
						<%End If%>
1018 
 
1019 
						<td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top" align="center"><%=FormatAccepted( rsQry("test_accepted"), rsQry("test_id") )%></td>
1020 
						<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>
1021 
						<td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td>
1022 
 
1023 
						<%If NOT pageIsEditable Then%>
1024 
							<td background="images/bg_form_lightgray.gif" valign="top"></td>
1025 
						<%Else%>
1026 
							<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>
1027 
						<%End If%>
1028 
		              </tr>
1029 
					  <%rsQry.MoveNext
1030 
					    WEnd%>
1031 
					  <tr>
1032 
		                <td class="form_field"></td>
1033 
						<td class="form_field"></td>
1034 
						<td class="form_field"></td>
1035 
						<td class="form_field"></td>
1036 
						<td class="form_field"></td>
1037 
		                <td class="form_field" align="center"><%If (testCheckTestsFound) AND (testCheckMSG_ID = 0) AND ( scriptName = "fixed_issues.asp" ) Then%><input type="submit" name="Apply" value="Apply" class="form_btn"><%End If%></td>
1038 
						<td class="form_field"></td>
1039 
						<td class="form_field"></td>
1040 
						<td class="form_field"></td>
1041 
		              </tr>
1042 
					<input name="pv_id" type="hidden" value="<%=parPv_id%>">
1043 
					<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1044 
					</form>
1045 
					</table>
1046 
					</fieldset>
1047 
		            <br><br>
1048 
<!-- CODE REVIEW ------------------------------------------------------------------------------------------------------------------->
1049 
					<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>
1050 
		            <a name="CODE_REVIEW" id="CODE_REVIEW"></a>
1051 
					<%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%>
1052 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1053 
                      <tr>
1054 
                        <td align="right" valign="bottom"><%If ( scriptName = "fixed_issues.asp" ) Then%>
1055 
                            <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>
1056 
							<%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%>
1057 
                            <%End If%></td>
1058 
                      </tr>
1059 
                    </table>
1060 
					<%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
1061 
						<%If NOT IsNull(rsQry("date_of_review")) Then%>
1062 
		            <table width="100%"  border="0" cellspacing="1" cellpadding="4">
1063 
                      <tr>
1064 
                        <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Date of Review</td>
1065 
                        <td width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=EuroDate ( rsQry("date_of_review") )%>&nbsp;&nbsp;&nbsp;</td>
1066 
                        <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;&nbsp;&nbsp;Time Spent:</td>
1067 
                        <td width="100%" background="images/bg_form_lightgray.gif" class="form_item"><%=rsQry("time_spent")%> hrs </td>
1068 
                      </tr>
1069 
                      <tr>
1070 
                        <td align="right" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Reason for Review</td>
1071 
                        <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td>
1072 
                      </tr>
1073 
                      <tr>
1074 
                        <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Review Results </td>
1075 
                        <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item">
1076 
		                  <%=DecodeOverallResult( rsQry("review_results") )%>
1077 
		                </td>
1078 
                      </tr>
1079 
                      <tr>
1080 
                        <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issues Raised </td>
1081 
                        <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td>
1082 
                      </tr>
1083 
                    </table>
1084 
						<%Else%>
1085 
						<table width="100%" border="0" cellspacing="1" cellpadding="2">
1086 
						  <tr><td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span>
1087 
					          </td>
1088 
						  </tr>
1089 
						</table>
1090 
						<%End If%>
1091 
					<%Else%>
1092 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1093 
					  <tr><td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span>
1094 
				          </td>
1095 
					  </tr>
1096 
					</table>
1097 
					<%End If%>
1098 
					</fieldset>
1099 
		            <br>
1100 
		            <br>
1101 
<!-- ADDITIONAL NOTES ------------------------------------------------------------------------------------------------------------------->
1102 
					<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>
1103 
					<a name="ADDITIONAL_NOTES"></a>
1104 
					<table width="100%" border="0" cellspacing="1" cellpadding="2">
1105 
					  <tr>
1106 
                      		<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>
1107 
					  </tr>
1108 
					</table>
1109 
		            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1110 
		              <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%>
1111 
					  <%If rsQry.RecordCount < 1 Then%>
1112 
					  <tr>
1113 
                       	<td class="form_field" width="100%" background="images/bg_form_lightgray.gif">&nbsp;</td>
1114 
					  </tr>
1115 
					  <%End If%>
1116 
					  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
1117 
					  <tr>
1118 
		                <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="body_col">
1119 
						<%If pageIsEditable Then%>
1120 
							<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>
1121 
						<%Else%>
1122 
							<%=To_HTML (rsQry("note_title"))%>
1123 
						<%End If%>
1124 
						</td>
1125 
		                <td width="1" background="images/bg_form_lightbluedark.gif">
1126 
						<%If pageIsEditable Then%>
1127 
							<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>
1128 
						<%End If%>
1129 
						</td>
1130 
		              </tr>
1131 
		              <tr>
1132 
		                <td colspan="2" background="images/bg_form_lightgray.gif" class="sublbox_txt">
1133 
						<%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br><br>
1134 
						<span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span></td>
1135 
		              </tr>
1136 
					  <tr>
1137 
		                <td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td>
1138 
		              </tr>
1139 
					  <%rsQry.MoveNext
1140 
					    WEnd%>
1141 
		            </table>
1142 
					</fieldset>
1143 
		            <br><br>
1144 
					<%End If%>