Subversion Repositories DevTools

Rev

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

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