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 
'|			          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 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector
 23 
Dim objFormCollector
24 
Dim aRs
 24 
Dim aRs
25 
Dim MoreLink
 25 
Dim MoreLink
26 
Dim parFilter_on
 26 
Dim parFilter_on
27 
Dim ForceDropdown
 27 
Dim ForceDropdown
28 
Dim parBase_env_id
 28 
Dim parBase_env_id
29 
Dim rsTemp
 29 
Dim rsTemp
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"&_
 91 
	" SELECT proj.RM_PROJECTS_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
103
104 
	Else
 104 
	Else
105 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
105 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
106
106
107 
	End If
 107 
	End If
108
108
109 
	OraDatabase.Parameters.Remove "PROD_ID"
 109 
	OraDatabase.Parameters.Remove "PROD_ID"
110 
	OraDatabase.Parameters.Remove "OS_ID"
 110 
	OraDatabase.Parameters.Remove "OS_ID"
111 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 111 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
112 
	OraDatabase.Parameters.Remove "BOM_ID"
 112 
	OraDatabase.Parameters.Remove "BOM_ID"
113
113
114 
	rsQry.Close
 114 
	rsQry.Close
115 
	Set rsQry = Nothing
 115 
	Set rsQry = Nothing
116 
End Sub
 116 
End Sub
117 
'--------------------------------------------------------------------------------------------------------------------------
 117 
'--------------------------------------------------------------------------------------------------------------------------
118 
Sub GetProductVersions ( aRs, outMore )
 118 
Sub GetProductVersions ( aRs, outMore )
119 
	Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount
 119 
	Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount
120
120
121 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
121 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
122 
	OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
122 
	OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
123 
	OraDatabase.Parameters.Add "FILTER_ON",   1,	ORAPARM_INPUT, ORATYPE_NUMBER
123 
	OraDatabase.Parameters.Add "FILTER_ON",   1,	ORAPARM_INPUT, ORATYPE_NUMBER
124
124
125 
	'-- Get all Ora Parameters
 125 
	'-- Get all Ora Parameters
126 
	Set OraParameter = OraDatabase.Parameters
 126 
	Set OraParameter = OraDatabase.Parameters
127
127
128
128
129 
	'-- Clear Filter if user require
 129 
	'-- Clear Filter if user require
130 
	If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0
 130 
	If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0
131
131
132
132
133 
	'-- Get Record Set
 133 
	'-- Get Record Set
134 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
 134 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
135 
	CurrentRecordCount = rsQry.RecordCount
 135 
	CurrentRecordCount = rsQry.RecordCount
136 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 136 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
137 
		aRs = rsQry.GetRows()
 137 
		aRs = rsQry.GetRows()
138
138
139 
	Else
 139 
	Else
140 
		aRs = NULL
 140 
		aRs = NULL
141
141
142 
	End If
 142 
	End If
143
143
144 
	rsQry.Close
 144 
	rsQry.Close
145 
	Set rsQry = Nothing
 145 
	Set rsQry = Nothing
146
146
147
147
148 
	'-- Get Total Record Count
 148 
	'-- Get Total Record Count
149 
	OraParameter("FILTER_ON").Value = 0
 149 
	OraParameter("FILTER_ON").Value = 0
150 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
 150 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
151 
	TotalRecordCount = rsQry.RecordCount
 151 
	TotalRecordCount = rsQry.RecordCount
152
152
153 
	rsQry.Close
 153 
	rsQry.Close
154 
	Set rsQry = Nothing
 154 
	Set rsQry = Nothing
155
155
156
156
157 
	'-- Create More... linke if needed
 157 
	'-- Create More... linke if needed
158 
	outMore = NULL
 158 
	outMore = NULL
159 
	If CurrentRecordCount < TotalRecordCount Then
 159 
	If CurrentRecordCount < TotalRecordCount Then
160 
		outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"
 160 
		outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"
161 
	End If
 161 
	End If
162
162
163
163
164 
	Set OraParameter = Nothing
 164 
	Set OraParameter = Nothing
165
165
166 
	OraDatabase.Parameters.Remove "PKG_ID"
 166 
	OraDatabase.Parameters.Remove "PKG_ID"
167 
	OraDatabase.Parameters.Remove "PROJ_ID"
 167 
	OraDatabase.Parameters.Remove "PROJ_ID"
168 
	OraDatabase.Parameters.Remove "FILTER_ON"
 168 
	OraDatabase.Parameters.Remove "FILTER_ON"
169 
End Sub
 169 
End Sub
170 
'--------------------------------------------------------------------------------------------------------------------------
 170 
'--------------------------------------------------------------------------------------------------------------------------
171 
Function GetSeqNumList ( nSeq_num )
 171 
Function GetSeqNumList ( nSeq_num )
172 
	Dim rsQry, query
 172 
	Dim rsQry, query
173
173
174 
	OraDatabase.Parameters.Add "SEQ_NUM",   nSeq_num,	ORAPARM_INPUT, ORATYPE_NUMBER
174 
	OraDatabase.Parameters.Add "SEQ_NUM",   nSeq_num,	ORAPARM_INPUT, ORATYPE_NUMBER
175
175
176
176
177 
	If parBase_env_id = "" Then
 177 
	If parBase_env_id = "" Then
178 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
178 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
179 
		query = GetQuery ("InstallOrderComboAtOs.sql")
 179 
		query = GetQuery ("InstallOrderComboAtOs.sql")
180 
	Else
 180 
	Else
181 
		OraDatabase.Parameters.Add "BASE_ENV_ID",  parBase_env_id,		ORAPARM_INPUT, ORATYPE_NUMBER
181 
		OraDatabase.Parameters.Add "BASE_ENV_ID",  parBase_env_id,		ORAPARM_INPUT, ORATYPE_NUMBER
182 
		query = GetQuery ("InstallOrderComboAtBaseEnv.sql")
 182 
		query = GetQuery ("InstallOrderComboAtBaseEnv.sql")
183 
	End If
 183 
	End If
184
184
185
185
186 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 186 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
187 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 187 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
188 
		GetSeqNumList = rsQry.GetRows()
 188 
		GetSeqNumList = rsQry.GetRows()
189
189
190 
	Else
 190 
	Else
191 
		GetSeqNumList = NULL
 191 
		GetSeqNumList = NULL
192
192
193 
	End If
 193 
	End If
194
194
195 
	rsQry.Close
 195 
	rsQry.Close
196 
	Set rsQry = Nothing
 196 
	Set rsQry = Nothing
197
197
198 
	OraDatabase.Parameters.Remove "OS_ID"
 198 
	OraDatabase.Parameters.Remove "OS_ID"
199 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 199 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
200 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 200 
	OraDatabase.Parameters.Remove "SEQ_NUM"
201 
End Function
 201 
End Function
202 
'--------------------------------------------------------------------------------------------------------------------------
 202 
'--------------------------------------------------------------------------------------------------------------------------
203 
Sub UpdateProdAtOs ()
 203 
Sub UpdateProdAtOs ()
204 
	On Error Resume Next
 204 
	On Error Resume Next
205
205
206 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
206 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
207 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 207 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
208 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
208 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
209 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
209 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
210 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 210 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
211 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
211 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
212 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
212 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
213 
	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
213 
	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
214 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
214 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
215 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
215 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
216 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
216 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
217 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
217 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
218 
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 218 
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
219 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
219 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
220 
 
 220 
 
221
221
222 
	objEH.TryORA ( OraSession )
 222 
	objEH.TryORA ( OraSession )
223
223
224 
	OraDatabase.ExecuteSQL _
 224 
	OraDatabase.ExecuteSQL _
225 
	"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;"
225 
	"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;"
226
226
227 
	objEH.CatchORA ( OraSession )
 227 
	objEH.CatchORA ( OraSession )
228
228
229 
	objEH.TryORA ( OraSession )
 229 
	objEH.TryORA ( OraSession )
230
230
231 
	OraDatabase.ExecuteSQL _
 231 
	OraDatabase.ExecuteSQL _
232 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
232 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
233
233
234 
	objEH.CatchORA ( OraSession )
 234 
	objEH.CatchORA ( OraSession )
235 
 
 235 
 
236 
 
 236 
 
237 
	Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )
237 
	Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )
238
238
239
239
240 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 240 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
241 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 241 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
242 
	OraDatabase.Parameters.Remove "OS_ID"
 242 
	OraDatabase.Parameters.Remove "OS_ID"
243 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 243 
	OraDatabase.Parameters.Remove "SEQ_NUM"
244 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 244 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
245 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
245 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
246 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
 246 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
247 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
247 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
248 
	OraDatabase.Parameters.Remove "NOT_XML"
248 
	OraDatabase.Parameters.Remove "NOT_XML"
249 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
249 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
250 
	OraDatabase.Parameters.Remove "USER_ID"
250 
	OraDatabase.Parameters.Remove "USER_ID"
251 
	OraDatabase.Parameters.Remove "COMMENT"
251 
	OraDatabase.Parameters.Remove "COMMENT"
252 
	OraDatabase.Parameters.Remove "PKG_NAME"
252 
	OraDatabase.Parameters.Remove "PKG_NAME"
253 
	OraDatabase.Parameters.Remove "BOM_ID"
253 
	OraDatabase.Parameters.Remove "BOM_ID"
254
254
255 
End Sub
 255 
End Sub
256 
'--------------------------------------------------------------------------------------------------------------------------
 256 
'--------------------------------------------------------------------------------------------------------------------------
257 
Sub UpdateProdAtBaseEnv ()
 257 
Sub UpdateProdAtBaseEnv ()
258 
	On Error Resume Next
 258 
	On Error Resume Next
259
259
260 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
260 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
261 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 261 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
262 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
262 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
263 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
263 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
264 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 264 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
265 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
265 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
266 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
266 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
267 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
267 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
268 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
268 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
269 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
269 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
270 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
270 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
271 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
271 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
272 
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 272 
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
273 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
273 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
274
274
275 
	objEH.TryORA ( OraSession )
 275 
	objEH.TryORA ( OraSession )
276
276
277 
	OraDatabase.ExecuteSQL _
 277 
	OraDatabase.ExecuteSQL _
278 
	"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, :USER_ID, :PKG_NAME ); END;"
278 
	"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, :USER_ID, :PKG_NAME ); END;"
279
279
280 
	objEH.CatchORA ( OraSession )
 280 
	objEH.CatchORA ( OraSession )
281
281
282 
	objEH.TryORA ( OraSession )
 282 
	objEH.TryORA ( OraSession )
283
283
284 
	OraDatabase.ExecuteSQL _
 284 
	OraDatabase.ExecuteSQL _
285 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
285 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
286
286
287 
	objEH.CatchORA ( OraSession )
 287 
	objEH.CatchORA ( OraSession )
288
288
289
289
290
290
291 
	Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )
291 
	Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )
292
292
293
293
294 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 294 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
295 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 295 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
296 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 296 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
297 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 297 
	OraDatabase.Parameters.Remove "SEQ_NUM"
298 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 298 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
299 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
 299 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
300 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
300 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
301 
	OraDatabase.Parameters.Remove "NOT_XML"
301 
	OraDatabase.Parameters.Remove "NOT_XML"
302 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
 302 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
303 
	OraDatabase.Parameters.Remove "USER_ID"
303 
	OraDatabase.Parameters.Remove "USER_ID"
304 
	OraDatabase.Parameters.Remove "COMMENT"
304 
	OraDatabase.Parameters.Remove "COMMENT"
305 
	OraDatabase.Parameters.Remove "OS_ID"
305 
	OraDatabase.Parameters.Remove "OS_ID"
306 
	OraDatabase.Parameters.Remove "PKG_NAME"
 306 
	OraDatabase.Parameters.Remove "PKG_NAME"
307 
	OraDatabase.Parameters.Remove "BOM_ID"
 307 
	OraDatabase.Parameters.Remove "BOM_ID"
308
308
309 
End Sub
 309 
End Sub
310 
'--------------------------------------------------------------------------------------------------------------------------
 310 
'--------------------------------------------------------------------------------------------------------------------------
311 
%>
 311 
%>
312 
<%
 312 
<%
313 
'------------ RUN BEFORE PAGE RENDER ----------
 313 
'------------ RUN BEFORE PAGE RENDER ----------
314 
objPMod.PersistInQryString ( Array("base_env_id") )
 314 
objPMod.PersistInQryString ( Array("base_env_id") )
315 
 
 315 
 
316 
' --- Get Form details from DB ---
 316 
' --- Get Form details from DB ---
317 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
 317 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
318 
 
 318 
 
319 
' --- Load Validation Rules ---
 319 
' --- Load Validation Rules ---
320 
Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
 320 
Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
321 
 
 321 
 
322 
' --- Enter Form Validation Rule Changes here... ----
 322 
' --- Enter Form Validation Rule Changes here... ----
323 
'----------------------------------------------------
 323 
'----------------------------------------------------
324 
 
 324 
 
325 
If Request("action") = "true" Then
 325 
If Request("action") = "true" Then
326 
	If objForm.IsValidOnPostBack Then
 326 
	If objForm.IsValidOnPostBack Then
327 
		' --- Form is Valid ---
 327 
		' --- Form is Valid ---
328 
		If parBase_env_id = "" Then
 328 
		If parBase_env_id = "" Then
329 
			Call UpdateProdAtOs()
 329 
			Call UpdateProdAtOs()
330 
		Else
 330 
		Else
331 
			Call UpdateProdAtBaseEnv()
 331 
			Call UpdateProdAtBaseEnv()
332 
		End If
 332 
		End If
333
333
334
334
335 
		If objEH.Finally Then
 335 
		If objEH.Finally Then
336 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 336 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
337 
			Call CloseWindow()
 337 
			Call CloseWindow()
338 
		End If
 338 
		End If
339
339
340 
	End If
 340 
	End If
341 
ElseIf Request("action") = "filter_off" Then
 341 
ElseIf Request("action") = "filter_off" Then
342 
	parFilter_on = 0
 342 
	parFilter_on = 0
343 
End If
 343 
End If
344 
'----------------------------------------------
 344 
'----------------------------------------------
345 
%>
 345 
%>
346 
<html>
 346 
<html>
347 
<head>
 347 
<head>
348 
<title>Deployment Manager</title>
 348 
<title>Deployment Manager</title>
349 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 349 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
350 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 350 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
351 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 351 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
352 
<script language="JavaScript" src="scripts/common.js"></script>
 352 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
353 
</head>
 353 
<script language="JavaScript" src="scripts/common.js"></script>
354 
 
 354 
</head>
355 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 355 
 
356 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 356 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
357 
  <tr>
 357 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
358 
    <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>
 358 
  <tr>
359 
    Update product details and click Submit.
359 
    <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>
360 
    </td>
 360 
    Update product details and click Submit.
361 
  </tr>
 361 
    </td>
362 
  <%
 362 
  </tr>
363 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 363 
  <%
364 
  objFormComponent.FormName = "FormName"
 364 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
365 
  objFormComponent.Action = SCRIPT_NAME
 365 
  objFormComponent.FormName = "FormName"
366 
  objFormComponent.OnSubmit = "ShowProgress();"
 366 
  objFormComponent.Action = SCRIPT_NAME
367 
  Call objFormComponent.FormStart()
 367 
  objFormComponent.OnSubmit = "ShowProgress();"
368 
  %>
368 
  Call objFormComponent.FormStart()
369 
  <tr>
 369 
  %>
370 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 370 
  <tr>
371 
      <tr>
 371 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
372 
        <td><%=ProgressBar%></td>
 372 
      <tr>
373 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 373 
        <td><%=ProgressBar%></td>
374 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 374 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
375 
      </tr>
 375 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
376 
    </table></td>
 376 
      </tr>
377 
  </tr>
 377 
    </table></td>
378 
  <tr>
 378 
  </tr>
379 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 379 
  <tr>
380 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
380 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
381 
	  <%If NOT objEH.Finally Then%>
 381 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
382 
      <tr>
 382 
	  <%If NOT objEH.Finally Then%>
383 
        <td class="form_iname">&nbsp;</td>
 383 
      <tr>
384 
        <td>
 384 
        <td class="form_iname">&nbsp;</td>
385 
		 <%objEH.DisplayMessage()%>
 385 
        <td>
386 
		</td>
 386 
		 <%objEH.DisplayMessage()%>
387 
        <td class="val_err"></td>
 387 
		</td>
388 
      </tr>
 388 
        <td class="val_err"></td>
389 
	  <%End If%>
 389 
      </tr>
390 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 390 
	  <%End If%>
391 
      <tr>
 391 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
392 
        <td nowrap class="form_iname" valign="top">Install Order</td>
 392 
      <tr>
393 
        <td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>
 393 
        <td nowrap class="form_iname" valign="top">Install Order</td>
394 
		<td valign="top"></td>
 394 
        <td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>
395 
      </tr>
 395 
		<td valign="top"></td>
396 
	  <tr>
 396 
      </tr>
397 
        <td nowrap class="form_iname" valign="top">Product Name</td>
 397 
	  <tr>
398 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
 398 
        <td nowrap class="form_iname" valign="top">Product Name</td>
399 
		<td valign="top"></td>
 399 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
400 
      </tr>
 400 
		<td valign="top"></td>
401 
<%If IsNull(objFormCollector.Item("is_patch")) Then%>
401 
      </tr>
402 
	  <tr>
 402 
<%If IsNull(objFormCollector.Item("is_patch")) Then%>
403 
        <td nowrap class="form_iname" valign="top">SunOS Electronic Name</td>
 403 
	  <tr>
404 
        <td valign="top"><%=objFormComponent.TextBox ( "sunos_electronic_name", objFormCollector.Item("sunos_electronic_name"), "size='70' class='form_ivalue'" )%></td>
 404 
        <td nowrap class="form_iname" valign="top">SunOS Electronic Name</td>
405 
		<td valign="top"></td>
 405 
        <td valign="top"><%=objFormComponent.TextBox ( "sunos_electronic_name", objFormCollector.Item("sunos_electronic_name"), "size='70' class='form_ivalue'" )%></td>
406 
      </tr>
 406 
		<td valign="top"></td>
407 
	  <tr>
 407 
      </tr>
408 
        <td nowrap class="form_iname" valign="top">Windows Electronic Name</td>
 408 
	  <tr>
409 
        <td valign="top"><%=objFormComponent.TextBox ( "win_electronic_name", objFormCollector.Item("win_electronic_name"), "size='70' class='form_ivalue'" )%></td>
 409 
        <td nowrap class="form_iname" valign="top">Windows Electronic Name</td>
410 
		<td valign="top"></td>
 410 
        <td valign="top"><%=objFormComponent.TextBox ( "win_electronic_name", objFormCollector.Item("win_electronic_name"), "size='70' class='form_ivalue'" )%></td>
411 
      </tr>
 411 
		<td valign="top"></td>
412 
<%Else%>
 412 
      </tr>
413 
	  <tr>
 413 
<%Else%>
414 
        <td nowrap class="form_iname" valign="top">Patch Electronic Name</td>
 414 
	  <tr>
415 
        <td valign="top"><%=objFormComponent.TextBox ( "patch_electronic_name", objFormCollector.Item("patch_electronic_name"), "size='70' class='form_ivalue'" )%></td>
 415 
        <td nowrap class="form_iname" valign="top">Patch Electronic Name</td>
416 
		<td valign="top"></td>
 416 
        <td valign="top"><%=objFormComponent.TextBox ( "patch_electronic_name", objFormCollector.Item("patch_electronic_name"), "size='70' class='form_ivalue'" )%></td>
417 
		<input type="hidden" name="sunos_electronic_name" value="<%=objFormCollector.Item("sunos_electronic_name")%>">
 417 
		<td valign="top"></td>
418 
		<input type="hidden" name="win_electronic_name" value="<%=objFormCollector.Item("win_electronic_name")%>">
 418 
		<input type="hidden" name="sunos_electronic_name" value="<%=objFormCollector.Item("sunos_electronic_name")%>">
419
419 
		<input type="hidden" name="win_electronic_name" value="<%=objFormCollector.Item("win_electronic_name")%>">
420 
      </tr>
420
421 
<%End If%>
421 
      </tr>
422 
	  <tr>
 422 
<%End If%>
423 
        <td nowrap class="form_iname" valign="top">Include In Node Spec File</td>
 423 
	  <tr>
424 
		<%If IsNull(objFormCollector.Item("is_node_spec")) Then%>
 424 
        <td nowrap class="form_iname" valign="top">Include In Node Spec File</td>
425 
        <td valign="top"><input type="checkbox" name="is_node_spec"></td>
 425 
		<%If IsNull(objFormCollector.Item("is_node_spec")) Then%>
426 
		<%Else%>
 426 
        <td valign="top"><input type="checkbox" name="is_node_spec"></td>
427 
        <td valign="top"><input type="checkbox" name="is_node_spec" checked></td>
 427 
		<%Else%>
428 
		<%End If%>
 428 
        <td valign="top"><input type="checkbox" name="is_node_spec" checked></td>
429 
		<td valign="top"></td>
 429 
		<%End If%>
430 
      </tr>
430 
		<td valign="top"></td>
431 
	  <tr>
 431 
      </tr>
432 
        <td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
 432 
	  <tr>
433 
		<%If IsNull(objFormCollector.Item("not_xml")) Then%>
 433 
        <td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
434 
        <td valign="top"><input type="checkbox" name="not_xml"></td>
 434 
		<%If IsNull(objFormCollector.Item("not_xml")) Then%>
435 
		<%Else%>
 435 
        <td valign="top"><input type="checkbox" name="not_xml"></td>
436 
        <td valign="top"><input type="checkbox" name="not_xml" checked></td>
 436 
		<%Else%>
437 
		<%End If%>
 437 
        <td valign="top"><input type="checkbox" name="not_xml" checked></td>
438 
		<td valign="top"></td>
 438 
		<%End If%>
439 
      </tr>
439 
		<td valign="top"></td>
440 
      <tr>
 440 
      </tr>
441 
        <td nowrap class="form_iname" valign="top">Version</td>
 441 
      <tr>
442 
        <td valign="top"><%
 442 
        <td nowrap class="form_iname" valign="top">Version</td>
443 
		Call GetProductVersions( aRs, MoreLink )
 443 
        <td valign="top"><%
444 
		ForceDropdown = FALSE
 444 
		Call GetProductVersions( aRs, MoreLink )
445 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
 445 
		ForceDropdown = FALSE
446 
 
 446 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
447 
		OraDatabase.Parameters.Add "PV_ID", 	parProd_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 447 
 
448 
		OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 448 
		OraDatabase.Parameters.Add "PV_ID", 	parProd_id,		ORAPARM_INPUT, ORATYPE_NUMBER
449
449 
		OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
450 
		Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT )
 450
451
451 
		Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT )
452 
		If rsTemp.RecordCount = 0 Then
 452
453 
			Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
 453 
		If rsTemp.RecordCount = 0 Then
454 
		Else
 454 
			Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
455 
			Response.write objFormComponent.TextBox ( "new_prod_version", objFormCollector.Item("pkg_version"), "size='30' class='form_ivalue' readonly" )
 455 
		Else
456 
		End If
 456 
			Response.write objFormComponent.TextBox ( "new_prod_version", objFormCollector.Item("pkg_version"), "size='30' class='form_ivalue' readonly" )
457 
		%></td>
 457 
		End If
458 
		<td valign="top"></td>
 458 
		%></td>
459 
      </tr>
 459 
		<td valign="top"></td>
460 
      <tr>
 460 
      </tr>
461 
        <td valign="top" nowrap class="form_iname">Comments</td>
 461 
      <tr>
462 
        <td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue'" )%></td>
 462 
        <td valign="top" nowrap class="form_iname">Comments</td>
463 
		<td valign="top">
 463 
        <td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue'" )%></td>
464 
		<%=objForm.Validate ("product_comments")%>
 464 
		<td valign="top">
465 
		</td>
 465 
		<%=objForm.Validate ("product_comments")%>
466 
      </tr>
 466 
		</td>
467 
      <tr>
 467 
      </tr>
468 
        <td width="10%" class="form_iname">&nbsp;</td>
 468 
      <tr>
469 
        <td width="1%">&nbsp;</td>
 469 
        <td width="10%" class="form_iname">&nbsp;</td>
470 
		<td width="90%" class="val_err"></td>
 470 
        <td width="1%">&nbsp;</td>
471 
      </tr>
 471 
		<td width="90%" class="val_err"></td>
472 
    </table></td>
 472 
      </tr>
473 
  </tr>
 473 
    </table></td>
474 
  <%=objPMod.ComposeHiddenTags()%>
 474 
  </tr>
475 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
 475 
  <%=objPMod.ComposeHiddenTags()%>
476 
  <input type="hidden" name="action" value="true">
 476 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
477 
  <%
 477 
  <input type="hidden" name="action" value="true">
478 
   	 OraDatabase.Parameters.Remove "PV_ID"
 478 
  <%
479 
   	 OraDatabase.Parameters.Remove "OS_ID"
 479 
   	 OraDatabase.Parameters.Remove "PV_ID"
480 
	 rsTemp.Close()
 480 
   	 OraDatabase.Parameters.Remove "OS_ID"
481 
	Set rsTemp = nothing
 481 
	 rsTemp.Close()
482 
  Call objFormComponent.FormEnd()
 482 
	Set rsTemp = nothing
483 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 483 
  Call objFormComponent.FormEnd()
484 
  %>
 484 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
485 
</table>
 485 
  %>
486 
</body>
 486 
</table>
487 
</html>
 487 
</body>
488 
<%
 488 
</html>
489 
'------------ RUN AFTER PAGE RENDER -----------
 489 
<%
490 
Set objFormCollector = Nothing
 490 
'------------ RUN AFTER PAGE RENDER -----------
491 
'----------------------------------------------
 491 
Set objFormCollector = Nothing
492 
%><!--#include file="common/globals_destructor.asp"-->
 492 
'----------------------------------------------
- 
 
 493 
%><!--#include file="common/globals_destructor.asp"-->