Subversion Repositories DevTools

Rev

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

Rev 4554 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          Product Issues 			 	 |
 5 
'|			          Product Issues 			 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_product_common.asp"-->
 16 
<!--#include file="common/_product_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
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 
Dim a, b, VersionList, sqlstrA
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
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'>"
32 
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'>"
33 
'------------ VARIABLE INIT -------------------
 33 
'------------ VARIABLE INIT -------------------
34 
errNumber = 0
 34 
errNumber = 0
35 
Set objIssueCollector = CreateObject("Scripting.Dictionary")
 35 
Set objIssueCollector = CreateObject("Scripting.Dictionary")
36 
'------------ CONDITIONS ----------------------
 36 
'------------ CONDITIONS ----------------------
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
%>
 38 
%>
39 
<%
 39 
<%
40 
'----------------------------------------------------------------------------------------------------------------------------------------
 40 
'----------------------------------------------------------------------------------------------------------------------------------------
41 
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
 41 
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
42 
	Dim query, rsCQ
 42 
	Dim query, rsCQ
43
43
44 
	query = GetQuery ("IssuesList_cqDEVI.sql")
 44 
	query = GetQuery ("IssuesList_cqDEVI.sql")
45 
	query = Replace( query, "/*DEVIiss*/", nIssID )
 45 
	query = Replace( query, "/*DEVIiss*/", nIssID )
46
46
47 
	Set rsCQ = Nothing
 47 
	Set rsCQ = Nothing
48
48
49 
	nErrNumber = GetCQIssue ( query, rsCQ )
 49 
	nErrNumber = GetCQIssue ( query, rsCQ )
50
50
51 
	If nErrNumber = 0 Then
 51 
	If nErrNumber = 0 Then
52 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 52 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
53 
			oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
 53 
			oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
54 
			oIssueCollector.Item ("iss_num") = CStr( rsCQ("iss_num") )
 54 
			oIssueCollector.Item ("iss_num") = CStr( rsCQ("iss_num") )
55 
			oIssueCollector.Item ("summary") = CStr( rsCQ("summary") )
 55 
			oIssueCollector.Item ("summary") = CStr( rsCQ("summary") )
56 
			oIssueCollector.Item ("status") = CStr( rsCQ("status") )
 56 
			oIssueCollector.Item ("status") = CStr( rsCQ("status") )
57 
			oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
 57 
			oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
58 
			oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
 58 
			oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
59
59
60 
		End If
 60 
		End If
61 
	End If
 61 
	End If
62 
 
 62 
 
63 
	Set rsCQ = Nothing
 63 
	Set rsCQ = Nothing
64
64
65 
End Sub
 65 
End Sub
66 
'----------------------------------------------------------------------------------------------------------------------------------------
 66 
'----------------------------------------------------------------------------------------------------------------------------------------
67 
Function  GetCQIssue ( sSQL, oRsCQ )
 67 
Function  GetCQIssue ( sSQL, oRsCQ )
68 
 
 68 
 
69 
    On Error Resume Next
 69 
    On Error Resume Next
70 
    Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
 70 
    Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
71 
    GetCQIssue = Err.Number
 71 
    GetCQIssue = Err.Number
72
72
73 
End Function
 73 
End Function
74 
'----------------------------------------------------------------------------------------------------------------------------------------
 74 
'----------------------------------------------------------------------------------------------------------------------------------------
75 
Function SetRowColor( cRowColor )
 75 
Function SetRowColor( cRowColor )
76 
	If cRowColor = "" Then
 76 
	If cRowColor = "" Then
77 
		SetRowColor = altRowColor
 77 
		SetRowColor = altRowColor
78 
	Else
 78 
	Else
79 
		SetRowColor = ""
 79 
		SetRowColor = ""
80 
	End If
 80 
	End If
81 
End Function
 81 
End Function
82 
'----------------------------------------------------------------------------------------------------------------------------------------
 82 
'----------------------------------------------------------------------------------------------------------------------------------------
83 
'----------------------------------------------------------------------------------------------------------------------------------------
 83 
'----------------------------------------------------------------------------------------------------------------------------------------
84 
Sub PreviousVersions(a, b)
 84 
Sub PreviousVersions(a, b)
85
85
86 
	If CLng(a) < CLng(b) Then
 86 
	If CLng(a) < CLng(b) Then
87 
		While CLng(a) < CLng(b)
 87 
		While CLng(a) < CLng(b)
88 
			b = LastPvId(b)
 88 
			b = LastPvId(b)
89 
			If CLng(a) < CLng(b) Then
 89 
			If CLng(a) < CLng(b) Then
90 
				VersionList = VersionList + ","& b
 90 
				VersionList = VersionList + ","& b
91 
			End If
 91 
			End If
92 
		Wend
 92 
		Wend
93 
	End If
93 
	End If
94 
 
 94 
 
95 
	If CLng(b) < CLng(a) Then
 95 
	If CLng(b) < CLng(a) Then
96 
		While CLng(b) < CLng(a)
 96 
		While CLng(b) < CLng(a)
97 
			a = LastPvId(a)
 97 
			a = LastPvId(a)
98 
			If CLng(b) < CLng(a) Then
 98 
			If CLng(b) < CLng(a) Then
99 
				VersionList = VersionList + ","& a
 99 
				VersionList = VersionList + ","& a
100 
			End If
 100 
			End If
101 
		Wend
101 
		Wend
102 
	End If
 102 
	End If
103
103
104 
 
 104 
 
105 
End Sub
 105 
End Sub
106 
'----------------------------------------------------------------------------------------------------------------------------------------
 106 
'----------------------------------------------------------------------------------------------------------------------------------------
107 
Sub GetDependencies(pv_id_a, pv_id_b)
 107 
Sub GetDependencies(pv_id_a, pv_id_b)
108
108
109 
	VersionList = "0"
 109 
	VersionList = "0"
110 
	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))
110 
	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))
111 
 
 111 
 
112
112
113 
	If sqlstrA.RecordCount <> 0 Then
 113 
	If sqlstrA.RecordCount <> 0 Then
114 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
 114 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
115 
			VersionList = VersionList + ","& sqlstrA("dpv_id")
 115 
			VersionList = VersionList + ","& sqlstrA("dpv_id")
116 
			sqlstrA.MoveNext
 116 
			sqlstrA.MoveNext
117 
		Wend
 117 
		Wend
118 
	End If
 118 
	End If
119
119
120 
	sqlstrA.Close()
 120 
	sqlstrA.Close()
121 
	Set sqlstrA = Nothing
 121 
	Set sqlstrA = Nothing
122 
 
 122 
 
123 
End Sub
 123 
End Sub
124 
'----------------------------------------------------------------------------------------------------------------------------------------
 124 
'----------------------------------------------------------------------------------------------------------------------------------------
125 
Function LastPvId(pvId)
 125 
Function LastPvId(pvId)
126 
	Dim qryA
 126 
	Dim qryA
127 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
 127 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
128
128
129 
	LastPvId = pvId
 129 
	LastPvId = pvId
130
130
131 
	If pvId <> qryA("last_pv_id") Then
131 
	If pvId <> qryA("last_pv_id") Then
132 
		LastPvId = qryA("last_pv_id")
 132 
		LastPvId = qryA("last_pv_id")
133 
	Else
133 
	Else
134 
		errormsg = true
 134 
		errormsg = true
135 
	End If
 135 
	End If
136
136
137 
	qryA.Close()
 137 
	qryA.Close()
138 
	Set qryA = Nothing
 138 
	Set qryA = Nothing
139 
 
 139 
 
140 
End Function
 140 
End Function
141 
'----------------------------------------------------------------------------------------------------------------------------------------
 141 
'----------------------------------------------------------------------------------------------------------------------------------------
142 
%>
 142 
%>
143 
<%
 143 
<%
144 
'------------ RUN BEFORE PAGE RENDER ----------
 144 
'------------ RUN BEFORE PAGE RENDER ----------
145 
'----------------------------------------------
 145 
'----------------------------------------------
146 
%>
 146 
%>
147 
<html>
 147 
<html>
148 
<head>
 148 
<head>
149 
<title>Deployment Manager</title>
 149 
<title>Deployment Manager</title>
150 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 150 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
151 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 151 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
152 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 152 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
153 
<script language="JavaScript" src="scripts/common.js"></script>
 153 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
154 
</head>
 154 
<script language="JavaScript" src="scripts/common.js"></script>
155 
 
 155 
</head>
156 
<body leftmargin="0" topmargin="0">
 156 
 
157 
<!-- HEADER ++++++++++++++++ -->
 157 
<body leftmargin="0" topmargin="0">
158 
<!--#include file="_header.asp"-->
 158 
<!-- HEADER ++++++++++++++++ -->
159 
<!-- +++++++++++++++++++++++ -->
 159 
<!--#include file="_header.asp"-->
160 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
 160 
<!-- +++++++++++++++++++++++ -->
161 
<!--#include file="_main_menu.asp"-->
 161 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
162 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 162 
<!--#include file="_main_menu.asp"-->
163 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 163 
<!-- +++++++++++++++++++++++++++++++++++++ -->
164 
  <tr>
 164 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
165 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 165 
  <tr>
166 
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
 166 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
167 
	<!--#include file="_bom_browser.asp"-->
 167 
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
168 
	<!-- END OF NODE BROWSER +++++++++++++++ -->
 168 
	<!--#include file="_bom_browser.asp"-->
169 
	</td>
 169 
	<!-- END OF NODE BROWSER +++++++++++++++ -->
170 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 170 
	</td>
171 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 171 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
172 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 172 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
173 
	  <tr>
 173 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
174 
        <td valign="top" background="images/bg_blue.gif"></td>
 174 
	  <tr>
175 
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
 175 
        <td valign="top" background="images/bg_blue.gif"></td>
176 
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
 176 
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
177 
      </tr>
 177 
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
178 
      <tr>
 178 
      </tr>
179 
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
 179 
      <tr>
180 
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
 180 
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
181 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 181 
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
182 
		<!--#include file="_tabs_definition.asp"-->
 182 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
183 
		<%
 183 
		<!--#include file="_tabs_definition.asp"-->
184 
		Set objTabControl = New TabControl
 184 
		<%
185 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
 185 
		Set objTabControl = New TabControl
186 
		objTabControl.TabStyle = "StyleWinXP"
 186 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
187 
		objTabControl.AddTabDefnition ( arrProdTabDef )
 187 
		objTabControl.TabStyle = "StyleWinXP"
188 
		objTabControl.SelectByName ("Issues")
 188 
		objTabControl.AddTabDefnition ( arrProdTabDef )
189 
		objTabControl.Render ()
 189 
		objTabControl.SelectByName ("Issues")
190 
		%>
 190 
		objTabControl.Render ()
191 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 191 
		%>
192 
		</td>
 192 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
193 
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
 193 
		</td>
194 
        </tr>
 194 
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
195 
      <tr>
 195 
        </tr>
196 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 196 
      <tr>
197 
        <td background="images/bg_bage_0.gif">
 197 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
198 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 198 
        <td background="images/bg_bage_0.gif">
199 
		<%
 199 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
200 
		'-- Define Action buttons on this tab
 200 
		<%
201 
		'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs")
 201 
		'-- Define Action buttons on this tab
202
202 
		'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs")
203 
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 203
204
204 
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
205 
		'objBtnControl.Render( aTabBtnsDef )
 205
206 
		%>
 206 
		'objBtnControl.Render( aTabBtnsDef )
207 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 207 
		%>
208 
		</td>
 208 
		<!-- +++++++++++++++++++++++++++++++++++ -->
209 
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 209 
		</td>
210 
        </tr>
 210 
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
211 
      <tr>
 211 
        </tr>
212 
        <td>&nbsp;</td>
 212 
      <tr>
213 
        <td>&nbsp;</td>
 213 
        <td>&nbsp;</td>
214 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
 214 
        <td>&nbsp;</td>
215 
        </tr>
 215 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
216 
    </table>
 216 
        </tr>
217 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 217 
    </table>
218 
      <tr>
 218 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
219 
        <td>
 219 
      <tr>
220 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 220 
        <td>
221 
		<%
 221 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
222 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
222 
		<%
223 
		%>
 223 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
224 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
 224 
		%>
225 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
 225 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
226 
			<select name="old_prod_id" class="form_ivalue">
 226 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
227 
			   <option value=""></option>
 227 
			<select name="old_prod_id" class="form_ivalue">
228 
			  <%
 228 
			   <option value=""></option>
229 
			  Dim nOldProdID
 229 
			  <%
230 
			  nOldProdID = Request("old_prod_id")
 230 
			  Dim nOldProdID
231 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
 231 
			  nOldProdID = Request("old_prod_id")
232
232 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
233
233
234 
			  OraDatabase.Parameters.Add "PKG_ID", 		objProdCollector.Item ("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
234
235 
			  OraDatabase.Parameters.Add "V_EXT", 		objProdCollector.Item ("v_ext"),	ORAPARM_INPUT, ORATYPE_NUMBER
235 
			  OraDatabase.Parameters.Add "PKG_ID", 		objProdCollector.Item ("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
236 
			  OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID,	ORAPARM_INPUT, ORATYPE_NUMBER
236 
			  OraDatabase.Parameters.Add "V_EXT", 		objProdCollector.Item ("v_ext"),	ORAPARM_INPUT, ORATYPE_NUMBER
237
237 
			  OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID,	ORAPARM_INPUT, ORATYPE_NUMBER
238 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsCombo.sql"), ORADYN_DEFAULT )
 238
239 
			  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 239 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsCombo.sql"), ORADYN_DEFAULT )
240 
			  %>
 240 
			  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
241 
				<option value="<%=rsQry("pv_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_version")%></option>
 241 
			  %>
242 
			  <%
 242 
				<option value="<%=rsQry("pv_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_version")%></option>
243 
			  	rsQry.MoveNext
 243 
			  <%
244 
			  WEnd
 244 
			  	rsQry.MoveNext
245 
			  rsQry.Close
 245 
			  WEnd
246
246 
			  rsQry.Close
247 
			  OraDatabase.Parameters.Remove "PROD_ID"
 247
248 
			  OraDatabase.Parameters.Remove "PKG_ID"
 248 
			  OraDatabase.Parameters.Remove "PROD_ID"
249 
			  OraDatabase.Parameters.Remove "V_EXT"
 249 
			  OraDatabase.Parameters.Remove "PKG_ID"
250 
			  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 250 
			  OraDatabase.Parameters.Remove "V_EXT"
251 
			  %>
 251 
			  OraDatabase.Parameters.Remove "OLD_PROD_ID"
252 
			</select>
 252 
			  %>
253 
			<%=objPMod.ComposeHiddenTags()%>
 253 
			</select>
254 
			<input type="submit" name="btn" value="Compare" class="form_btn">
 254 
			<%=objPMod.ComposeHiddenTags()%>
255 
		<hr width="100%" size="1px" noshade color="Black">
 255 
			<input type="submit" name="btn" value="Compare" class="form_btn">
256 
		</form>
 256 
		<hr width="100%" size="1px" noshade color="Black">
257
257 
		</form>
258 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 258
259 
          <tr>
259 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
260 
		  	<td width="1%" nowrap align="right" <%Call DisplayColumn("Fixed", "icon_fixed", outORDER_BY, FALSE)%></td>
 260 
          <tr>
261 
            <td width="1%" nowrap align="right" <%Call DisplayColumn("Issue ID", "iss_id", outORDER_BY, TRUE)%></td>
 261 
		  	<td width="1%" nowrap align="right" <%Call DisplayColumn("Fixed", "icon_fixed", outORDER_BY, FALSE)%></td>
262 
			<td width="100%" nowrap align="right" <%Call DisplayColumn("Summary", NULL, outORDER_BY, FALSE)%></td>
 262 
            <td width="1%" nowrap align="right" <%Call DisplayColumn("Issue ID", "iss_id", outORDER_BY, TRUE)%></td>
263 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
 263 
			<td width="100%" nowrap align="right" <%Call DisplayColumn("Summary", NULL, outORDER_BY, FALSE)%></td>
264 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
 264 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
265 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
 265 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
266 
          </tr>
 266 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
267 
		  <%
 267 
          </tr>
268 
 
 268 
		  <%
269 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
269 
 
270 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
270 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
271 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
271 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
272
272 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
273 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
 273
274
274 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
275 
		  altRowColor = "bgcolor='#F7F7F8'"
 275
276 
		  currRowColor = ""
 276 
		  altRowColor = "bgcolor='#F7F7F8'"
277
277 
		  currRowColor = ""
278 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 278
279 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
 279 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
280
280 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
281 
			currRowColor = SetRowColor( currRowColor )
 281
282
282 
			currRowColor = SetRowColor( currRowColor )
283 
			If errNumber <> 0 Then Exit Do
 283
284 
		  %>
 284 
			If errNumber <> 0 Then Exit Do
285 
          <tr>
 285 
		  %>
286 
            <td <%=currRowColor%> nowrap valign="top" align="center"><%=Eval(rsQry("icon_fixed"))%></td>
 286 
          <tr>
287 
            <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>
 287 
            <td <%=currRowColor%> nowrap valign="top" align="center"><%=Eval(rsQry("icon_fixed"))%></td>
288 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></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>
289 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
 289 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
290 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
 290 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
291 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
 291 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
292 
          </tr>
 292 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
293 
		  <%rsQry.MoveNext%>
 293 
          </tr>
294
294 
		  <%rsQry.MoveNext%>
295 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 295
296 
          <tr>
 296 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
297 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
 297 
          <tr>
298 
          </tr>
 298 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
299 
		  <%End If%>
 299 
          </tr>
300
300 
		  <%End If%>
301 
		  <%
 301
302 
		  Loop
 302 
		  <%
303
303 
		  Loop
304 
		  OraDatabase.Parameters.Remove "PROD_ID"
 304
305 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 305 
		  OraDatabase.Parameters.Remove "PROD_ID"
306 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
 306 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
307 
 
 307 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
308 
		  VersionList = "0"
308 
 
309 
		  On Error Resume Next
 309 
		  VersionList = "0"
310 
		  Dim rsQryLast
 310 
		  On Error Resume Next
311 
		  Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("prod_id"), cint(0))
311 
		  Dim rsQryLast
312 
 
 312 
		  Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("prod_id"), cint(0))
313 
 
 313 
 
314 
		  If rsQryLast("last_pv_id") <> Request("old_prod_id") Then
314 
 
315 
			Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
 315 
		  If rsQryLast("last_pv_id") <> Request("old_prod_id") Then
316 
		  End If
 316 
			Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
317 
 
 317 
		  End If
318 
		  Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
 318 
 
319
319 
		  Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
320 
 
 320
321 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
 321 
 
322 
		  " 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 )
 322 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
323 
		  'Response.Write VersionList
 323 
		  " 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 )
324 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 324 
		  'Response.Write VersionList
325 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
 325 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
326
326 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
327 
			currRowColor = SetRowColor( currRowColor )
 327
328
328 
			currRowColor = SetRowColor( currRowColor )
329 
			If errNumber <> 0 Then Exit Do
 329
330 
		  %>
 330 
			If errNumber <> 0 Then Exit Do
331 
          <tr>
 331 
		  %>
332 
			<td <%=currRowColor%> nowrap valign="top" align="center"><%=Eval("LIMG_OLD_FIXED")%></td>
332 
          <tr>
333 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
 333 
			<td <%=currRowColor%> nowrap valign="top" align="center"><%=Eval("LIMG_OLD_FIXED")%></td>
334 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
 334 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
335 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
 335 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
336 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
 336 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
337 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
 337 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
338 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
 338 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
339 
			<%Else%>
 339 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
340 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
 340 
			<%Else%>
341 
			<%End If%>
 341 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
342
342 
			<%End If%>
343 
          </tr>
 343
344 
		  <%rsQry.MoveNext%>
 344 
          </tr>
345
345 
		  <%rsQry.MoveNext%>
346 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 346
347 
          <tr>
 347 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
348 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
 348 
          <tr>
349 
          </tr>
 349 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
350 
		  <%End If%>
 350 
          </tr>
351
351 
		  <%End If%>
352 
		  <%
 352
353 
		  Loop
353 
		  <%
354 
 
 354 
		  Loop
355 
		  rsQry.Close()
 355 
 
356 
		  Set rsQry = Nothing
356 
		  rsQry.Close()
357 
		  rsQryLast.Close()
 357 
		  Set rsQry = Nothing
358 
		  Set rsQryLast = Nothing
 358 
		  rsQryLast.Close()
359 
		  %>
 359 
		  Set rsQryLast = Nothing
360
360 
		  %>
361
361
362 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
 362
363 
		  <tr>
 363 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
364 
            <td colspan="6">
 364 
		  <tr>
365 
			  <%Response.write enumMSSQL_ERROR%>
 365 
            <td colspan="6">
366 
			</td>
 366 
			  <%Response.write enumMSSQL_ERROR%>
367 
          </tr>
 367 
			</td>
368 
		  <%End If%>
 368 
          </tr>
369
369 
		  <%End If%>
370 
          <tr>
 370
371 
            <td colspan="6" background="images/bg_table_border.gif">
 371 
          <tr>
372 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 372 
            <td colspan="6" background="images/bg_table_border.gif">
373 
              <tr>
 373 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
374 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 374 
              <tr>
375 
              </tr>
 375 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
376 
             </table>
 376 
              </tr>
377 
			</td>
 377 
             </table>
378 
          </tr>
 378 
			</td>
379 
         </table>
379 
          </tr>
380 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 380 
         </table>
381 
		</td>
 381 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
382 
      </tr>
 382 
		</td>
383 
    </table>
 383 
      </tr>
384 
	</td>
 384 
    </table>
385 
    <td width="1%" valign="top" background="images/bg_favourits.gif">
 385 
	</td>
386 
	<!-- PERSONAL BAR +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 386 
    <td width="1%" valign="top" background="images/bg_favourits.gif">
387 
	<!--#include file="_personal_bar.asp"-->
 387 
	<!-- PERSONAL BAR +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
388 
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 388 
	<!--#include file="_personal_bar.asp"-->
389 
   </td>
 389 
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
390 
  </tr>
 390 
   </td>
391 
  <tr>
 391 
  </tr>
392 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
 392 
  <tr>
393 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 393 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
394 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 394 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
395 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 395 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
396 
  </tr>
 396 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
397 
  <tr>
 397 
  </tr>
398 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 398 
  <tr>
399 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 399 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
400 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 400 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
401 
    <td bgcolor="#FFFFFF">&nbsp;</td>
 401 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
402 
  </tr>
 402 
    <td bgcolor="#FFFFFF">&nbsp;</td>
403 
</table>
 403 
  </tr>
404 
<!-- FOOTER ++++++++++++++++ -->
 404 
</table>
405 
<!--#include file="_footer.asp"-->
 405 
<!-- FOOTER ++++++++++++++++ -->
406 
<!-- +++++++++++++++++++++++ -->
 406 
<!--#include file="_footer.asp"-->
407 
</body>
 407 
<!-- +++++++++++++++++++++++ -->
408 
</html>
 408 
</body>
409 
<%
 409 
</html>
410 
'------------ RUN AFTER PAGE RENDER -----------
 410 
<%
411 
Set objPMod = Nothing
 411 
'------------ RUN AFTER PAGE RENDER -----------
412 
Set objCrumbs = Nothing
 412 
Set objPMod = Nothing
413 
Set objTabControl = Nothing
 413 
Set objCrumbs = Nothing
414 
Set objBtnControl = Nothing
 414 
Set objTabControl = Nothing
415 
'----------------------------------------------
 415 
Set objBtnControl = Nothing
- 
 
 416 
'----------------------------------------------
416 
%><!--#include file="common/globals_destructor.asp"-->
 417 
%><!--#include file="common/globals_destructor.asp"-->
417 

            418