Rev 5299 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| wEditRole |'| |'=====================================================%><%Option explicitResponse.Expires = 0%><!--#include file="common/globals.asp"--><!--#include file="common/config.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/_popup_window_common.asp"--><!--#include file="common/_user_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ VARIABLE DEFINITION -------------Dim objFormCollector'------------ CONSTANTS DECLARATION -----------'------------ VARIABLE INIT -------------------Set objFormCollector = CreateObject("Scripting.Dictionary")'------------ CONDITIONS ----------------------'----------------------------------------------%><%'-----------------------------------------------------------------------------------------------------------------Sub GetRoleDetails ( nRole_id, ByRef outobjDetails )Dim rsQry, queryquery = "SELECT * FROM ROLES WHERE role_id = "& nRole_idSet rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) ThenoutobjDetails.Item ("role_id") = rsQry("role_id")outobjDetails.Item ("role_name") = rsQry("role_name")outobjDetails.Item ("role_comments") = rsQry("comments")ElseErr.Raise 8, "Sub GetRoleDetails", "Empty record set returned. nRole_id="& nRole_idEnd IfrsQry.CloseSet rsQry = NothingEnd Sub'--------------------------------------------------------------------------------------------------------------------------Sub UpdateRole ()On Error Resume NextOraDatabase.Parameters.Add "ROLE_NAME", Request("role_name"), ORAPARM_INPUT, ORATYPE_STRINGOraDatabase.Parameters.Add "ROLE_COMMENTS", Request("role_comments"), ORAPARM_INPUT, ORATYPE_STRINGOraDatabase.Parameters.Add "ROLE_ID", Request("role_id"), ORAPARM_INPUT, ORATYPE_NUMBERobjEH.TryORA ( OraSession )OraDatabase.ExecuteSQL _"BEGIN pk_Role.Update_Role ( :ROLE_ID, :ROLE_NAME, :ROLE_COMMENTS ); END;"objEH.CatchORA ( OraSession )OraDatabase.Parameters.Remove "ROLE_NAME"OraDatabase.Parameters.Remove "ROLE_COMMENTS"OraDatabase.Parameters.Remove "ROLE_ID"End Sub'--------------------------------------------------------------------------------------------------------------------------%><%'------------ RUN BEFORE PAGE RENDER ----------' --- Get Form details from DB (for edit forms only) ---'-------------------------------------------------------Call GetRoleDetails ( Request("role_id"), objUserCollector )' --- Load Validation Rules ---Call objForm.LoadValidationRules ( Array("role_name", "role_comments"), OraDatabase ) ' Load Validation Rules' --- Enter Form Validation Rule Changes here... ----'----------------------------------------------------If CBool(Request("action")) ThenIf objForm.IsValidOnPostBack Then' --- Form is Valid ---Call UpdateRole()If objEH.Finally ThenCall OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,role_id") )Call CloseWindow()End IfEnd IfEnd If'----------------------------------------------%><html><head><title>Access Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="scripts/access_manager.css" rel="stylesheet" type="text/css"><script language="JavaScript" src="scripts/common.js"></script></head><body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.role_name.focus();"><table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_role_lrg.gif" width="13" height="18" hspace="0" align="absmiddle"> Edit Role </span> <br>Edit Role Name and Description.</td></tr><form name="FormName" method="post" action="<%=SCRIPT_NAME%>"><tr><td background="images/bg_drk_bage_pane.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td> </td><td align="right"><input name="btn" type="submit" class="form_btn" value="Update"><input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr></table></td></tr><tr><td background="images/bg_form.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%"><img src="images/spacer.gif" width="60" height="200"></td><td width="100%"><table width="100%" border="0" cellspacing="2" cellpadding="0"><!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ --><%If NOT objEH.Finally Then%><tr><td class="form_iname"> </td><td><%objEH.DisplayMessage()%></td><td class="val_err"></td></tr><%End If%><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><tr><td nowrap class="form_iname" valign="top">Role Name </td><td valign="top"><input name="role_name" type="text" class="form_ivalue" size="60" value="<%=objUserCollector("role_name")%>"></td><td valign="top"> <%=objForm.Validate ("role_name")%> </td></tr><tr><td valign="top" nowrap class="form_iname">Description</td><td valign="top"><textarea name="role_comments" cols="60" rows="10" class="form_ivalue"><%=objUserCollector("role_comments")%></textarea></td><td valign="top"> <%=objForm.Validate ("role_comments")%> </td></tr><tr><td width="10%" class="form_iname"> </td><td width="1%"> </td><td width="90%" class="val_err"></td></tr></table></td></tr></table></td></tr><%=objPMod.ComposeHiddenTags()%><input type="hidden" name="action" value="true"></form></table></body></html><%'------------ RUN AFTER PAGE RENDER -----------Set objFormCollector = Nothing'----------------------------------------------%><!--#include file="common/globals_destructor.asp"-->