Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 84... Line 84...
84 
	objEH.ErrorRedirect = TRUE
 84 
	objEH.ErrorRedirect = TRUE
85
85
86 
	OraDatabase.Parameters.Add "PKG_ID", 		0, 							ORAPARM_INPUT, ORATYPE_NUMBER
86 
	OraDatabase.Parameters.Add "PKG_ID", 		0, 							ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "PROD_VERSION", 	"", 						ORAPARM_INPUT, ORATYPE_VARCHAR2
 87 
	OraDatabase.Parameters.Add "PROD_VERSION", 	"", 						ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
88 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 89 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "COMMENTS", 		NULL, 						ORAPARM_INPUT, ORATYPE_VARCHAR2
 91 
	OraDatabase.Parameters.Add "COMMENTS", 		NULL, 						ORAPARM_INPUT, ORATYPE_VARCHAR2
91
92
92 
	Set OraParameter = OraDatabase.Parameters
 93 
	Set OraParameter = OraDatabase.Parameters
93
94
Line 102... Line 103...
102 
		OraParameter("COMMENTS").Value 	   = Request("comments"& PkgId )
 103 
		OraParameter("COMMENTS").Value 	   = Request("comments"& PkgId )
103
104
104 
		'Response.write OraParameter("PKG_ID").Value &"-"& OraParameter("PROD_VERSION").Value &"-"& OraParameter("BASE_ENV_ID").Value &"-"& OraParameter("USER_ID").Value &"|"& Request("pkgid"& PkgId ) &"<br>"
 105 
		'Response.write OraParameter("PKG_ID").Value &"-"& OraParameter("PROD_VERSION").Value &"-"& OraParameter("BASE_ENV_ID").Value &"-"& OraParameter("USER_ID").Value &"|"& Request("pkgid"& PkgId ) &"<br>"
105
106
106 
		OraDatabase.ExecuteSQL _
 107 
		OraDatabase.ExecuteSQL _
107 
		"BEGIN   pk_Base_Env.Add_Product_Wrap ( :PKG_ID, :PROD_VERSION, :BASE_ENV_ID, :USER_ID, :COMMENTS );   END;"
 108 
		"BEGIN   pk_Base_Env.Add_Product_Wrap ( :PKG_ID, :PROD_VERSION, :BASE_ENV_ID, :OS_ID , :USER_ID, :COMMENTS );   END;"
108
109
109 
	Next
 110 
	Next
110
111
111 
	'--- Log Action ---
 112 
	'--- Log Action ---
112 
	objEH.LogAction  _
 113 
	objEH.LogAction  _
Line 121... Line 122...
121
122
122
123
123 
	OraDatabase.Parameters.Remove "PKG_ID"
 124 
	OraDatabase.Parameters.Remove "PKG_ID"
124 
	OraDatabase.Parameters.Remove "PROD_VERSION"
 125 
	OraDatabase.Parameters.Remove "PROD_VERSION"
125 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 126 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
- 
 
 127 
	OraDatabase.Parameters.Remove "OS_ID"
126 
	OraDatabase.Parameters.Remove "USER_ID"
 128 
	OraDatabase.Parameters.Remove "USER_ID"
127 
	OraDatabase.Parameters.Remove "COMMENTS"
 129 
	OraDatabase.Parameters.Remove "COMMENTS"
128
130
129 
End Sub
 131 
End Sub
130 
'--------------------------------------------------------------------------------------------------------------------------
 132 
'--------------------------------------------------------------------------------------------------------------------------