Subversion Repositories DevTools

Rev

Rev 5512 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5354 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wEditAccount                   |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<!--#include file="common/_user_common.asp"-->
18 
<%
19 
'------------ ACCESS CONTROL ------------------
20 
%>
21 
<!--#include file="_access_control_general.asp"-->
22 
<%
23 
'------------ VARIABLE DEFINITION -------------
24 
Dim objFormCollector
25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
27 
Set objFormCollector = CreateObject("Scripting.Dictionary")
28 
'------------ CONDITIONS ----------------------
29 
'----------------------------------------------
30 
%>
31 
<%
32 
'--------------------------------------------------------------------------------------------------------------------------
33 
Sub EditUserAccount ()
34 
	On Error Resume Next
35 
 
36 
	OraDatabase.Parameters.Add "USER_ID", 		Request("user_id"), 	    ORAPARM_INPUT, ORATYPE_VARCHAR2
37 
	OraDatabase.Parameters.Add "FULL_NAME", 	Request("full_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
38 
	OraDatabase.Parameters.Add "USER_NAME", 	Request("user_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
39 
	OraDatabase.Parameters.Add "USER_EMAIL", 	Request("user_email"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
40 
	OraDatabase.Parameters.Add "DOMAIN", 		Request("domain"), 			ORAPARM_INPUT, ORATYPE_VARCHAR2
41 
 
42 
 
43 
	objEH.TryORA ( OraSession )
44 
 
45 
	OraDatabase.ExecuteSQL _
46 
	"BEGIN PK_USER.UPDATE_USER_ACCOUNT (:USER_ID, :FULL_NAME, :USER_NAME, :USER_EMAIL, :DOMAIN ); END;"
47 
 
48 
	objEH.CatchORA ( OraSession )
49 
 
50 
	OraDatabase.Parameters.Remove "USER_ID"
51 
	OraDatabase.Parameters.Remove "FULL_NAME"
52 
	OraDatabase.Parameters.Remove "USER_NAME"
53 
	OraDatabase.Parameters.Remove "USER_EMAIL"
54 
	OraDatabase.Parameters.Remove "DOMAIN"
55 
 
56 
End Sub
57 
'--------------------------------------------------------------------------------------------------------------------------
58 
%>
59 
<%
60 
'------------ RUN BEFORE PAGE RENDER ----------
61 
' --- Get Form details from DB (for edit forms only) ---
62 
Call GetUserDetails ( parUser_id, objUserCollector )
63 
'-------------------------------------------------------
64 
 
65 
' --- Load Validation Rules ---
66 
Call objForm.LoadValidationRules ( Array("full_name", "user_name", "user_email", "domain"), OraDatabase )		' Load Validation Rules
67 
 
68 
 
69 
' --- Enter Form Validation Rule Changes here... ----
70 
'----------------------------------------------------
71 
 
72 
If CBool(Request("action")) Then
73 
	If objForm.IsValidOnPostBack Then
74 
		' --- Form is Valid ---
75 
		Call EditUserAccount()
76 
 
77 
		If objEH.Finally Then
78 
            If Request("rmode") <> "" Then
79 
			    Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,user_id,rmode") )
80 
            Else
81 
			    Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,rmode") )
82 
            End If
83 
			Call CloseWindow()
84 
		End If
85 
 
86 
	End If
87 
End If
88 
'----------------------------------------------
89 
%>
90 
<html>
91 
<head>
92 
<title>Access Manager</title>
93 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
94 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
95 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
96 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
97 
<script language="JavaScript" src="scripts/common.js"></script>
98 
</head>
99 
 
100 
<body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
101 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
102 
  <tr>
103 
    <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">&nbsp;Edit Account</span> <br>
104 
    Enter User Account details.
105 
    </td>
106 
  </tr>
107 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
108 
  <tr>
109 
    <td background="images/bg_drk_bage_pane.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
110 
      <tr>
111 
        <td>&nbsp;</td>
112 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Update">
113 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
114 
      </tr>
115 
    </table></td>
116 
  </tr>
117 
  <tr>
118 
    <td background="images/bg_form.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
119 
      <tr>
120 
        <td width="1%"><img src="images/spacer.gif" width="60" height="200"></td>
121 
        <td width="100%"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
122 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
123 
          <%If NOT objEH.Finally Then%>
124 
          <tr>
125 
            <td class="form_iname">&nbsp;</td>
126 
            <td>
127 
              <%objEH.DisplayMessage()%>
128 
            </td>
129 
            <td class="val_err"></td>
130 
          </tr>
131 
          <%End If%>
132 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
133 
          <tr>
134 
            <td nowrap class="form_iname" valign="top">Full Name </td>
135 
            <td valign="top"><input name="full_name" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("full_name"))%>"></td>
136 
            <td valign="top"> <%=objForm.Validate ("full_name")%> </td>
137 
          </tr>
138 
          <tr>
139 
            <td nowrap class="form_iname" valign="top">User Name </td>
140 
            <td valign="top"><input name="user_name" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("user_name"))%>"></td>
141 
            <td valign="top"> <%=objForm.Validate ("user_name")%> </td>
142 
          </tr>
143 
		  <tr>
144 
            <td nowrap class="form_iname" valign="top">Email </td>
145 
            <td valign="top"><input name="user_email" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("user_email"))%>"></td>
146 
            <td valign="top"> <%=objForm.Validate ("user_email")%> </td>
147 
          </tr>
148 
		  <tr>
149 
            <td nowrap class="form_iname" valign="top">User Domain </td>
150 
            <td valign="top"><input name="domain" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("domain"))%>"></td>
151 
            <td valign="top"> <%=objForm.Validate ("domain")%> </td>
152 
          </tr>
6049 dpurdie 153 
		  <tr>
154 
            <td nowrap class="form_iname" valign="top">Disable </td>
155 
            <td valign="top"><input name="state" type="checkbox" class="form_ivalue" disabled <%=Iif(objUserCollector("is_disabled") = "Y", "checked","")%>></td>
156 
            <td valign="top"> <%=objForm.Validate ("domain")%> </td>
157 
          </tr>
5354 dpurdie 158 
          <tr>
159 
            <td width="10%" class="form_iname">&nbsp;</td>
160 
            <td width="1%">&nbsp;</td>
161 
            <td width="90%" class="val_err"></td>
162 
          </tr>
163 
        </table></td>
164 
      </tr>
165 
    </table></td>
166 
  </tr>
167 
  <%=objPMod.ComposeHiddenTags()%>
168 
  <input type="hidden" name="action" value="true">
169 
  </form>
170 
</table>
171 
</body>
172 
</html>
173 
<%
174 
'------------ RUN AFTER PAGE RENDER -----------
175 
Set objFormCollector = Nothing
176 
'----------------------------------------------
177 
%>
178 
<!--#include file="common/globals_destructor.asp"-->