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 DestroyNode ()
 30 
Sub DestroyNode ()
31 
	On Error Resume Next
 31 
	On Error Resume Next
32
32
33 
	OraDatabase.Parameters.Add "NODE_ID_LIST", Request("node_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 33 
	OraDatabase.Parameters.Add "NODE_ID_LIST", Request("node_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_Network_Node.Destroy_Node ( :NODE_ID_LIST );   END;"
 39 
	"BEGIN   pk_Network_Node.Destroy_Node ( :NODE_ID_LIST, :USER_ID );   END;"
40
40
41 
	objEH.CatchORA ( OraSession )
 41 
	objEH.CatchORA ( OraSession )
42
42
43
43
44 
	OraDatabase.Parameters.Remove "NODE_ID_LIST"
 44 
	OraDatabase.Parameters.Remove "NODE_ID_LIST"
- 
 
 45 
	OraDatabase.Parameters.Remove "USER_ID"
45
46 
 
46 
End Sub
 47 
End Sub
47 
'--------------------------------------------------------------------------------------------------------------------------
 48 
'--------------------------------------------------------------------------------------------------------------------------
48 
%>
 49 
%>
49 
<%
 50 
<%
50 
'**************************** M  A  I  N ******************************
 51 
'**************************** M  A  I  N ******************************