WebSVN – DevTools – Diff – /ManagerSuite/Deployment_Manager/trunk/wEditProd.asp



	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2	
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2		
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2				
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER 
 
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"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;"	

	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"	
	
	objEH.CatchORA ( OraSession )
 
 
	Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )		
	
	
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
	OraDatabase.Parameters.Remove "OS_ID"

	OraDatabase.Parameters.Remove "NOT_XML"	
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"	
	OraDatabase.Parameters.Remove "USER_ID"		
	OraDatabase.Parameters.Remove "COMMENT"		
	OraDatabase.Parameters.Remove "PKG_NAME"	
	OraDatabase.Parameters.Remove "BOM_ID"	
		
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateProdAtBaseEnv ()
	On Error Resume Next

	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2	
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2					
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER 	
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER 
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"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;"	

	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"	
	
	objEH.CatchORA ( OraSession )
	
	
	
	Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )		
	
			
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
	OraDatabase.Parameters.Remove "SEQ_NUM"
	OraDatabase.Parameters.Remove "PROD_COMMENTS"

	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
	OraDatabase.Parameters.Remove "USER_ID"		
	OraDatabase.Parameters.Remove "COMMENT"					
	OraDatabase.Parameters.Remove "OS_ID"		
	OraDatabase.Parameters.Remove "PKG_NAME"
	OraDatabase.Parameters.Remove "BOM_ID"
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/wEditProd.asp @ 43 – Rev 25 → 29

Rev 25		Rev 29
Line 214...		Line 214...
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`
-		220
219		221
220	`objEH.TryORA ( OraSession )`	222	`objEH.TryORA ( OraSession )`
221		223
222	`OraDatabase.ExecuteSQL _`	224	`OraDatabase.ExecuteSQL _`
223	`"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;"`
Line 227...		Line 229...
227	`objEH.TryORA ( OraSession )`	229	`objEH.TryORA ( OraSession )`
228		230
229	`OraDatabase.ExecuteSQL _`	231	`OraDatabase.ExecuteSQL _`
230	`"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;"`
231		233
232	`objEH.CatchORA ( OraSession )`	234	`objEH.CatchORA ( OraSession )`
-		235
-		236
-		237	`Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )`
233		238
234		239
235	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`	240	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`
236	`OraDatabase.Parameters.Remove "NEW_PROD_VERSION"`	241	`OraDatabase.Parameters.Remove "NEW_PROD_VERSION"`
237	`OraDatabase.Parameters.Remove "OS_ID"`	242	`OraDatabase.Parameters.Remove "OS_ID"`
Line 243...		Line 248...
243	`OraDatabase.Parameters.Remove "NOT_XML"`	248	`OraDatabase.Parameters.Remove "NOT_XML"`
244	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`	249	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`
245	`OraDatabase.Parameters.Remove "USER_ID"`	250	`OraDatabase.Parameters.Remove "USER_ID"`
246	`OraDatabase.Parameters.Remove "COMMENT"`	251	`OraDatabase.Parameters.Remove "COMMENT"`
247	`OraDatabase.Parameters.Remove "PKG_NAME"`	252	`OraDatabase.Parameters.Remove "PKG_NAME"`
-		253	`OraDatabase.Parameters.Remove "BOM_ID"`
248		254
249	`End Sub`	255	`End Sub`
250	`'--------------------------------------------------------------------------------------------------------------------------`	256	`'--------------------------------------------------------------------------------------------------------------------------`
251	`Sub UpdateProdAtBaseEnv ()`	257	`Sub UpdateProdAtBaseEnv ()`
252	`On Error Resume Next`	258	`On Error Resume Next`
Line 262...		Line 268...
262	`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`
263	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	269	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
264	`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`
265	`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`
266	`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`
267		274
268	`objEH.TryORA ( OraSession )`	275	`objEH.TryORA ( OraSession )`
269		276
270	`OraDatabase.ExecuteSQL _`	277	`OraDatabase.ExecuteSQL _`
271	`"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;"`
Line 275...		Line 282...
275	`objEH.TryORA ( OraSession )`	282	`objEH.TryORA ( OraSession )`
276		283
277	`OraDatabase.ExecuteSQL _`	284	`OraDatabase.ExecuteSQL _`
278	`"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;"`
279		286
280	`objEH.CatchORA ( OraSession )`	287	`objEH.CatchORA ( OraSession )`
-		288
-		289
-		290
-		291	`Call PopulateSBOMField( parBom_id, NULL, objFormCollector.Item("pkg_name"), Request("new_prod_version") )`
281		292
-		293
282	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`	294	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`
283	`OraDatabase.Parameters.Remove "NEW_PROD_VERSION"`	295	`OraDatabase.Parameters.Remove "NEW_PROD_VERSION"`
284	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`	296	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`
285	`OraDatabase.Parameters.Remove "SEQ_NUM"`	297	`OraDatabase.Parameters.Remove "SEQ_NUM"`
286	`OraDatabase.Parameters.Remove "PROD_COMMENTS"`	298	`OraDatabase.Parameters.Remove "PROD_COMMENTS"`
Line 290...		Line 302...
290	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`	302	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`
291	`OraDatabase.Parameters.Remove "USER_ID"`	303	`OraDatabase.Parameters.Remove "USER_ID"`
292	`OraDatabase.Parameters.Remove "COMMENT"`	304	`OraDatabase.Parameters.Remove "COMMENT"`
293	`OraDatabase.Parameters.Remove "OS_ID"`	305	`OraDatabase.Parameters.Remove "OS_ID"`
294	`OraDatabase.Parameters.Remove "PKG_NAME"`	306	`OraDatabase.Parameters.Remove "PKG_NAME"`
-		307	`OraDatabase.Parameters.Remove "BOM_ID"`
295		308
296	`End Sub`	309	`End Sub`
297	`'--------------------------------------------------------------------------------------------------------------------------`	310	`'--------------------------------------------------------------------------------------------------------------------------`
298	`%>`	311	`%>`
299	`<%`	312	`<%`