Subversion Repositories DevTools

Rev

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

Rev 62 Rev 5356
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wEditProd					 	 |
 5 
'|			          wEditProd					 	 |
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/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<!--#include file="common/formating.asp"-->
 17 
<!--#include file="common/formating.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 objFormCollector
 24 
Dim objFormCollector
25 
Dim aRs
 25 
Dim aRs
26 
Dim MoreLink
 26 
Dim MoreLink
27 
Dim parFilter_on
 27 
Dim parFilter_on
28 
Dim ForceDropdown
 28 
Dim ForceDropdown
29 
Dim parBase_env_id
 29 
Dim parBase_env_id
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
32 
parProd_id = Request("prod_id_list")
 32 
parProd_id = Request("prod_id_list")
33 
parOs_id = Request("os_id")
 33 
parOs_id = Request("os_id")
34 
parBom_id = Request("bom_id")
 34 
parBom_id = Request("bom_id")
35 
parFilter_on = Request("filter_on")
 35 
parFilter_on = Request("filter_on")
36 
parBase_env_id = Request("base_env_id")
 36 
parBase_env_id = Request("base_env_id")
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
 38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
 39 
'----------------------------------------------
40 
%>
 40 
%>
41 
<%
 41 
<%
42 
'--------------------------------------------------------------------------------------------------------------------------
 42 
'--------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
 43 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
44 
	Dim rsQry, query
 44 
	Dim rsQry, query
45 
	OraDatabase.Parameters.Add "PROD_ID", nProd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
45 
	OraDatabase.Parameters.Add "PROD_ID", nProd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
46 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
46 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
47
47
48 
	If nBaseEnvId = "" Then
 48 
	If nBaseEnvId = "" Then
49 
		OraDatabase.Parameters.Add "OS_ID", nOs_id,	ORAPARM_INPUT, ORATYPE_NUMBER
49 
		OraDatabase.Parameters.Add "OS_ID", nOs_id,	ORAPARM_INPUT, ORATYPE_NUMBER
50 
		query = GetQuery("ProductDetailsAtOs.sql")
 50 
		query = GetQuery("ProductDetailsAtOs.sql")
51 
	Else
 51 
	Else
52 
		OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId,	ORAPARM_INPUT, ORATYPE_NUMBER
52 
		OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId,	ORAPARM_INPUT, ORATYPE_NUMBER
53 
		query = GetQuery("ProductDetailsAtBaseEnv.sql")
 53 
		query = GetQuery("ProductDetailsAtBaseEnv.sql")
54 
	End If
 54 
	End If
55
55
56
56
57 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 57 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
58
58
59 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 59 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
60 
		outobjDetails.Item ("seq_num")   = rsQry("seq_num")
 60 
		outobjDetails.Item ("seq_num")   = rsQry("seq_num")
61 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
 61 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
62 
		outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
 62 
		outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
63 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
 63 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
64 
		outobjDetails.Item ("is_node_spec") = rsQry("is_node_spec")
 64 
		outobjDetails.Item ("is_node_spec") = rsQry("is_node_spec")
65 
		outobjDetails.Item ("sunos_electronic_name") = rsQry("sunos_electronic_name")
 65 
		outobjDetails.Item ("sunos_electronic_name") = rsQry("sunos_electronic_name")
66 
		outobjDetails.Item ("win_electronic_name") = rsQry("win_electronic_name")
 66 
		outobjDetails.Item ("win_electronic_name") = rsQry("win_electronic_name")
67 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
 67 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
68 
		outobjDetails.Item ("product_comments") = rsQry("product_comments")
 68 
		outobjDetails.Item ("product_comments") = rsQry("product_comments")
69 
		outobjDetails.Item ("not_xml") = rsQry("not_xml")
69 
		outobjDetails.Item ("not_xml") = rsQry("not_xml")
70 
		outobjDetails.Item ("is_patch") = rsQry("is_patch")
70 
		outobjDetails.Item ("is_patch") = rsQry("is_patch")
71 
		outobjDetails.Item ("patch_electronic_name") = rsQry("patch_electronic_name")
71 
		outobjDetails.Item ("patch_electronic_name") = rsQry("patch_electronic_name")
72
72
73 
		If nBaseEnvId = "" Then
 73 
		If nBaseEnvId = "" Then
74 
			outobjDetails.Item ("os_id") = rsQry("os_id")
 74 
			outobjDetails.Item ("os_id") = rsQry("os_id")
75 
		Else
 75 
		Else
76 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
 76 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
77 
		End If
 77 
		End If
78
78
79 
	Else
 79 
	Else
80 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProd_id="& nProd_id &", nOs_id="& nOs_id
 80 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProd_id="& nProd_id &", nOs_id="& nOs_id
81
81
82 
	End If
 82 
	End If
83
83
84 
	rsQry.Close
 84 
	rsQry.Close
85 
	Set rsQry = Nothing
 85 
	Set rsQry = Nothing
86
86
87
87
88
88
89 
	'/* Get Project Details */
 89 
	'/* Get Project Details */
90 
	query = _
 90 
	query = _
91 
	" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
 91 
	" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
92 
	"  FROM BOMS bo,"&_
 92 
	"  FROM BOMS bo,"&_
93 
	"  	   BRANCHES br,"&_
 93 
	"  	   BRANCHES br,"&_
94 
	"	   DM_PROJECTS proj"&_
 94 
	"	   DM_PROJECTS proj"&_
95 
	" WHERE br.PROJ_ID = proj.PROJ_ID"&_
 95 
	" WHERE br.PROJ_ID = proj.PROJ_ID"&_
96 
	"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
 96 
	"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
97 
	"   AND bo.BOM_ID = :BOM_ID"
 97 
	"   AND bo.BOM_ID = :BOM_ID"
98
98
99 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 99 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
100
100
101 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 101 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
102 
		outobjDetails.Item ("rm_projects_fk")   = rsQry("rm_projects_fk")
 102 
		outobjDetails.Item ("rm_projects_fk")   = rsQry("rm_projects_fk")
103 
		outobjDetails.Item ("rtag_id_fk")   = rsQry("rtag_id_fk")
 103 
		outobjDetails.Item ("rtag_id_fk")   = rsQry("rtag_id_fk")
104
104
105 
	Else
 105 
	Else
106 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
106 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
107
107
108 
	End If
 108 
	End If
109
109
110 
	OraDatabase.Parameters.Remove "PROD_ID"
 110 
	OraDatabase.Parameters.Remove "PROD_ID"
111 
	OraDatabase.Parameters.Remove "OS_ID"
 111 
	OraDatabase.Parameters.Remove "OS_ID"
112 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 112 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
113 
	OraDatabase.Parameters.Remove "BOM_ID"
 113 
	OraDatabase.Parameters.Remove "BOM_ID"
114
114
115 
	rsQry.Close
 115 
	rsQry.Close
116 
	Set rsQry = Nothing
 116 
	Set rsQry = Nothing
117 
End Sub
 117 
End Sub
118 
'--------------------------------------------------------------------------------------------------------------------------
 118 
'--------------------------------------------------------------------------------------------------------------------------
119 
Sub GetProductVersions ( aRs, outMore )
 119 
Sub GetProductVersions ( aRs, outMore )
120 
	Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount
 120 
	Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount
121
121
122 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
122 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
123 
	OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
123 
	OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
124 
	OraDatabase.Parameters.Add "BRANCH_ID",   objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
124 
	OraDatabase.Parameters.Add "BRANCH_ID",   objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
125 
	OraDatabase.Parameters.Add "FILTER_ON",   0,	ORAPARM_INPUT, ORATYPE_NUMBER
125 
	OraDatabase.Parameters.Add "FILTER_ON",   0,	ORAPARM_INPUT, ORATYPE_NUMBER
126
126
127 
	'-- Get all Ora Parameters
 127 
	'-- Get all Ora Parameters
128 
	Set OraParameter = OraDatabase.Parameters
 128 
	Set OraParameter = OraDatabase.Parameters
129
129
130
130
131 
	'-- Clear Filter if user require
 131 
	'-- Clear Filter if user require
132 
	If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0
 132 
	If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0
133
133
134
134
135 
	'-- Get Record Set
 135 
	'-- Get Record Set
136 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsListB.sql"), ORADYN_DEFAULT )
 136 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsListB.sql"), ORADYN_DEFAULT )
137 
	CurrentRecordCount = rsQry.RecordCount
 137 
	CurrentRecordCount = rsQry.RecordCount
138 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 138 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
139 
		aRs = rsQry.GetRows()
 139 
		aRs = rsQry.GetRows()
140
140
141 
	Else
 141 
	Else
142 
		aRs = NULL
 142 
		aRs = NULL
143
143
144 
	End If
 144 
	End If
145
145
146 
	rsQry.Close
 146 
	rsQry.Close
147 
	Set rsQry = Nothing
 147 
	Set rsQry = Nothing
148
148
149
149
150 
	'-- Get Total Record Count
 150 
	'-- Get Total Record Count
151 
	OraParameter("FILTER_ON").Value = 0
 151 
	OraParameter("FILTER_ON").Value = 0
152 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsListB.sql"), ORADYN_DEFAULT )
 152 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsListB.sql"), ORADYN_DEFAULT )
153 
	TotalRecordCount = rsQry.RecordCount
 153 
	TotalRecordCount = rsQry.RecordCount
154
154
155 
	rsQry.Close
 155 
	rsQry.Close
156 
	Set rsQry = Nothing
 156 
	Set rsQry = Nothing
157
157
158
158
159 
	'-- Create More... linke if needed
 159 
	'-- Create More... linke if needed
160 
	outMore = NULL
 160 
	outMore = NULL
161 
	If CurrentRecordCount < TotalRecordCount Then
 161 
	If CurrentRecordCount < TotalRecordCount Then
162 
		outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"
 162 
		outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"
163 
	End If
 163 
	End If
164
164
165
165
166 
	Set OraParameter = Nothing
 166 
	Set OraParameter = Nothing
167
167
168 
	OraDatabase.Parameters.Remove "PKG_ID"
 168 
	OraDatabase.Parameters.Remove "PKG_ID"
169 
	OraDatabase.Parameters.Remove "PROJ_ID"
 169 
	OraDatabase.Parameters.Remove "PROJ_ID"
170 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 170 
	OraDatabase.Parameters.Remove "BRANCH_ID"
171 
	OraDatabase.Parameters.Remove "FILTER_ON"
 171 
	OraDatabase.Parameters.Remove "FILTER_ON"
172 
End Sub
 172 
End Sub
173 
'--------------------------------------------------------------------------------------------------------------------------
 173 
'--------------------------------------------------------------------------------------------------------------------------
174 
Function GetSeqNumList ( nSeq_num )
 174 
Function GetSeqNumList ( nSeq_num )
175 
	Dim rsQry, query
 175 
	Dim rsQry, query
176
176
177 
	OraDatabase.Parameters.Add "SEQ_NUM",   nSeq_num,	ORAPARM_INPUT, ORATYPE_NUMBER
177 
	OraDatabase.Parameters.Add "SEQ_NUM",   nSeq_num,	ORAPARM_INPUT, ORATYPE_NUMBER
178
178
179
179
180 
	If parBase_env_id = "" Then
 180 
	If parBase_env_id = "" Then
181 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
181 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
182 
		query = GetQuery ("InstallOrderComboAtOs.sql")
 182 
		query = GetQuery ("InstallOrderComboAtOs.sql")
183 
	Else
 183 
	Else
184 
		OraDatabase.Parameters.Add "BASE_ENV_ID",  parBase_env_id,		ORAPARM_INPUT, ORATYPE_NUMBER
184 
		OraDatabase.Parameters.Add "BASE_ENV_ID",  parBase_env_id,		ORAPARM_INPUT, ORATYPE_NUMBER
185 
		query = GetQuery ("InstallOrderComboAtBaseEnv.sql")
 185 
		query = GetQuery ("InstallOrderComboAtBaseEnv.sql")
186 
	End If
 186 
	End If
187
187
188
188
189 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 189 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
190 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 190 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
191 
		GetSeqNumList = rsQry.GetRows()
 191 
		GetSeqNumList = rsQry.GetRows()
192
192
193 
	Else
 193 
	Else
194 
		GetSeqNumList = NULL
 194 
		GetSeqNumList = NULL
195
195
196 
	End If
 196 
	End If
197
197
198 
	rsQry.Close
 198 
	rsQry.Close
199 
	Set rsQry = Nothing
 199 
	Set rsQry = Nothing
200
200
201 
	OraDatabase.Parameters.Remove "OS_ID"
 201 
	OraDatabase.Parameters.Remove "OS_ID"
202 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 202 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
203 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 203 
	OraDatabase.Parameters.Remove "SEQ_NUM"
204 
End Function
 204 
End Function
205 
'--------------------------------------------------------------------------------------------------------------------------
 205 
'--------------------------------------------------------------------------------------------------------------------------
206 
Sub UpdateProdAtOs ()
 206 
Sub UpdateProdAtOs ()
207 
	On Error Resume Next
 207 
	On Error Resume Next
208
208
209 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
209 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
210 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 210 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
211 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
211 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
212 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
212 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
213 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 213 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
214 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
214 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
215 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
215 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
216 
	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
216 
	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
217 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
217 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
218 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
218 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
219 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
219 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
220 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
220 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
221 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
221 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
222 
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 222 
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
223
223
224 
	objEH.TryORA ( OraSession )
 224 
	objEH.TryORA ( OraSession )
225
225
226 
	OraDatabase.ExecuteSQL _
 226 
	OraDatabase.ExecuteSQL _
227 
	"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS, :SUNOS_ELECTRONIC_NAME, :WIN_ELECTRONIC_NAME, :IS_NODE_SPEC, :NOT_XML, :PATCH_ELECTRONIC_NAME, :USER_ID, :PKG_NAME ); END;"
227 
	"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS, :SUNOS_ELECTRONIC_NAME, :WIN_ELECTRONIC_NAME, :IS_NODE_SPEC, :NOT_XML, :PATCH_ELECTRONIC_NAME, :USER_ID, :PKG_NAME ); END;"
228
228
229 
	objEH.CatchORA ( OraSession )
 229 
	objEH.CatchORA ( OraSession )
230
230
231 
	objEH.TryORA ( OraSession )
 231 
	objEH.TryORA ( OraSession )
232
232
233 
	OraDatabase.ExecuteSQL _
 233 
	OraDatabase.ExecuteSQL _
234 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
234 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
235
235
236 
	objEH.CatchORA ( OraSession )
236 
	objEH.CatchORA ( OraSession )
237
237
238 
	objEH.TryORA ( OraSession )
 238 
	objEH.TryORA ( OraSession )
239
239
240 
	OraDatabase.ExecuteSQL _
 240 
	OraDatabase.ExecuteSQL _
241 
	"BEGIN pk_Production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID  ); END;"
241 
	"BEGIN pk_Production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID  ); END;"
242
242
243 
	objEH.CatchORA ( OraSession )
243 
	objEH.CatchORA ( OraSession )
244
244
245 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 245 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
246 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 246 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
247 
	OraDatabase.Parameters.Remove "OS_ID"
 247 
	OraDatabase.Parameters.Remove "OS_ID"
248 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 248 
	OraDatabase.Parameters.Remove "SEQ_NUM"
249 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 249 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
250 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
250 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
251 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
 251 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
252 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
252 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
253 
	OraDatabase.Parameters.Remove "NOT_XML"
253 
	OraDatabase.Parameters.Remove "NOT_XML"
254 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
254 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
255 
	OraDatabase.Parameters.Remove "USER_ID"
255 
	OraDatabase.Parameters.Remove "USER_ID"
256 
	OraDatabase.Parameters.Remove "COMMENT"
256 
	OraDatabase.Parameters.Remove "COMMENT"
257 
	OraDatabase.Parameters.Remove "PKG_ID"
257 
	OraDatabase.Parameters.Remove "PKG_ID"
258 
	OraDatabase.Parameters.Remove "PKG_NAME"
258 
	OraDatabase.Parameters.Remove "PKG_NAME"
259
259
260 
End Sub
 260 
End Sub
261 
'--------------------------------------------------------------------------------------------------------------------------
 261 
'--------------------------------------------------------------------------------------------------------------------------
262 
Sub UpdateProdAtBaseEnv ()
 262 
Sub UpdateProdAtBaseEnv ()
263 
	On Error Resume Next
 263 
	On Error Resume Next
264
264
265 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
265 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
266 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 266 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
267 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
267 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
268 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
268 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
269 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 269 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
270 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
270 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
271 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
271 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
272 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
272 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
273 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
273 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
274 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
274 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
275 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
275 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
276 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
276 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
277 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
277 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
278
278
279 
	objEH.TryORA ( OraSession )
 279 
	objEH.TryORA ( OraSession )
280
280
281 
	OraDatabase.ExecuteSQL _
 281 
	OraDatabase.ExecuteSQL _
282 
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :SUNOS_ELECTRONIC_NAME, :WIN_ELECTRONIC_NAME, :NOT_XML, :PATCH_ELECTRONIC_NAME ); END;"
282 
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :SUNOS_ELECTRONIC_NAME, :WIN_ELECTRONIC_NAME, :NOT_XML, :PATCH_ELECTRONIC_NAME ); END;"
283
283
284 
	objEH.CatchORA ( OraSession )
 284 
	objEH.CatchORA ( OraSession )
285
285
286 
	objEH.TryORA ( OraSession )
 286 
	objEH.TryORA ( OraSession )
287
287
288 
	OraDatabase.ExecuteSQL _
 288 
	OraDatabase.ExecuteSQL _
289 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
289 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
290
290
291 
	objEH.CatchORA ( OraSession )
291 
	objEH.CatchORA ( OraSession )
292
292
293 
	objEH.TryORA ( OraSession )
 293 
	objEH.TryORA ( OraSession )
294
294
295 
	OraDatabase.ExecuteSQL _
 295 
	OraDatabase.ExecuteSQL _
296 
	"BEGIN pk_Production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID  ); END;"
296 
	"BEGIN pk_Production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID  ); END;"
297
297
298 
	objEH.CatchORA ( OraSession )
298 
	objEH.CatchORA ( OraSession )
299
299
300 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 300 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
301 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 301 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
302 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 302 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
303 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 303 
	OraDatabase.Parameters.Remove "SEQ_NUM"
304 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 304 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
305 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
 305 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
306 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
306 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
307 
	OraDatabase.Parameters.Remove "NOT_XML"
307 
	OraDatabase.Parameters.Remove "NOT_XML"
308 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
 308 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
309 
	OraDatabase.Parameters.Remove "USER_ID"
309 
	OraDatabase.Parameters.Remove "USER_ID"
310 
	OraDatabase.Parameters.Remove "COMMENT"
310 
	OraDatabase.Parameters.Remove "COMMENT"
311 
	OraDatabase.Parameters.Remove "OS_ID"
311 
	OraDatabase.Parameters.Remove "OS_ID"
312 
	OraDatabase.Parameters.Remove "PKG_ID"
312 
	OraDatabase.Parameters.Remove "PKG_ID"
313
313
314 
End Sub
 314 
End Sub
315 
'--------------------------------------------------------------------------------------------------------------------------
 315 
'--------------------------------------------------------------------------------------------------------------------------
316 
%>
 316 
%>
317 
<%
 317 
<%
318 
'------------ RUN BEFORE PAGE RENDER ----------
 318 
'------------ RUN BEFORE PAGE RENDER ----------
319 
objPMod.PersistInQryString ( Array("base_env_id") )
 319 
objPMod.PersistInQryString ( Array("base_env_id") )
320 
 
 320 
 
321 
' --- Get Form details from DB ---
 321 
' --- Get Form details from DB ---
322 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
 322 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
323 
 
 323 
 
324 
' --- Load Validation Rules ---
 324 
' --- Load Validation Rules ---
325 
Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
 325 
Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
326 
 
 326 
 
327 
' --- Enter Form Validation Rule Changes here... ----
 327 
' --- Enter Form Validation Rule Changes here... ----
328 
'----------------------------------------------------
 328 
'----------------------------------------------------
329 
 
 329 
 
330 
If Request("btn") = "Submit" Then
 330 
If Request("btn") = "Submit" Then
331
331
332 
	If objForm.IsValidOnPostBack Then
 332 
	If objForm.IsValidOnPostBack Then
333 
		' --- Form is Valid ---
 333 
		' --- Form is Valid ---
334 
		If parBase_env_id = "" Then
 334 
		If parBase_env_id = "" Then
335 
			Call UpdateProdAtOs()
 335 
			Call UpdateProdAtOs()
336 
		Else
 336 
		Else
337 
			Call UpdateProdAtBaseEnv()
 337 
			Call UpdateProdAtBaseEnv()
338 
		End If
 338 
		End If
339
339
340
340
341 
		If objEH.Finally Then
 341 
		If objEH.Finally Then
342 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 342 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
343 
			Call CloseWindow()
 343 
			Call CloseWindow()
344 
		End If
 344 
		End If
345
345
346 
	End If
 346 
	End If
347 
ElseIf Request("action") = "filter_off" Then
 347 
ElseIf Request("action") = "filter_off" Then
348 
	parFilter_on = 0
 348 
	parFilter_on = 0
349 
End If
 349 
End If
350 
'----------------------------------------------
 350 
'----------------------------------------------
351 
%>
 351 
%>
352 
<html>
 352 
<html>
353 
<head>
 353 
<head>
354 
<title>Production Manager</title>
 354 
<title>Production Manager</title>
355 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 355 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
356 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 356 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
357 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 357 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
358 
<script language="JavaScript" src="scripts/common.js"></script>
 358 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
359 
</head>
 359 
<script language="JavaScript" src="scripts/common.js"></script>
360 
 
 360 
</head>
361 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 361 
 
362 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 362 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
363 
  <tr>
 363 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
364 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Edit Product</span> <br>
 364 
  <tr>
365 
    Update product details and click Submit.
365 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Edit Product</span> <br>
366 
    </td>
 366 
    Update product details and click Submit.
367 
  </tr>
 367 
    </td>
368 
  <%
 368 
  </tr>
369 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 369 
  <%
370 
  objFormComponent.FormName = "FormName"
 370 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
371 
  objFormComponent.Action = SCRIPT_NAME
 371 
  objFormComponent.FormName = "FormName"
372 
  objFormComponent.OnSubmit = "ShowProgress();"
 372 
  objFormComponent.Action = SCRIPT_NAME
373 
  Call objFormComponent.FormStart()
 373 
  objFormComponent.OnSubmit = "ShowProgress();"
374 
  %>
374 
  Call objFormComponent.FormStart()
375 
  <tr>
 375 
  %>
376 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 376 
  <tr>
377 
      <tr>
 377 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
378 
        <td><%=ProgressBar%></td>
 378 
      <tr>
379 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 379 
        <td><%=ProgressBar%></td>
380 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 380 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
381 
      </tr>
 381 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
382 
    </table></td>
 382 
      </tr>
383 
  </tr>
 383 
    </table></td>
384 
  <tr>
 384 
  </tr>
385 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 385 
  <tr>
386 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
386 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
387 
	  <%If NOT objEH.Finally Then%>
 387 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
388 
      <tr>
 388 
	  <%If NOT objEH.Finally Then%>
389 
        <td class="form_iname">&nbsp;</td>
 389 
      <tr>
390 
        <td>
 390 
        <td class="form_iname">&nbsp;</td>
391 
		 <%objEH.DisplayMessage()%>
 391 
        <td>
392 
		</td>
 392 
		 <%objEH.DisplayMessage()%>
393 
        <td class="val_err"></td>
 393 
		</td>
394 
      </tr>
 394 
        <td class="val_err"></td>
395 
	  <%End If%>
 395 
      </tr>
396 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 396 
	  <%End If%>
397 
      <tr>
 397 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
398 
        <td nowrap class="form_iname" valign="top">Install Order</td>
 398 
      <tr>
399 
        <td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>
 399 
        <td nowrap class="form_iname" valign="top">Install Order</td>
400 
		<td valign="top"></td>
 400 
        <td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>
401 
      </tr>
 401 
		<td valign="top"></td>
402 
	  <tr>
 402 
      </tr>
403 
        <td nowrap class="form_iname" valign="top">Product Name</td>
 403 
	  <tr>
404 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
 404 
        <td nowrap class="form_iname" valign="top">Product Name</td>
405 
		<td valign="top"></td>
 405 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
406 
      </tr>
406 
		<td valign="top"></td>
407 
      <tr>
 407 
      </tr>
408 
        <td nowrap class="form_iname" valign="top">Version</td>
 408 
      <tr>
409 
        <td valign="top"><%
 409 
        <td nowrap class="form_iname" valign="top">Version</td>
410 
		Call GetProductVersions( aRs, MoreLink )
 410 
        <td valign="top"><%
411 
		ForceDropdown = FALSE
 411 
		Call GetProductVersions( aRs, MoreLink )
412 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
 412 
		ForceDropdown = FALSE
413
413 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
414 
		Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue' readonly", MoreLink, ForceDropdown )
 414
415 
 
 415 
		Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue' readonly", MoreLink, ForceDropdown )
416 
		%></td>
 416 
 
417 
		<td valign="top"></td>
 417 
		%></td>
418 
      </tr>
 418 
		<td valign="top"></td>
419 
      <tr>
 419 
      </tr>
420 
        <td valign="top" nowrap class="form_iname">Comments</td>
 420 
      <tr>
421 
        <td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue' readonly" )%></td>
 421 
        <td valign="top" nowrap class="form_iname">Comments</td>
422 
		<td valign="top">
 422 
        <td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue' readonly" )%></td>
423 
		<%=objForm.Validate ("product_comments")%>
 423 
		<td valign="top">
424 
		</td>
 424 
		<%=objForm.Validate ("product_comments")%>
425 
      </tr>
 425 
		</td>
426 
      <tr>
 426 
      </tr>
427 
        <td width="10%" class="form_iname">&nbsp;</td>
 427 
      <tr>
428 
        <td width="1%">&nbsp;</td>
 428 
        <td width="10%" class="form_iname">&nbsp;</td>
429 
		<td width="90%" class="val_err"></td>
 429 
        <td width="1%">&nbsp;</td>
430 
      </tr>
 430 
		<td width="90%" class="val_err"></td>
431 
    </table></td>
 431 
      </tr>
432 
  </tr>
 432 
    </table></td>
433 
  <%=objPMod.ComposeHiddenTags()%>
 433 
  </tr>
434 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
 434 
  <%=objPMod.ComposeHiddenTags()%>
435 
  <input type="hidden" name="action" value="true">
 435 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
436 
  <%
 436 
  <input type="hidden" name="action" value="true">
437 
  Call objFormComponent.FormEnd()
 437 
  <%
438 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 438 
  Call objFormComponent.FormEnd()
439 
  %>
 439 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
440 
 
 440 
  %>
441 
</table>
 441 
 
442 
 
 442 
</table>
443 
</body>
 443 
 
444 
</html>
 444 
</body>
445 
<%
 445 
</html>
446 
'------------ RUN AFTER PAGE RENDER -----------
 446 
<%
447 
Set objFormCollector = Nothing
 447 
'------------ RUN AFTER PAGE RENDER -----------
448 
'----------------------------------------------
 448 
Set objFormCollector = Nothing
449 
%><!--#include file="common/globals_destructor.asp"-->
 449 
'----------------------------------------------
- 
 
 450 
%><!--#include file="common/globals_destructor.asp"-->