Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 29... Line 29...
29 
'--------------------------------------------------------------------------------------------------------------------------------
 29 
'--------------------------------------------------------------------------------------------------------------------------------
30 
Sub DestroyBaseEnv ()
 30 
Sub DestroyBaseEnv ()
31 
	On Error Resume Next
 31 
	On Error Resume Next
32
32
33 
	OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 33 
	OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
34
- 
 
- 
 
 34 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 35 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
35
36
36 
	objEH.TryORA ( OraSession )
 37 
	objEH.TryORA ( OraSession )
37
38
38 
	OraDatabase.ExecuteSQL _
 39 
	OraDatabase.ExecuteSQL _
39 
	"BEGIN   pk_Base_Env.Destroy_Base_Env ( :BASE_ENV_ID );   END;"
 40 
	"BEGIN   pk_Base_Env.Destroy_Base_Env ( :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
40
41
41 
	objEH.CatchORA ( OraSession )
 42 
	objEH.CatchORA ( OraSession )
42
43
43
44
44 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 45 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
- 
 
 46 
	OraDatabase.Parameters.Remove "OS_ID"
- 
 
 47 
	OraDatabase.Parameters.Remove "USER_ID"
45
48
46 
End Sub
 49 
End Sub
47 
'--------------------------------------------------------------------------------------------------------------------------
 50 
'--------------------------------------------------------------------------------------------------------------------------
48 
%>
 51 
%>
49 
<%
 52 
<%