Subversion Repositories DevTools

Rev

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

Rev 13 Rev 29
Line 24... Line 24...
24 
Dim errNumber
 24 
Dim errNumber
25 
Dim objIssueCollector
 25 
Dim objIssueCollector
26 
Dim altRowColor
 26 
Dim altRowColor
27 
Dim currRowColor
 27 
Dim currRowColor
28 
Dim outORDER_BY
 28 
Dim outORDER_BY
- 
 
 29 
Dim a, b, VersionList, sqlstrA
29 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
30 
Const LIMG_FIXED = "<img src='icons/i_tick.gif' border='0' hspace='2' title='Latest Fixed Issue'>"
 31 
Const LIMG_FIXED = "<img src='icons/i_tick.gif' border='0' hspace='2' title='Latest Fixed Issue'>"
31 
Const LIMG_OLD_FIXED = "<img src='icons/i_tick_gray.gif' border='0' hspace='2' title='Old Fixed Issue'>"
 32 
Const LIMG_OLD_FIXED = "<img src='icons/i_tick_gray.gif' border='0' hspace='2' title='Old Fixed Issue'>"
32 
'------------ VARIABLE INIT -------------------
 33 
'------------ VARIABLE INIT -------------------
33 
errNumber = 0
 34 
errNumber = 0
Line 80... Line 81...
80 
	Else
 81 
	Else
81 
		SetRowColor = ""
 82 
		SetRowColor = ""
82 
	End If
 83 
	End If
83 
End Function
 84 
End Function
84 
'----------------------------------------------------------------------------------------------------------------------------------------
 85 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 86 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 87 
Sub PreviousVersions(a, b)
- 
 
 88
- 
 
 89 
	If CLng(a) < CLng(b) Then
- 
 
 90 
		While CLng(a) < CLng(b)
- 
 
 91 
			b = LastPvId(b)
- 
 
 92 
			If CLng(a) < CLng(b) Then
- 
 
 93 
				VersionList = VersionList + ","& b
- 
 
 94 
			End If
- 
 
 95 
		Wend
- 
 
 96 
	End If
- 
 
 97 
 
- 
 
 98 
	If CLng(b) < CLng(a) Then
- 
 
 99 
		While CLng(b) < CLng(a)
- 
 
 100 
			a = LastPvId(a)
- 
 
 101 
			If CLng(b) < CLng(a) Then
- 
 
 102 
				VersionList = VersionList + ","& a
- 
 
 103 
			End If
- 
 
 104 
		Wend
- 
 
 105 
	End If
- 
 
 106
- 
 
 107 
 
- 
 
 108 
End Sub
- 
 
 109 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 110 
Sub GetDependencies(pv_id_a, pv_id_b)
- 
 
 111
- 
 
 112 
	VersionList = "0"
- 
 
 113 
	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))
- 
 
 114 
 
- 
 
 115
- 
 
 116 
	If sqlstrA.RecordCount <> 0 Then
- 
 
 117 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
- 
 
 118 
			VersionList = VersionList + ","& sqlstrA("dpv_id")
- 
 
 119 
			sqlstrA.MoveNext
- 
 
 120 
		Wend
- 
 
 121 
	End If
- 
 
 122
- 
 
 123 
	sqlstrA.Close()
- 
 
 124 
	Set sqlstrA = Nothing
- 
 
 125 
 
- 
 
 126 
End Sub
- 
 
 127 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 128 
Function LastPvId(pvId)
- 
 
 129 
	Dim qryA
- 
 
 130 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
- 
 
 131
- 
 
 132 
	LastPvId = pvId
- 
 
 133
- 
 
 134 
	If pvId <> qryA("last_pv_id") Then
- 
 
 135 
		LastPvId = qryA("last_pv_id")
- 
 
 136 
	Else
- 
 
 137 
		errormsg = true
- 
 
 138 
	End If
- 
 
 139
- 
 
 140 
	qryA.Close()
- 
 
 141 
	Set qryA = Nothing
- 
 
 142 
 
- 
 
 143 
End Function
- 
 
 144 
'----------------------------------------------------------------------------------------------------------------------------------------
85 
%>
 145 
%>
86 
<%
 146 
<%
87 
'------------ RUN BEFORE PAGE RENDER ----------
 147 
'------------ RUN BEFORE PAGE RENDER ----------
88 
'----------------------------------------------
 148 
'----------------------------------------------
89 
%>
 149 
%>
Line 164... Line 224...
164 
		<%
 224 
		<%
165 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
225 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
166 
		%>
 226 
		%>
167 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
 227 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
168 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
 228 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
169 
			<select name="old_prod_id" class="form_ivalue" disabled>
 229 
			<select name="old_prod_id" class="form_ivalue">
170 
			   <option value=""></option>
 230 
			   <option value=""></option>
171 
			  <%
 231 
			  <%
172 
			  Dim nOldProdID
 232 
			  Dim nOldProdID
173 
			  nOldProdID = Request("old_prod_id")
 233 
			  nOldProdID = Request("old_prod_id")
174 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
 234 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
Line 192... Line 252...
192 
			  OraDatabase.Parameters.Remove "V_EXT"
 252 
			  OraDatabase.Parameters.Remove "V_EXT"
193 
			  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 253 
			  OraDatabase.Parameters.Remove "OLD_PROD_ID"
194 
			  %>
 254 
			  %>
195 
			</select>
 255 
			</select>
196 
			<%=objPMod.ComposeHiddenTags()%>
 256 
			<%=objPMod.ComposeHiddenTags()%>
197 
			<input type="submit" name="btn" value="Compare" class="form_btn" disabled>
 257 
			<input type="submit" name="btn" value="Compare" class="form_btn">
198 
		<hr width="100%" size="1px" noshade color="Black">
 258 
		<hr width="100%" size="1px" noshade color="Black">
199 
		</form>
 259 
		</form>
200
260
201 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 261 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
202 
          <tr>
262 
          <tr>
Line 206... Line 266...
206 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
 266 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
207 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
 267 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
208 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
 268 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
209 
          </tr>
 269 
          </tr>
210 
		  <%
 270 
		  <%
- 
 
 271 
 
211 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
272 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
212 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
273 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
213 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
274 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
214
275
215 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
 276 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
Line 244... Line 305...
244 
		  Loop
 305 
		  Loop
245
306
246 
		  OraDatabase.Parameters.Remove "PROD_ID"
 307 
		  OraDatabase.Parameters.Remove "PROD_ID"
247 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 308 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
248 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
 309 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
- 
 
 310 
 
- 
 
 311 
		  VersionList = "0"
- 
 
 312 
		  On Error Resume Next
- 
 
 313 
		  Dim rsQryLast
- 
 
 314 
		  Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("prod_id"), cint(0))
- 
 
 315 
 
- 
 
 316 
 
- 
 
 317 
		  If rsQryLast("last_pv_id") <> Request("old_prod_id") Then
- 
 
 318 
			Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
- 
 
 319 
		  End If
- 
 
 320 
 
- 
 
 321 
		  Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
- 
 
 322
- 
 
 323 
 
- 
 
 324 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
- 
 
 325 
		  " where 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 )
- 
 
 326 
		  'Response.Write VersionList
- 
 
 327 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 328 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
- 
 
 329
- 
 
 330 
			currRowColor = SetRowColor( currRowColor )
- 
 
 331
- 
 
 332 
			If errNumber <> 0 Then Exit Do
- 
 
 333 
		  %>
- 
 
 334 
          <tr>
- 
 
 335 
			<td <%=currRowColor%> nowrap valign="top" align="center"><%=Eval("LIMG_OLD_FIXED")%></td>
- 
 
 336 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
- 
 
 337 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
- 
 
 338 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
- 
 
 339 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
- 
 
 340 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
- 
 
 341 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
- 
 
 342 
			<%Else%>
- 
 
 343 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
- 
 
 344 
			<%End If%>
- 
 
 345
- 
 
 346 
          </tr>
- 
 
 347 
		  <%rsQry.MoveNext%>
- 
 
 348
- 
 
 349 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
- 
 
 350 
          <tr>
- 
 
 351 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 352 
          </tr>
- 
 
 353 
		  <%End If%>
- 
 
 354
- 
 
 355 
		  <%
- 
 
 356 
		  Loop
- 
 
 357 
 
- 
 
 358 
		  rsQry.Close()
- 
 
 359 
		  Set rsQry = Nothing
- 
 
 360 
		  rsQryLast.Close()
- 
 
 361 
		  Set rsQryLast = Nothing
249 
		  %>
 362 
		  %>
250
363
251
364
252 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
 365 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
253 
		  <tr>
 366 
		  <tr>