Subversion Repositories DevTools

Rev

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

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