Subversion Repositories DevTools

Rev

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

Rev 2 Rev 6
Line 34... Line 34...
34 
	OraDatabase.Parameters.Add "APP_ID", 		Request("app_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
 34 
	OraDatabase.Parameters.Add "APP_ID", 		Request("app_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
35 
	OraDatabase.Parameters.Add "INCLUDE_ALL", 	Request("everyone"), 		ORAPARM_INPUT, ORATYPE_CHAR
 35 
	OraDatabase.Parameters.Add "INCLUDE_ALL", 	Request("everyone"), 		ORAPARM_INPUT, ORATYPE_CHAR
36
36
37 
	objEH.TryORA ( OraSession )
 37 
	objEH.TryORA ( OraSession )
38
38
39 
		OraDatabase.ExecuteSQL _
 - 
 
40 
		"BEGIN   pk_User.Remove_Application_User ( :USER_ID_LIST, :APP_ID, :INCLUDE_ALL );   END;"
 39 
		OraDatabase.ExecuteSQL "BEGIN   pk_User.Remove_Application_User ( :USER_ID_LIST, :APP_ID, :INCLUDE_ALL );   END;"
41
- 
 
42 
		'--- Log Action ---
 - 
 
43 
		'objEH.LogAction  _
 - 
 
44 
		'objAccessControl.UserId, _
 - 
 
45 
		'enumAT_EVENT_COMMENT, _
 - 
 
46 
		'"Sub RemoveProductFromOs PROD_ID_LIST="& Request("prod_id_list") &", OS_ID="& Request("os_id") , _
 - 
 
47 
		'SCRIPT_NAME, _
 - 
 
48 
		'"Removed Products from OS.", _
 - 
 
49 
		'OraDatabase
- 
 
50
40
51 
	objEH.CatchORA ( OraSession )
 41 
	objEH.CatchORA ( OraSession )
52
42
53 
	OraDatabase.Parameters.Remove "USER_ID_LIST"
 43 
	OraDatabase.Parameters.Remove "USER_ID_LIST"
54 
	OraDatabase.Parameters.Remove "INCLUDE_ALL"
 44 
	OraDatabase.Parameters.Remove "INCLUDE_ALL"
Line 61... Line 51...
61 
'**************************** M  A  I  N ******************************
 51 
'**************************** M  A  I  N ******************************
62 
' --- Form is Valid ---
 52 
' --- Form is Valid ---
63 
Call RemoveApplicationUser()
 53 
Call RemoveApplicationUser()
64 
 
 54 
 
65 
If objEH.Finally Then
 55 
If objEH.Finally Then
- 
 
 56 
	If Request("rfile") = "User_Applications.asp" Then
- 
 
 57 
		Call OpenInWindow ( Request("rfile") &"?"& objPMod.ComposeURLWith("user_id,tree") )
- 
 
 58 
	Else
66 
	Call OpenInWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
 59 
		Call OpenInWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
- 
 
 60 
	End If
67 
End If
 61 
End If
68 
'**********************************************************************
 62 
'**********************************************************************
69 
%>
 63 
%>
70 
<%
 64 
<%
71 
'------------ RUN AFTER CODE RUN --------------
 65 
'------------ RUN AFTER CODE RUN --------------