Subversion Repositories DevTools

Rev

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

Rev 62 Rev 64
Line 27... Line 27...
27 
Dim currRowColor
 27 
Dim currRowColor
28 
Dim outORDER_BY
 28 
Dim outORDER_BY
29 
Dim parFilter_on
 29 
Dim parFilter_on
30 
Dim parBase_env_id
 30 
Dim parBase_env_id
31 
Dim objFormCollector
 31 
Dim objFormCollector
- 
 
 32 
Dim a, b, VersionList, sqlstrA
32 
'------------ CONSTANTS DECLARATION -----------
 33 
'------------ CONSTANTS DECLARATION -----------
33 
Const LIMG_FIXED = "<img src='icons/i_tick.gif' border='0' hspace='2' title='Latest Fixed Issue'>"
 34 
Const LIMG_FIXED = "<img src='icons/i_tick.gif' border='0' hspace='2' title='Latest Fixed Issue'>"
34 
Const LIMG_OLD_FIXED = "<img src='icons/i_tick_gray.gif' border='0' hspace='2' title='Old Fixed Issue'>"
 35 
Const LIMG_OLD_FIXED = "<img src='icons/i_tick_gray.gif' border='0' hspace='2' title='Old Fixed Issue'>"
35 
'------------ VARIABLE INIT -------------------
 36 
'------------ VARIABLE INIT -------------------
36 
errNumber = 0
 37 
errNumber = 0
Line 87... Line 88...
87 
'--------------------------------------------------------------------------------------------------------------------------
 88 
'--------------------------------------------------------------------------------------------------------------------------
88 
'----------------------------------------------------------------------------------------------------------------------------------------
 89 
'----------------------------------------------------------------------------------------------------------------------------------------
89 
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
 90 
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
90 
	Dim query, rsCQ
 91 
	Dim query, rsCQ
91
92
- 
 
 93 
	If objFormCollector.Item("rm_projects_fk") = 122 Then
- 
 
 94 
		query = GetQuery ("IssuesList_cqVTSUP.sql")
- 
 
 95 
		query = Replace( query, "/*VTSUPiss*/", nIssID )
- 
 
 96 
	Else
92 
	query = GetQuery ("IssuesList_cqDEVI.sql")
 97 
		query = GetQuery ("IssuesList_cqDEVI.sql")
93 
	query = Replace( query, "/*DEVIiss*/", nIssID )
 98 
		query = Replace( query, "/*DEVIiss*/", nIssID )
- 
 
 99 
	End If
94
100
95 
	Set rsCQ = Server.CreateObject("ADODB.Recordset")
 101 
	Set rsCQ = Server.CreateObject("ADODB.Recordset")
96
102
97 
	nErrNumber = GetCQIssue ( query, rsCQ )
 103 
	nErrNumber = GetCQIssue ( query, rsCQ )
98
104
Line 129... Line 135...
129 
	Else
 135 
	Else
130 
		SetRowColor = ""
 136 
		SetRowColor = ""
131 
	End If
 137 
	End If
132 
End Function
 138 
End Function
133 
'----------------------------------------------------------------------------------------------------------------------------------------
 139 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 140 
Sub PreviousVersions(a, b)
- 
 
 141
- 
 
 142 
	If CLng(a) < CLng(b) Then
- 
 
 143 
		While CLng(a) < CLng(b)
- 
 
 144 
			b = LastPvId(b)
- 
 
 145 
			If CLng(a) < CLng(b) Then
- 
 
 146 
				VersionList = VersionList + ","& b
- 
 
 147 
			End If
- 
 
 148 
		Wend
- 
 
 149 
	End If
- 
 
 150 
 
- 
 
 151 
	If CLng(b) < CLng(a) Then
- 
 
 152 
		While CLng(b) < CLng(a)
- 
 
 153 
			a = LastPvId(a)
- 
 
 154 
			If CLng(b) < CLng(a) Then
- 
 
 155 
				VersionList = VersionList + ","& a
- 
 
 156 
			End If
- 
 
 157 
		Wend
- 
 
 158 
	End If
- 
 
 159
- 
 
 160 
 
- 
 
 161 
End Sub
- 
 
 162 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 163 
Sub GetDependencies(pv_id_a, pv_id_b)
- 
 
 164
- 
 
 165 
	VersionList = "0"
- 
 
 166 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0))
- 
 
 167 
 
- 
 
 168
- 
 
 169 
	If sqlstrA.RecordCount <> 0 Then
- 
 
 170
- 
 
 171 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
- 
 
 172 
			VersionList = VersionList + ","& sqlstrA("dpv_id")
- 
 
 173 
			sqlstrA.MoveNext
- 
 
 174 
		Wend
- 
 
 175 
 
- 
 
 176 
	End If
- 
 
 177
- 
 
 178 
	sqlstrA.Close()
- 
 
 179 
	Set sqlstrA = Nothing
- 
 
 180 
 
- 
 
 181 
End Sub
- 
 
 182 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 183 
Function LastPvId(pvId)
- 
 
 184 
	Dim qryA
- 
 
 185 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
- 
 
 186
- 
 
 187 
	LastPvId = pvId
- 
 
 188
- 
 
 189 
	If pvId <> qryA("last_pv_id") Then
- 
 
 190 
		LastPvId = qryA("last_pv_id")
- 
 
 191 
	Else
- 
 
 192 
		errormsg = true
- 
 
 193 
	End If
- 
 
 194
- 
 
 195 
	qryA.Close()
- 
 
 196 
	Set qryA = Nothing
- 
 
 197 
 
- 
 
 198 
End Function
- 
 
 199 
'----------------------------------------------------------------------------------------------------------------------------------------
134 
%>
 200 
%>
135 
<%
 201 
<%
136 
'------------ RUN BEFORE PAGE RENDER ----------
 202 
'------------ RUN BEFORE PAGE RENDER ----------
137 
' --- Get Form details from DB ---
 203 
' --- Get Form details from DB ---
138 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
 204 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
Line 257... Line 323...
257 
		<hr width="100%" size="1px" noshade color="Black">
 323 
		<hr width="100%" size="1px" noshade color="Black">
258 
		</form>
 324 
		</form>
259
325
260 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 326 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
261 
          <tr>
327 
          <tr>
262 
		  	<td width="1%" nowrap align="right" <%Call DisplayColumn("Fixed", "icon_fixed", outORDER_BY, FALSE)%></td>
 - 
 
263 
            <td width="1%" nowrap align="right" <%Call DisplayColumn("Issue ID", "iss_id", outORDER_BY, TRUE)%></td>
 328 
            <td width="1%" nowrap align="right" <%Call DisplayColumn("Issue ID", "iss_id", outORDER_BY, TRUE)%></td>
264 
			<td width="100%" nowrap align="right" <%Call DisplayColumn("Summary", NULL, outORDER_BY, FALSE)%></td>
 329 
			<td width="100%" nowrap align="right" <%Call DisplayColumn("Summary", NULL, outORDER_BY, FALSE)%></td>
265 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
 330 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
266 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
 331 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
267 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
 332 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
268 
          </tr>
 333 
          </tr>
269 
		  <%
 334 
		  <%
- 
 
 335 
		  VersionList = "0"
- 
 
 336 
		  On Error Resume Next
- 
 
 337 
		  Dim rsQryLast
- 
 
 338 
		  Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("old_prod_id"), cint(0))
- 
 
 339 
 
- 
 
 340 
		  If rsQryLast("last_pv_id") <> Request("prod_id") Then
- 
 
 341 
			Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
- 
 
 342 
		  End If
- 
 
 343 
 
- 
 
 344 
		  Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
- 
 
 345
- 
 
 346 
 
- 
 
 347 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
- 
 
 348 
		  " where cq.iss_db = 7 and pv.pv_id IN ("&VersionList&") and pv.pkg_id = pkg.pkg_id and cq.pv_id = pv.pv_id order by pv.pv_id desc", ORADYN_DEFAULT )
- 
 
 349 
		  'Response.Write VersionList
- 
 
 350 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 351 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
- 
 
 352
- 
 
 353 
			currRowColor = SetRowColor( currRowColor )
- 
 
 354
- 
 
 355 
			If errNumber <> 0 Then Exit Do
- 
 
 356 
		  %>
- 
 
 357 
          <tr>
- 
 
 358 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
- 
 
 359 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
- 
 
 360 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
- 
 
 361 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
- 
 
 362 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
- 
 
 363 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
- 
 
 364 
			<%Else%>
- 
 
 365 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
- 
 
 366 
			<%End If%>
- 
 
 367
- 
 
 368 
          </tr>
- 
 
 369 
		  <%rsQry.MoveNext%>
- 
 
 370
- 
 
 371 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
- 
 
 372 
          <tr>
- 
 
 373 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 374 
          </tr>
- 
 
 375 
		  <%End If%>
- 
 
 376
- 
 
 377 
		  <%
- 
 
 378 
		  Loop
- 
 
 379 
 
- 
 
 380 
		  rsQry.Close()
- 
 
 381 
		  Set rsQry = Nothing
- 
 
 382 
		  rsQryLast.Close()
- 
 
 383 
		  Set rsQryLast = Nothing
- 
 
 384 
 
- 
 
 385 
 
- 
 
 386
- 
 
 387 
 
270 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
388 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
271 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
389 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
272 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
390 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
273
391
- 
 
 392 
		  If objFormCollector.Item("rm_projects_fk") = 122 Then
274 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
 393 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("VTIssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
275
394 
		  Else
- 
 
 395 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
- 
 
 396 
		  End If
- 
 
 397 
 
276 
		  altRowColor = "bgcolor='#F7F7F8'"
 398 
		  altRowColor = "bgcolor='#F7F7F8'"
277 
		  currRowColor = ""
 399 
		  currRowColor = ""
278
400
279 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 401 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
280 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
 402 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
Line 282... Line 404...
282 
			currRowColor = SetRowColor( currRowColor )
 404 
			currRowColor = SetRowColor( currRowColor )
283
405
284 
			If errNumber <> 0 Then Exit Do
 406 
			If errNumber <> 0 Then Exit Do
285 
		  %>
 407 
		  %>
286 
          <tr>
 408 
          <tr>
287 
            <td <%=currRowColor%> nowrap valign="top" align="center"><%=Eval(rsQry("icon_fixed"))%></td>
 - 
 
288 
            <td <%=currRowColor%> nowrap valign="top"><a href="javascript:;" onClick="MM_openBrWindow('<%=RELEASE_MANAGER_URL%>/_wform_issues_details.asp?iss_db=<%=rsQry("iss_db")%>&iss_id=<%=rsQry("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="body_link"><%=objIssueCollector.Item ("iss_num")%></a></td>
 409 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
289 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
 410 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
290 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
 411 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
291 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
 412 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
- 
 
 413 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
- 
 
 414 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
- 
 
 415 
			<%Else%>
292 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
 416 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
- 
 
 417 
			<%End If%>
- 
 
 418
293 
          </tr>
 419 
          </tr>
294 
		  <%rsQry.MoveNext%>
 420 
		  <%rsQry.MoveNext%>
295
421
296 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 422 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
297 
          <tr>
 423 
          <tr>
Line 299... Line 425...
299 
          </tr>
 425 
          </tr>
300 
		  <%End If%>
 426 
		  <%End If%>
301
427
302 
		  <%
 428 
		  <%
303 
		  Loop
 429 
		  Loop
304
- 
 
305 
		  OraDatabase.Parameters.Remove "PROD_ID"
 430 
		  OraDatabase.Parameters.Remove "PROD_ID"
306 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 431 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
307 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
 432 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
- 
 
 433 
 
308 
		  %>
 434 
		  %>
309
435
310
436
311 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
 437 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
312 
		  <tr>
 438 
		  <tr>