Subversion Repositories DevTools

Rev

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

Rev 29 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          ProdDefault				 	 |
 5 
'|			          ProdDefault				 	 |
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/common_dbedit.asp"-->
 16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="common/_product_common.asp"-->
 17 
<!--#include file="common/_product_common.asp"-->
18 
<%
 18 
<%
19 
'------------ ACCESS CONTROL ------------------
 19 
'------------ ACCESS CONTROL ------------------
20 
%>
 20 
%>
21 
<!--#include file="_access_control_general.asp"-->
 21 
<!--#include file="_access_control_general.asp"-->
22 
<%
 22 
<%
23 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
24 
Dim nOldProdID
 24 
Dim nOldProdID
25 
Dim rsQry
 25 
Dim rsQry
26 
Dim sMessage
 26 
Dim sMessage
27 
Dim QueryString
 27 
Dim QueryString
28 
Dim CreatorModifier
 28 
Dim CreatorModifier
29 
'Dim objOldProdCollector
 29 
'Dim objOldProdCollector
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
 31 
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
32 
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
 32 
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
33 
'------------ VARIABLE INIT -------------------
 33 
'------------ VARIABLE INIT -------------------
34 
'Set objOldProdCollector = CreateObject("Scripting.Dictionary")
 34 
'Set objOldProdCollector = CreateObject("Scripting.Dictionary")
35 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
'-----------------------------------------------------------------------------------------------------------------
 39 
'-----------------------------------------------------------------------------------------------------------------
40 
Sub GetOldProdDetails ( nProd_id, ByRef outobjDetails )
 40 
Sub GetOldProdDetails ( nProd_id, ByRef outobjDetails )
41 
	Dim rsQry, query
 41 
	Dim rsQry, query
42 
	OraDatabase.Parameters.Add "PROD_ID", nProd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
42 
	OraDatabase.Parameters.Add "PROD_ID", nProd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
43
43
44 
	query = _
 44 
	query = _
45 
		"   SELECT pkg.pkg_name, cpv.pkg_version, ppv.pkg_version AS previous_version, cpv.last_pv_id AS old_prod_id"&_
 45 
		"   SELECT pkg.pkg_name, cpv.pkg_version, ppv.pkg_version AS previous_version, cpv.last_pv_id AS old_prod_id"&_
46 
		"	  FROM PACKAGE_VERSIONS cpv,"&_
 46 
		"	  FROM PACKAGE_VERSIONS cpv,"&_
47 
		"	  	   PACKAGE_VERSIONS ppv,"&_
 47 
		"	  	   PACKAGE_VERSIONS ppv,"&_
48 
		"	       PACKAGES pkg"&_
 48 
		"	       PACKAGES pkg"&_
49 
		"	 WHERE cpv.LAST_PV_ID = ppv.pv_id"&_
 49 
		"	 WHERE cpv.LAST_PV_ID = ppv.pv_id"&_
50 
		"	   AND cpv.pkg_id = pkg.pkg_id"&_
 50 
		"	   AND cpv.pkg_id = pkg.pkg_id"&_
51 
		"	   AND cpv.pv_id = :PROD_ID"
 51 
		"	   AND cpv.pv_id = :PROD_ID"
52
52
53 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 53 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
54
54
55 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 55 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
56 
		outobjDetails.Item ("old_prod_id")   = rsQry("old_prod_id")
 56 
		outobjDetails.Item ("old_prod_id")   = rsQry("old_prod_id")
57 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name").Value
 57 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name").Value
58 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version").Value
 58 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version").Value
59 
		outobjDetails.Item ("previous_version") = rsQry("previous_version").Value
 59 
		outobjDetails.Item ("previous_version") = rsQry("previous_version").Value
60
60
61 
	End If
 61 
	End If
62
62
63 
	OraDatabase.Parameters.Remove "PROD_ID"
 63 
	OraDatabase.Parameters.Remove "PROD_ID"
64 
	rsQry.Close
 64 
	rsQry.Close
65 
	Set rsQry = Nothing
 65 
	Set rsQry = Nothing
66 
End Sub
 66 
End Sub
67 
'-----------------------------------------------------------------------------------------------------------------
 67 
'-----------------------------------------------------------------------------------------------------------------
68 
Sub RowStyle ( nStatus, ByRef outIcon, ByRef outStyle )
 68 
Sub RowStyle ( nStatus, ByRef outIcon, ByRef outStyle )
69
69
70 
	Select Case CInt( nStatus )
 70 
	Select Case CInt( nStatus )
71 
		Case enumDB_DIFF_NO_CHANGE
 71 
		Case enumDB_DIFF_NO_CHANGE
72 
			outStyle = "body_rowg"
 72 
			outStyle = "body_rowg"
73 
			outIcon = NULL
 73 
			outIcon = NULL
74
74
75 
		Case enumDB_DIFF_UPDATED
 75 
		Case enumDB_DIFF_UPDATED
76 
			outStyle = "body_rowbold"
 76 
			outStyle = "body_rowbold"
77 
			outIcon = LIMG_UPDATED
 77 
			outIcon = LIMG_UPDATED
78
78
79 
		Case enumDB_DIFF_NEW
 79 
		Case enumDB_DIFF_NEW
80 
			outStyle = "body_rowbold"
 80 
			outStyle = "body_rowbold"
81 
			outIcon = LIMG_ADDED
 81 
			outIcon = LIMG_ADDED
82
82
83 
		Case enumDB_DIFF_REMOVED
 83 
		Case enumDB_DIFF_REMOVED
84 
			outStyle = "body_rowthru"
 84 
			outStyle = "body_rowthru"
85 
			outIcon = LIMG_REMOVED
 85 
			outIcon = LIMG_REMOVED
86
86
87 
	End Select
 87 
	End Select
88
88
89 
End Sub
 89 
End Sub
90 
'-----------------------------------------------------------------------------------------------------------------
 90 
'-----------------------------------------------------------------------------------------------------------------
91 
Function UserName (nUserId)
 91 
Function UserName (nUserId)
92 
 
 92 
 
93 
If nUserId <> "" Then
 93 
If nUserId <> "" Then
94
94
95 
	Dim rsTemp, user_name
 95 
	Dim rsTemp, user_name
96 
 
 96 
 
97 
	Set rsTemp = OraDatabase.DbCreateDynaset( "select * from users where user_id ="&nUserId , ORADYN_DEFAULT )
 97 
	Set rsTemp = OraDatabase.DbCreateDynaset( "select * from users where user_id ="&nUserId , ORADYN_DEFAULT )
98 
 
 98 
 
99 
	user_name = rsTemp("full_name")
 99 
	user_name = rsTemp("full_name")
100 
 
 100 
 
101 
	rsTemp.Close()
 101 
	rsTemp.Close()
102 
	Set rsTemp = Nothing
 102 
	Set rsTemp = Nothing
103 
 
 103 
 
104 
UserName = user_name
104 
UserName = user_name
105 
 
 105 
 
106 
Else
 106 
Else
107 
 
 107 
 
108 
UserName = NULL
 108 
UserName = NULL
109 
 
 109 
 
110 
End If
 110 
End If
111 
 
 111 
 
112 
 
 112 
 
113 
End Function
 113 
End Function
114 
'-----------------------------------------------------------------------------------------------------------------
 114 
'-----------------------------------------------------------------------------------------------------------------
115 
%>
 115 
%>
116 
<%
 116 
<%
117 
'------------ RUN BEFORE PAGE RENDER ----------
 117 
'------------ RUN BEFORE PAGE RENDER ----------
118 
'----------------------------------------------
 118 
'----------------------------------------------
119 
%>
 119 
%>
120 
<html>
 120 
<html>
121 
<head>
 121 
<head>
122 
<title>Deployment Manager</title>
 122 
<title>Deployment Manager</title>
123 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 123 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
124 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 124 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
125 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 125 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
126 
<script language="JavaScript" src="scripts/common.js"></script>
 126 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
127 
</head>
 127 
<script language="JavaScript" src="scripts/common.js"></script>
128 
 
 128 
</head>
129 
<body leftmargin="0" topmargin="0">
 129 
 
130 
<!-- HEADER ++++++++++++++++ -->
 130 
<body leftmargin="0" topmargin="0">
131 
<!--#include file="_header.asp"-->
 131 
<!-- HEADER ++++++++++++++++ -->
132 
<!-- +++++++++++++++++++++++ -->
 132 
<!--#include file="_header.asp"-->
133 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
 133 
<!-- +++++++++++++++++++++++ -->
134 
<!--#include file="_main_menu.asp"-->
 134 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
135 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 135 
<!--#include file="_main_menu.asp"-->
136 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 136 
<!-- +++++++++++++++++++++++++++++++++++++ -->
137 
  <tr>
 137 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
138 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 138 
  <tr>
139 
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
 139 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
140 
	<!--#include file="_bom_browser.asp"-->
 140 
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
141 
	<!-- END OF NODE BROWSER +++++++++++++++ -->
 141 
	<!--#include file="_bom_browser.asp"-->
142 
	</td>
 142 
	<!-- END OF NODE BROWSER +++++++++++++++ -->
143 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 143 
	</td>
144 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 144 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
145 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 145 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
146 
	  <tr>
 146 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
147 
        <td valign="top" background="images/bg_blue.gif"></td>
 147 
	  <tr>
148 
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
 148 
        <td valign="top" background="images/bg_blue.gif"></td>
149 
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
 149 
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
150 
      </tr>
 150 
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
151 
      <tr>
 151 
      </tr>
152 
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
 152 
      <tr>
153 
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
 153 
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
154 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 154 
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
155 
		<!--#include file="_tabs_definition.asp"-->
 155 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
156 
		<%
 156 
		<!--#include file="_tabs_definition.asp"-->
157 
		Set objTabControl = New TabControl
 157 
		<%
158 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
 158 
		Set objTabControl = New TabControl
159 
		objTabControl.TabStyle = "StyleWinXP"
 159 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
160 
		objTabControl.AddTabDefnition ( arrProdTabDef )
 160 
		objTabControl.TabStyle = "StyleWinXP"
161 
		objTabControl.Render ()
 161 
		objTabControl.AddTabDefnition ( arrProdTabDef )
162 
		%>
 162 
		objTabControl.Render ()
163 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 163 
		%>
164 
		</td>
 164 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
165 
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
 165 
		</td>
166 
        </tr>
 166 
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
167 
      <tr>
 167 
        </tr>
168 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 168 
      <tr>
169 
        <td background="images/bg_bage_0.gif">
 169 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
170 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 170 
        <td background="images/bg_bage_0.gif">
171 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 171 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
172 
		</td>
 172 
		<!-- +++++++++++++++++++++++++++++++++++ -->
173 
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 173 
		</td>
174 
        </tr>
 174 
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
175 
      <tr>
 175 
        </tr>
176 
        <td>&nbsp;</td>
 176 
      <tr>
177 
        <td>&nbsp;</td>
 177 
        <td>&nbsp;</td>
178 
        <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>
 178 
        <td>&nbsp;</td>
179 
        </tr>
 179 
        <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>
180 
    </table>
 180 
        </tr>
181 
	<!-- PRODUCTION NOTES +++++++++++++++++++ -->
 181 
    </table>
182 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 182 
	<!-- PRODUCTION NOTES +++++++++++++++++++ -->
183 
      <tr>
 183 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
184 
        <td>
 184 
      <tr>
185 
		<%
185 
        <td>
186 
			QueryString = "select * from product_notes pn, product_trail pt"&_
186 
		<%
187 
						  "	where pn.prod_id = "&dbPARprod_id&_
 187 
			QueryString = "select * from product_notes pn, product_trail pt"&_
188 
						  "	and pt.prod_id = pn.prod_id"&_
 188 
						  "	where pn.prod_id = "&dbPARprod_id&_
189 
						  "	order by date_time_stamp desc"
 189 
						  "	and pt.prod_id = pn.prod_id"&_
190
190 
						  "	order by date_time_stamp desc"
191 
			Set rsQry = OraDatabase.DbCreateDynaset( QueryString, ORADYN_DEFAULT )
 191
192 
			If rsQry.RecordCount > 0 Then
 192 
			Set rsQry = OraDatabase.DbCreateDynaset( QueryString, ORADYN_DEFAULT )
193 
				If rsQry.RecordCount = 1 Then
 193 
			If rsQry.RecordCount > 0 Then
194 
					CreatorModifier = "Created by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp")
 194 
				If rsQry.RecordCount = 1 Then
195 
				Else
 195 
					CreatorModifier = "Created by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp")
196 
					CreatorModifier = "Last Modified by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp")
 196 
				Else
197 
				End If
 197 
					CreatorModifier = "Last Modified by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp")
198 
 
 198 
				End If
199 
			End If
 199 
 
200
200 
			End If
201 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
 201
202 
			sMessage = sMessage &"<tr>"
 202 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
203 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>PRODUCT NOTES</b><br><br>"&objFormater.TextToHTML( rsQry("notes") ) &"<br><br><SPAN class='body_smltxtg'>"& CreatorModifier &"</SPAN></td>"
 203 
			sMessage = sMessage &"<tr>"
204 
			If rsQry.RecordCount = 0 Then
 204 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>PRODUCT NOTES</b><br><br>"&objFormater.TextToHTML( rsQry("notes") ) &"<br><br><SPAN class='body_smltxtg'>"& CreatorModifier &"</SPAN></td>"
205 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProductNote.asp?type=add&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Product Note"& LIMG_NOTE_NEW &"</a></td>"
 205 
			If rsQry.RecordCount = 0 Then
206 
			Else
 206 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProductNote.asp?type=add&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Product Note"& LIMG_NOTE_NEW &"</a></td>"
207 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProductNote.asp?type=edit&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Edit note'>Edit Product Note"& LIMG_NOTE_NEW &"</a></td>"
 207 
			Else
208 
			End If
208 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProductNote.asp?type=edit&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Edit note'>Edit Product Note"& LIMG_NOTE_NEW &"</a></td>"
209 
			sMessage = sMessage &"</tr>"
 209 
			End If
210 
			sMessage = sMessage &"</table>"
 210 
			sMessage = sMessage &"</tr>"
211
211 
			sMessage = sMessage &"</table>"
212 
			Call Messenger ( sMessage, "bi_accepted.gif", "100%" )
 212
213
213 
			Call Messenger ( sMessage, "bi_accepted.gif", "100%" )
214 
			Response.write "<br>"
 214
215
215 
			Response.write "<br>"
216 
			rsQry.Close()
 216
217 
			Set rsQry = Nothing
 217 
			rsQry.Close()
218 
		%>
 218 
			Set rsQry = Nothing
219
219 
		%>
220 
		</td>
 220
221 
        </tr>
 221 
		</td>
222 
    </table>
222 
        </tr>
223 
	<!-- PRODUCTION NOTES+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 223 
    </table>
224 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 224 
	<!-- PRODUCTION NOTES+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
225 
      <tr>
 225 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
226 
        <td>
 226 
      <tr>
227 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 227 
        <td>
228 
		<%
 228 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
229 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
229 
		<%
230 
		%>
 230 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
231 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
 231 
		%>
232 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
 232 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
233 
			<select name="old_prod_id" class="form_ivalue">
 233 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
234 
			   <option value=""></option>
 234 
			<select name="old_prod_id" class="form_ivalue">
235 
			  <%
 235 
			   <option value=""></option>
236 
			  nOldProdID = Request("old_prod_id")
 236 
			  <%
237 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
 237 
			  nOldProdID = Request("old_prod_id")
238
238 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
239
239
240 
			  OraDatabase.Parameters.Add "PKG_ID", 		objProdCollector.Item ("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
240
241 
			  OraDatabase.Parameters.Add "V_EXT", 		objProdCollector.Item ("v_ext"),	ORAPARM_INPUT, ORATYPE_NUMBER
241 
			  OraDatabase.Parameters.Add "PKG_ID", 		objProdCollector.Item ("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
242 
			  OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID,	ORAPARM_INPUT, ORATYPE_NUMBER
242 
			  OraDatabase.Parameters.Add "V_EXT", 		objProdCollector.Item ("v_ext"),	ORAPARM_INPUT, ORATYPE_NUMBER
243
243 
			  OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID,	ORAPARM_INPUT, ORATYPE_NUMBER
244 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsCombo.sql"), ORADYN_DEFAULT )
 244
245 
			  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 245 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsCombo.sql"), ORADYN_DEFAULT )
246 
			  %>
 246 
			  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
247 
				<option value="<%=rsQry("pv_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_version")%></option>
 247 
			  %>
248 
			  <%
 248 
				<option value="<%=rsQry("pv_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_version")%></option>
249 
			  	rsQry.MoveNext
 249 
			  <%
250 
			  WEnd
 250 
			  	rsQry.MoveNext
251 
			  rsQry.Close
 251 
			  WEnd
252
252 
			  rsQry.Close
253 
			  %>
 253
254 
			</select>
 254 
			  %>
255 
			<%=objPMod.ComposeHiddenTags()%>
 255 
			</select>
256 
			<input type="submit" name="btn" value="Compare" class="form_btn">
 256 
			<%=objPMod.ComposeHiddenTags()%>
257 
		<hr width="100%" size="1px" noshade color="Black">
 257 
			<input type="submit" name="btn" value="Compare" class="form_btn">
258 
		</form>
 258 
		<hr width="100%" size="1px" noshade color="Black">
259 
		<!-- PRODUCT REJECTED ------------------------------------------------------------------------------------------ -->
 259 
		</form>
260 
		<%
 260 
		<!-- PRODUCT REJECTED ------------------------------------------------------------------------------------------ -->
261 
		If objProdCollector.Item ("is_rejected") = enumDB_YES Then
 261 
		<%
262
262 
		If objProdCollector.Item ("is_rejected") = enumDB_YES Then
263 
			OraDatabase.Parameters.Add "ENTITY_ID", 		dbPARprod_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 263
264 
			OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", 	"enumENTITY_TYPE_PRODUCT",	ORAPARM_INPUT, ORATYPE_VARCHAR2
 264 
			OraDatabase.Parameters.Add "ENTITY_ID", 		dbPARprod_id,	ORAPARM_INPUT, ORATYPE_NUMBER
265
265 
			OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", 	"enumENTITY_TYPE_PRODUCT",	ORAPARM_INPUT, ORATYPE_VARCHAR2
266
266
267 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
 267
268
268 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
269 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
 269
270 
			sMessage = sMessage &"<tr>"
 270 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
271 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>Product is REJECTED!</b><br><br><br></td>"
 271 
			sMessage = sMessage &"<tr>"
272 
			sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProdRejectNote.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','ProdRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Note"& LIMG_NOTE_NEW &"</a></td>"
 272 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>Product is REJECTED!</b><br><br><br></td>"
273 
			sMessage = sMessage &"</tr>"
 273 
			sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProdRejectNote.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','ProdRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Note"& LIMG_NOTE_NEW &"</a></td>"
274
274 
			sMessage = sMessage &"</tr>"
275 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 275
276 
				sMessage = sMessage & "<tr><td colspan='2' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
 276 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
277 
				sMessage = sMessage &"<tr>"
 277 
				sMessage = sMessage & "<tr><td colspan='2' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
278 
				sMessage = sMessage &"<td class='body_txt'>"
 278 
				sMessage = sMessage &"<tr>"
279 
				If rsQry("is_rejected") = enumDB_YES Then
 279 
				sMessage = sMessage &"<td class='body_txt'>"
280 
					sMessage = sMessage &"Product is REJECTED!<br>"
 280 
				If rsQry("is_rejected") = enumDB_YES Then
281 
				Else
 281 
					sMessage = sMessage &"Product is REJECTED!<br>"
282 
					sMessage = sMessage &"Product is Accepted!<br>"
 282 
				Else
283 
				End If
 283 
					sMessage = sMessage &"Product is Accepted!<br>"
284 
				sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"<br><SPAN class='body_smltxtg'>"& rsQry("creator") &"</SPAN></td>"
 284 
				End If
285 
				sMessage = sMessage &"<td nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProdRejectNote.asp?reject_seq="& rsQry("reject_seq") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','ProdRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');"" class='body_smllink' title='Edit note'>Edit Note"& LIMG_NOTE_EDIT &"</a></td>"
 285 
				sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"<br><SPAN class='body_smltxtg'>"& rsQry("creator") &"</SPAN></td>"
286 
				sMessage = sMessage &"</tr>"
 286 
				sMessage = sMessage &"<td nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProdRejectNote.asp?reject_seq="& rsQry("reject_seq") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','ProdRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');"" class='body_smllink' title='Edit note'>Edit Note"& LIMG_NOTE_EDIT &"</a></td>"
287
287 
				sMessage = sMessage &"</tr>"
288 
				rsQry.MoveNext
 288
289 
			WEnd
 289 
				rsQry.MoveNext
290 
			rsQry.Close
 290 
			WEnd
291
291 
			rsQry.Close
292 
			sMessage = sMessage &"</table>"
 292
293
293 
			sMessage = sMessage &"</table>"
294 
			Call Messenger ( sMessage, "i_product_rejected.gif", "100%" )
 294
295
295 
			Call Messenger ( sMessage, "i_product_rejected.gif", "100%" )
296 
			Response.write "<br>"
 296
297
297 
			Response.write "<br>"
298 
			OraDatabase.Parameters.Remove "ENTITY_ID"
 298
299 
			OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
 299 
			OraDatabase.Parameters.Remove "ENTITY_ID"
300 
		End If
 300 
			OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
301 
		%>
 301 
		End If
302 
		<!-- Module Changes -------------------------------------------------------------------------------------------- -->
 302 
		%>
303 
		<SPAN class="body_colb">Module Changes</SPAN>
 303 
		<!-- Module Changes -------------------------------------------------------------------------------------------- -->
304 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 304 
		<SPAN class="body_colb">Module Changes</SPAN>
305 
          <tr>
 305 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
306 
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 306 
          <tr>
307 
            <td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 307 
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
308 
              <tr>
 308 
            <td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
309 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Module Name</td>
 309 
              <tr>
310 
              </tr>
 310 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Module Name</td>
311 
            </table></td>
 311 
              </tr>
312 
			<td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Current Version</td>
 312 
            </table></td>
313 
            <td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Previous Version</td>
 313 
			<td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Current Version</td>
314 
			<td width="70%" background="images/bg_table_col.gif"></td>
 314 
            <td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Previous Version</td>
315 
			<td width="1%" align="right" background="images/bg_table_col.gif" class="body_col">Owner</td>
 315 
			<td width="70%" background="images/bg_table_col.gif"></td>
316 
			<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 316 
			<td width="1%" align="right" background="images/bg_table_col.gif" class="body_col">Owner</td>
317 
          </tr>
 317 
			<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
318 
		  <%
 318 
          </tr>
319 
		  Dim style, icon
 319 
		  <%
320
320 
		  Dim style, icon
321 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsDiff.sql"), ORADYN_DEFAULT )
 321
322 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 322 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsDiff.sql"), ORADYN_DEFAULT )
323 
		  	Call RowStyle ( rsQry("status"), icon, style )
 323 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
324 
		  %>
 324 
		  	Call RowStyle ( rsQry("status"), icon, style )
325 
          <tr>
 325 
		  %>
326 
            <td align="center"><%=icon%></td>
 326 
          <tr>
327 
			<td nowrap class="<%=style%>"><%=rsQry("pkg_name").Value%></td>
 327 
            <td align="center"><%=icon%></td>
328 
            <td nowrap class="<%=style%>"><%=rsQry("pkg_version").Value%></td>
 328 
			<td nowrap class="<%=style%>"><%=rsQry("pkg_name").Value%></td>
329 
			<td nowrap class="<%=style%>"><%=rsQry("previous_version").Value%></td>
 329 
            <td nowrap class="<%=style%>"><%=rsQry("pkg_version").Value%></td>
330 
			<td nowrap class="<%=style%>"></td>
 330 
			<td nowrap class="<%=style%>"><%=rsQry("previous_version").Value%></td>
331 
			<td nowrap><a href="mailto:<%=rsQry("user_email")%>" class="body_link" title="Send Email to <%=rsQry("user_email")%>"><%=LIMG_EMAIL  &  rsQry("full_name").Value%></a></td>
 331 
			<td nowrap class="<%=style%>"></td>
332 
			<td align="center"><a href="<%=RELEASE_MANAGER_URL%>/fixed_issues.asp?rtag_id=<%=objProdCollector.Item ("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>" class="body_link" target="_blank" title="Open in Release Manager..."><img src="icons/b_rm_link.gif" width="20" height="19" hspace="2" border="0"></a></td>
 332 
			<td nowrap><a href="mailto:<%=rsQry("user_email")%>" class="body_link" title="Send Email to <%=rsQry("user_email")%>"><%=LIMG_EMAIL  &  rsQry("full_name").Value%></a></td>
333 
          </tr>
 333 
			<td align="center"><a href="<%=RELEASE_MANAGER_URL%>/fixed_issues.asp?rtag_id=<%=objProdCollector.Item ("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>" class="body_link" target="_blank" title="Open in Release Manager..."><img src="icons/b_rm_link.gif" width="20" height="19" hspace="2" border="0"></a></td>
334 
		  <%rsQry.MoveNext%>
 334 
          </tr>
335
335 
		  <%rsQry.MoveNext%>
336 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 336
337 
          <tr>
 337 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
338 
            <td colspan="7" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 338 
          <tr>
339 
          </tr>
 339 
            <td colspan="7" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
340 
		  <%End If%>
 340 
          </tr>
341
341 
		  <%End If%>
342 
		  <%
 342
343 
		  WEnd
 343 
		  <%
344 
		  %>
 344 
		  WEnd
345 
          <tr>
 345 
		  %>
346 
            <td colspan="7" background="images/bg_table_border.gif">
 346 
          <tr>
347 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 347 
            <td colspan="7" background="images/bg_table_border.gif">
348 
              <tr>
 348 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
349 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 349 
              <tr>
350 
              </tr>
 350 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
351 
             </table>
 351 
              </tr>
352 
			</td>
 352 
             </table>
353 
          </tr>
 353 
			</td>
354 
         </table>
 354 
          </tr>
355 
		 <SPAN class="body_smltxtg">
 355 
         </table>
356 
		 NOTE: <%=LIMG_UPDATED%>&nbsp;Updated, <%=LIMG_ADDED%>&nbsp;Added, <%=LIMG_REMOVED%>&nbsp;Removed, [Blank]&nbsp;No change
 356 
		 <SPAN class="body_smltxtg">
357 
		 </span>
 357 
		 NOTE: <%=LIMG_UPDATED%>&nbsp;Updated, <%=LIMG_ADDED%>&nbsp;Added, <%=LIMG_REMOVED%>&nbsp;Removed, [Blank]&nbsp;No change
358 
		 <br><br><br>
 358 
		 </span>
359 
		<!-- Reasons For This Version -------------------------------------------------------------------------------------------- -->
 359 
		 <br><br><br>
360 
		<SPAN class="body_colb">Reasons For This Version</SPAN>
 360 
		<!-- Reasons For This Version -------------------------------------------------------------------------------------------- -->
361 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 361 
		<SPAN class="body_colb">Reasons For This Version</SPAN>
362 
		  <tr>
 362 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
363 
            <td background="images/bg_table_border.gif">
 363 
		  <tr>
364 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 364 
            <td background="images/bg_table_border.gif">
365 
              <tr>
 365 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
366 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 366 
              <tr>
367 
              </tr>
 367 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
368 
             </table>
 368 
              </tr>
369 
			</td>
 369 
             </table>
370 
          </tr>
 370 
			</td>
371 
		  <%
 371 
          </tr>
372 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReasonsForVersionList.sql"), ORADYN_DEFAULT )
 372 
		  <%
373 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 373 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReasonsForVersionList.sql"), ORADYN_DEFAULT )
374 
		  %>
 374 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
375 
          <tr>
 375 
		  %>
376 
            <td class="body_rowlite">
 376 
          <tr>
377 
			<a href="<%=RELEASE_MANAGER_URL%>/fixed_issues.asp?rtag_id=<%=objProdCollector.Item ("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>" class="body_link" target="_blank" title="Open in Release Manager..."><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%><img src="icons/i_popup_link.gif" hspace="2" border="0" align="absmiddle"></a><br>
 377 
            <td class="body_rowlite">
378 
			<%
 378 
			<a href="<%=RELEASE_MANAGER_URL%>/fixed_issues.asp?rtag_id=<%=objProdCollector.Item ("rtag_id")%>&pv_id=<%=rsQry("pv_id")%>" class="body_link" target="_blank" title="Open in Release Manager..."><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%><img src="icons/i_popup_link.gif" hspace="2" border="0" align="absmiddle"></a><br>
379 
			If IsNull(rsQry("comments")) OR rsQry("comments") = "" Then
 379 
			<%
380 
				Response.write "Not specified. Check Issues list."
 380 
			If IsNull(rsQry("comments")) OR rsQry("comments") = "" Then
381 
			Else
 381 
				Response.write "Not specified. Check Issues list."
382 
				Response.write objFormater.TextToHtml( rsQry("comments") )
 382 
			Else
383 
			End If
 383 
				Response.write objFormater.TextToHtml( rsQry("comments") )
384
384 
			End If
385 
			%>
 385
386 
			</td>
 386 
			%>
387 
          </tr>
 387 
			</td>
388 
		  <%rsQry.MoveNext%>
 388 
          </tr>
389
389 
		  <%rsQry.MoveNext%>
390 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 390
391 
          <tr>
 391 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
392 
            <td background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 392 
          <tr>
393 
          </tr>
 393 
            <td background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
394 
		  <%End If%>
 394 
          </tr>
395
395 
		  <%End If%>
396 
		  <%
 396
397 
		  WEnd
 397 
		  <%
398 
		  %>
 398 
		  WEnd
399 
          <tr>
 399 
		  %>
400 
            <td background="images/bg_table_border.gif">
 400 
          <tr>
401 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 401 
            <td background="images/bg_table_border.gif">
402 
              <tr>
 402 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
403 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 403 
              <tr>
404 
              </tr>
 404 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
405 
             </table>
 405 
              </tr>
406 
			</td>
 406 
             </table>
407 
          </tr>
 407 
			</td>
408 
         </table>
 408 
          </tr>
409 
		<%
 409 
         </table>
410 
		OraDatabase.Parameters.Remove "PROD_ID"
 410 
		<%
411 
		OraDatabase.Parameters.Remove "OLD_PROD_ID"
 411 
		OraDatabase.Parameters.Remove "PROD_ID"
412 
		OraDatabase.Parameters.Remove "PKG_ID"
 412 
		OraDatabase.Parameters.Remove "OLD_PROD_ID"
413 
		OraDatabase.Parameters.Remove "V_EXT"
 413 
		OraDatabase.Parameters.Remove "PKG_ID"
414 
		%>
 414 
		OraDatabase.Parameters.Remove "V_EXT"
415 
</p>
 415 
		%>
416 
<!-- Realease Authorisation -------------------------------------------------------------------------------------------- -->
 416 
</p>
417 
		<SPAN class="body_colb">Release Authorisation </SPAN>
 417 
<!-- Realease Authorisation -------------------------------------------------------------------------------------------- -->
418 
<%
 418 
		<SPAN class="body_colb">Release Authorisation </SPAN>
419 
Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_authorisation where pv_id="&dbPARprod_id, ORADYN_DEFAULT )
 419 
<%
420 
If rsQry.RecordCount > 0 Then
 420 
Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_authorisation where pv_id="&dbPARprod_id, ORADYN_DEFAULT )
421 
%>
421 
If rsQry.RecordCount > 0 Then
422 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 422 
%>
423 
 
 423 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
424 
              <tr>
 424 
 
425 
              <td background="images/bg_bage_0a.gif">
 425 
              <tr>
426 
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 426 
              <td background="images/bg_bage_0a.gif">
427 
                <tr>
 427 
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
428 
                  <td width="10%" background="images/bg_bage_0.gif" class="body_col">Date</td>
 428 
                <tr>
429 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col">Regional Tester</td>
 429 
                  <td width="10%" background="images/bg_bage_0.gif" class="body_col">Date</td>
430 
				  <td width="70%" background="images/bg_bage_0.gif" class="body_col">Tester Comments</td>
 430 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col">Regional Tester</td>
431
431 
				  <td width="70%" background="images/bg_bage_0.gif" class="body_col">Tester Comments</td>
432 
                </tr>
 432
433 
                <tr>
 433 
                </tr>
434 
                  <td width="10%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("tester_datestamp")%></td>
 434 
                <tr>
435 
                  <td width="20%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=UserName(rsQry("tester_id"))%></td>
 435 
                  <td width="10%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("tester_datestamp")%></td>
436 
				  <td width="70%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("tester_comments")%></td>
 436 
                  <td width="20%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=UserName(rsQry("tester_id"))%></td>
437
437 
				  <td width="70%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("tester_comments")%></td>
438 
                </tr>
438
439 
				<%'objRepeater.RenderDataGrid ()%>
 439 
                </tr>
440 
              </table>
 440 
				<%'objRepeater.RenderDataGrid ()%>
441
441 
              </table>
442 
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 442
443 
                <tr>
 443 
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
444 
				  <td width="10%" background="images/bg_bage_0.gif" class="body_col">Date</td>
 444 
                <tr>
445 
				  <td width="20%" background="images/bg_bage_0.gif" class="body_col">Regional Manager</td>
 445 
				  <td width="10%" background="images/bg_bage_0.gif" class="body_col">Date</td>
446 
				  <td width="70%" background="images/bg_bage_0.gif" class="body_col">Manager Comments</td>
446 
				  <td width="20%" background="images/bg_bage_0.gif" class="body_col">Regional Manager</td>
447 
                </tr>
 447 
				  <td width="70%" background="images/bg_bage_0.gif" class="body_col">Manager Comments</td>
448 
                <tr>
 448 
                </tr>
449 
				  <td width="10%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("manager_datestamp")%></td>
 449 
                <tr>
450 
				  <td width="20%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=UserName(rsQry("manager_id"))%></td>
 450 
				  <td width="10%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("manager_datestamp")%></td>
451 
				  <td width="70%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("manager_comments")%></td>
451 
				  <td width="20%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=UserName(rsQry("manager_id"))%></td>
452 
                </tr>
452 
				  <td width="70%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("manager_comments")%></td>
453 
				<%'objRepeater.RenderDataGrid ()%>
 453 
                </tr>
454 
              </table>
454 
				<%'objRepeater.RenderDataGrid ()%>
455 
			 </td>
 455 
              </table>
456 
            </tr>
 456 
			 </td>
457 
        </table>
 457 
            </tr>
458 
<%
 458 
        </table>
459 
Else
 459 
<%
460 
%>
460 
Else
461 
<SPAN class="body_col">No Information </SPAN>
 461 
%>
462 
 
 462 
<SPAN class="body_col">No Information </SPAN>
463
463 
 
464 
<%
 464
465 
End If
 465 
<%
466 
rsQry.Close()
 466 
End If
467 
Set rsQry = Nothing
 467 
rsQry.Close()
468 
 
 468 
Set rsQry = Nothing
469 
%>
469 
 
470
470 
%>
471 
			<p>
471
472 
		  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 472 
			<p>
473 
	      </p></td>
 473 
		  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
474 
      </tr>
 474 
	      </p></td>
475 
    </table>
 475 
      </tr>
476 
	</td>
 476 
    </table>
477 
    <td width="1%" valign="top" background="images/bg_favourits.gif">
 477 
	</td>
478 
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
 478 
    <td width="1%" valign="top" background="images/bg_favourits.gif">
479 
	<!-- PERSONAL PANE +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 479 
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
480 
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 480 
	<!-- PERSONAL PANE +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
481 
      <tr>
 481 
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
482 
        <td width="100%" valign="bottom" background="images/bg_node_icon.gif"><%=GetNodeImage ( dbPARnode_id )%></td>
 482 
      <tr>
483 
        <td width="1" background="images/bg_node_icon.gif"><img src="images/spacer.gif" width="1" height="97"></td>
 483 
        <td width="100%" valign="bottom" background="images/bg_node_icon.gif"><%=GetNodeImage ( dbPARnode_id )%></td>
484 
      </tr>
 484 
        <td width="1" background="images/bg_node_icon.gif"><img src="images/spacer.gif" width="1" height="97"></td>
485 
      </table>
 485 
      </tr>
486 
      <a href="<%=SCRIPT_NAME%>?user_bar=hide&<%=objPMod.ComposeURL()%>"><img src="icons/b_right.gif" title="Minimize favourits" width="13" height="13" vspace="5" border="0"></a>      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 486 
      </table>
487 
      <tr>
 487 
      <a href="<%=SCRIPT_NAME%>?user_bar=hide&<%=objPMod.ComposeURL()%>"><img src="icons/b_right.gif" title="Minimize favourits" width="13" height="13" vspace="5" border="0"></a>      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
488 
        <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 488 
      <tr>
489 
          <tr>
 489 
        <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
490 
            <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 490 
          <tr>
491 
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
 491 
            <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
492 
            <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 492 
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
493 
          </tr>
 493 
            <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
494 
          <tr>
 494 
          </tr>
495 
            <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
 495 
          <tr>
496 
              <tr>
 496 
            <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
497 
                <td valign="top" class="fav_txt"><span class="fav_head">Reason for release</span><br>
 497 
              <tr>
498 
                      <br>
 498 
                <td valign="top" class="fav_txt"><span class="fav_head">Reason for release</span><br>
499 
    <!--     This version needs to be rebuild on new sysbase_types 1.5.0.mas<br> -->
 499 
                      <br>
500 
                </td>
 500 
    <!--     This version needs to be rebuild on new sysbase_types 1.5.0.mas<br> -->
501 
              </tr>
 501 
                </td>
502 
            </table></td>
 502 
              </tr>
503 
            </tr>
 503 
            </table></td>
504 
          <tr>
 504 
            </tr>
505 
            <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 505 
          <tr>
506 
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
 506 
            <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
507 
            <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 507 
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
508 
          </tr>
 508 
            <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
509 
        </table>
 509 
          </tr>
510 
          <br>
 510 
        </table>
511 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 511 
          <br>
512 
            <tr>
 512 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
513 
              <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 513 
            <tr>
514 
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
 514 
              <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
515 
              <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 515 
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
516 
            </tr>
 516 
              <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
517 
            <tr background="images/bg_gray.gif">
 517 
            </tr>
518 
              <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
 518 
            <tr background="images/bg_gray.gif">
519 
                <tr>
 519 
              <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
520 
                  <td valign="top" class="fav_txt"><span class="fav_head">Fixed Issues</span><br>
 520 
                <tr>
521 
                      <br>
 521 
                  <td valign="top" class="fav_txt"><span class="fav_head">Fixed Issues</span><br>
522 
                      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
 522 
                      <br>
523 
<!--                         <tr>
 523 
                      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
524 
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
 524 
<!--                         <tr>
525 
                          <td><a href="#" class="fav_link">DEVI-021532</a></td>
 525 
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
526 
                        </tr>
 526 
                          <td><a href="#" class="fav_link">DEVI-021532</a></td>
527 
                        <tr>
 527 
                        </tr>
528 
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
 528 
                        <tr>
529 
                          <td><a href="#" class="fav_link">DEVI-021534</a></td>
 529 
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
530 
                        </tr>
 530 
                          <td><a href="#" class="fav_link">DEVI-021534</a></td>
531 
                        <tr>
 531 
                        </tr>
532 
                          <td width="1%"><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
 532 
                        <tr>
533 
                          <td width="100%"><a href="#" class="fav_link">DEVI-021536</a></td>
 533 
                          <td width="1%"><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
534 
                        </tr> -->
 534 
                          <td width="100%"><a href="#" class="fav_link">DEVI-021536</a></td>
535 
                    </table></td>
 535 
                        </tr> -->
536 
                </tr>
 536 
                    </table></td>
537 
              </table></td>
 537 
                </tr>
538 
              </tr>
 538 
              </table></td>
539 
            <tr>
 539 
              </tr>
540 
              <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 540 
            <tr>
541 
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
 541 
              <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
542 
              <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
 542 
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
543 
            </tr>
 543 
              <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
544 
          </table></td>
 544 
            </tr>
545 
        <td width="1%"><img src="images/spacer.gif" width="15" height="400"></td>
 545 
          </table></td>
546 
      </tr>
 546 
        <td width="1%"><img src="images/spacer.gif" width="15" height="400"></td>
547 
    </table>
 547 
      </tr>
548 
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 548 
    </table>
549 
	<%End If%>
 549 
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
550 
   </td>
 550 
	<%End If%>
551 
  </tr>
 551 
   </td>
552 
  <tr>
 552 
  </tr>
553 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
 553 
  <tr>
554 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 554 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
555 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 555 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
556 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 556 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
557 
  </tr>
 557 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
558 
  <tr>
 558 
  </tr>
559 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 559 
  <tr>
560 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 560 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
561 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 561 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
562 
    <td bgcolor="#FFFFFF">&nbsp;</td>
 562 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
563 
  </tr>
 563 
    <td bgcolor="#FFFFFF">&nbsp;</td>
564 
</table>
 564 
  </tr>
565 
<!-- FOOTER ++++++++++++++++ -->
 565 
</table>
566 
<!--#include file="_footer.asp"-->
 566 
<!-- FOOTER ++++++++++++++++ -->
567 
<!-- +++++++++++++++++++++++ -->
 567 
<!--#include file="_footer.asp"-->
568 
</body>
 568 
<!-- +++++++++++++++++++++++ -->
569 
</html>
 569 
</body>
570 
<%
 570 
</html>
571 
'------------ RUN AFTER PAGE RENDER -----------
 571 
<%
572 
Set objPMod = Nothing
 572 
'------------ RUN AFTER PAGE RENDER -----------
573 
Set objCrumbs = Nothing
 573 
Set objPMod = Nothing
574 
Set objTabControl = Nothing
 574 
Set objCrumbs = Nothing
575 
Set objBtnControl = Nothing
 575 
Set objTabControl = Nothing
576 
'----------------------------------------------
 576 
Set objBtnControl = Nothing
577 
%><!--#include file="common/globals_destructor.asp"-->
 577 
'----------------------------------------------
- 
 
 578 
%><!--#include file="common/globals_destructor.asp"-->