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



	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2		
	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
	
	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.CatchORA ( OraSession )
	
	objEH.TryORA ( OraSession )
	

	OraDatabase.Parameters.Remove "IS_NODE_SPEC"	
	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"	
		
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateProdAtBaseEnv ()
	On Error Resume Next

	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 "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER 	
	OraDatabase.Parameters.Add "PKG_NAME", 		"", 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
	
	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.CatchORA ( OraSession )
	
	objEH.TryORA ( OraSession )
	

	OraDatabase.Parameters.Remove "NOT_XML"		
	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"
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%

		OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
			
		Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT )
	
		If rsTemp.RecordCount = 0 Then
 
			Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
		Else
			Response.write objFormComponent.TextBox ( "new_prod_version", objFormCollector.Item("pkg_version"), "size='30' class='form_ivalue' readonly" )
		End If
		%></td>
		<td valign="top"></td>
      </tr>
      <tr>

Rev 23	Rev 25
Line 213...	Line 213...
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		219
219	`objEH.TryORA ( OraSession )`	220	`objEH.TryORA ( OraSession )`
220		221
221	`OraDatabase.ExecuteSQL _`	222	`OraDatabase.ExecuteSQL _`
222	`"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 ); END;"`	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;"`
223		224
224	`objEH.CatchORA ( OraSession )`	225	`objEH.CatchORA ( OraSession )`
225		226
226	`objEH.TryORA ( OraSession )`	227	`objEH.TryORA ( OraSession )`
227		228
Line 241...	Line 242...
241	`OraDatabase.Parameters.Remove "IS_NODE_SPEC"`	242	`OraDatabase.Parameters.Remove "IS_NODE_SPEC"`
242	`OraDatabase.Parameters.Remove "NOT_XML"`	243	`OraDatabase.Parameters.Remove "NOT_XML"`
243	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`	244	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`
244	`OraDatabase.Parameters.Remove "USER_ID"`	245	`OraDatabase.Parameters.Remove "USER_ID"`
245	`OraDatabase.Parameters.Remove "COMMENT"`	246	`OraDatabase.Parameters.Remove "COMMENT"`
-		247	`OraDatabase.Parameters.Remove "PKG_NAME"`
246		248
247	`End Sub`	249	`End Sub`
248	`'--------------------------------------------------------------------------------------------------------------------------`	250	`'--------------------------------------------------------------------------------------------------------------------------`
249	`Sub UpdateProdAtBaseEnv ()`	251	`Sub UpdateProdAtBaseEnv ()`
250	`On Error Resume Next`	252	`On Error Resume Next`
Line 259...	Line 261...
259	`OraDatabase.Parameters.Add "NOT_XML", Request("not_xml"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	261	`OraDatabase.Parameters.Add "NOT_XML", Request("not_xml"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
260	`OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2`	262	`OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2`
261	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	263	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
262	`OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2`	264	`OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2`
263	`OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	265	`OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
-		266	`OraDatabase.Parameters.Add "PKG_NAME", "", ORAPARM_OUTPUT, ORATYPE_VARCHAR2`
264		267
265	`objEH.TryORA ( OraSession )`	268	`objEH.TryORA ( OraSession )`
266		269
267	`OraDatabase.ExecuteSQL _`	270	`OraDatabase.ExecuteSQL _`
268	`"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;"`	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;"`
269		272
270	`objEH.CatchORA ( OraSession )`	273	`objEH.CatchORA ( OraSession )`
271		274
272	`objEH.TryORA ( OraSession )`	275	`objEH.TryORA ( OraSession )`
273		276
Line 286...	Line 289...
286	`OraDatabase.Parameters.Remove "NOT_XML"`	289	`OraDatabase.Parameters.Remove "NOT_XML"`
287	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`	290	`OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"`
288	`OraDatabase.Parameters.Remove "USER_ID"`	291	`OraDatabase.Parameters.Remove "USER_ID"`
289	`OraDatabase.Parameters.Remove "COMMENT"`	292	`OraDatabase.Parameters.Remove "COMMENT"`
290	`OraDatabase.Parameters.Remove "OS_ID"`	293	`OraDatabase.Parameters.Remove "OS_ID"`
-		294	`OraDatabase.Parameters.Remove "PKG_NAME"`
291		295
292	`End Sub`	296	`End Sub`
293	`'--------------------------------------------------------------------------------------------------------------------------`	297	`'--------------------------------------------------------------------------------------------------------------------------`
294	`%>`	298	`%>`
295	`<%`	299	`<%`
Line 431...	Line 435...
431	`OraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBER`	435	`OraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBER`
432		436
433	`Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT )`	437	`Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT )`
434		438
435	`If rsTemp.RecordCount = 0 Then`	439	`If rsTemp.RecordCount = 0 Then`
436		-
437	`Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )`	440	`Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )`
438	`Else`	441	`Else`
439	`Response.write objFormComponent.TextBox ( "new_prod_version", objFormCollector.Item("pkg_version"), "size='30' class='form_ivalue' disabled" )`	442	`Response.write objFormComponent.TextBox ( "new_prod_version", objFormCollector.Item("pkg_version"), "size='30' class='form_ivalue' readonly" )`
440	`End If`	443	`End If`
441	`%></td>`	444	`%></td>`
442	`<td valign="top"></td>`	445	`<td valign="top"></td>`
443	`</tr>`	446	`</tr>`
444	`<tr>`	447	`<tr>`

Subversion Repositories DevTools

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