<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wRemoveFromApplication | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub RemoveFromApplication () On Error Resume Next OraDatabase.Parameters.Add "USER_ID_LIST", Request("user_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "APP_ID", Request("app_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL "BEGIN pk_User.Remove_Application_User ( :USER_ID_LIST, :APP_ID, NULL ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "USER_ID_LIST" OraDatabase.Parameters.Remove "APP_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub DisplayApplicationCombo() Dim rsQry, sqlStr OraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_NUMBER sqlStr = "SELECT ua.app_id, ap.application_name FROM applications ap, user_applications ua " &_ "WHERE ap.app_id = ua.app_id AND ua.user_id = :USER_ID" Set rsQry = OraDatabase.DbCreateDynaset( sqlStr, cint(0)) If rsQry.BOF OR rsQry.EOF Then Response.write "No Applications Available"& VBNewLine Else Response.write ""& rsQry("application_name") &""& VBNewLine rsQry.MoveNext End If While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Response.write ""& rsQry("application_name") &""& VBNewLine rsQry.MoveNext WEnd ' Clean up rsQry.Close() Set rsQry = nothing OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) If Request("action") <> "" AND Request("app_id") <> "-1" Then Call RemoveFromApplication() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURLWith("user_id,tree") ) Call CloseWindow() End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%>

Remove Application User Select application name.

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Remove <%=objUserCollector("full_name")%> from Application: Application Name <%Call DisplayApplicationCombo()%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- %>