Subversion Repositories DevTools

Rev

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

Rev 13 Rev 17
Line 29... Line 29...
29 
'--------------------------------------------------------------------------------------------------------------------------------
 29 
'--------------------------------------------------------------------------------------------------------------------------------
30 
Sub DestroyOs ()
 30 
Sub DestroyOs ()
31 
	On Error Resume Next
 31 
	On Error Resume Next
32
32
33 
	OraDatabase.Parameters.Add "OS_ID_LIST", Request("os_id_list"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 33 
	OraDatabase.Parameters.Add "OS_ID_LIST", Request("os_id_list"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
34
- 
 
- 
 
 34 
	OraDatabase.Parameters.Add "USER_ID", 	 objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
35
35
36 
	objEH.TryORA ( OraSession )
 36 
	objEH.TryORA ( OraSession )
37
37
38 
	OraDatabase.ExecuteSQL _
 38 
	OraDatabase.ExecuteSQL _
39 
	"BEGIN   pk_Operating_System.Destroy_Os ( :OS_ID_LIST );   END;"
 39 
	"BEGIN   pk_Operating_System.Destroy_Os ( :OS_ID_LIST, :USER_ID );   END;"
40
40
41 
	objEH.CatchORA ( OraSession )
 41 
	objEH.CatchORA ( OraSession )
42
42
43
43
44 
	OraDatabase.Parameters.Remove "OS_ID_LIST"
 44 
	OraDatabase.Parameters.Remove "OS_ID_LIST"
- 
 
 45 
	OraDatabase.Parameters.Remove "USER_ID"
45
46
46 
End Sub
 47 
End Sub
47 
'--------------------------------------------------------------------------------------------------------------------------
 48 
'--------------------------------------------------------------------------------------------------------------------------
48 
%>
 49 
%>
49 
<%
 50 
<%