Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
17 rsolanki 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|				    	My Details				     |
6
'|                                      			 |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
13
%>
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
22
<!--#include file="_access_control_general.asp"-->
23
<%
24
'------------ Variable Definition -------------
25
Dim parDomainAuth
26
'------------ Constants Declaration -----------
27
'------------ Variable Init -------------------
28
parDomainAuth = QStrPar("FRdomainauth")
29
If parDomainAuth = "" Then parDomainAuth = "N"
30
'----------------------------------------------
31
%>
32
<%
33
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
34
	Dim rsTemp, Query_String
35
	Query_String = _
36
	"SELECT * FROM users WHERE user_id= "& NNuser_id
37
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
38
 
39
	'update fields
40
	rsTemp.Edit
41
	rsTemp.Fields("full_name").Value = SSfullname
42
	rsTemp.Fields("user_email").Value = SSemail
3938 dpurdie 43
 
44
    ' Removed ability for user to configure domain name
45
    ' This is done via access manager
46
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
47
	'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
48
	'	If SSDomainAuth = "Y" Then
49
	'		rsTemp.Fields("user_password").Value = NULL
50
	'		rsTemp.Fields("domain").Value = SSdomain_name
51
	'	Else
52
	'		rsTemp.Fields("domain").Value = NULL
53
	'	End If
54
	'End If
17 rsolanki 55
	rsTemp.Update
56
 
57
	rsTemp.Close
58
	Set rsTemp = nothing
59
End Sub
60
%>
61
<%
62
'--- Process submition ---
63
If CBool(QStrPar("action")) Then
3938 dpurdie 64
	' All mandatory parameters FOUND
17 rsolanki 65
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
66
 
67
	If objAccessControl.Domain <> parDomainAuth Then
68
		If parDomainAuth = "N" Then
69
			Response.Redirect("members_new_password.asp")
70
		End If
71
	End If
72
 
73
	Session.Abandon
74
	Response.Redirect("message.asp?msg=200-9")
75
End If
76
%>
77
<html>
78
<head>
79
<title>Deployment Manager</title>
80
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
81
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
29 jtweddle 82
<link rel="stylesheet" href="scripts/deployment_manager.css" type="text/css">
17 rsolanki 83
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
84
<link rel="stylesheet" href="images/navigation.css" type="text/css">
29 jtweddle 85
<script language="JavaScript" src="scripts/common.js"></script>
17 rsolanki 86
<!-- TIPS -->
87
<script language="JavaScript" src="images/tipster.js"></script>
88
<script language="JavaScript" src="images/_help_tips.js"></script>
89
<script language="JavaScript">
90
<!--
91
function DisableDomain() {
92
	if (MM_findObj("FRdomainauth").checked) {
93
		MM_findObj("FRdomain_name").disabled=false;
94
		MM_findObj("FRstatus3").value='';
95
	} else {
96
		MM_findObj("FRdomain_name").disabled=true;
97
		MM_findObj("FRstatus3").value='Not Required!';
98
	}
99
}
100
 
101
//-->
102
</script>
103
</head>
104
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
105
<!-- TIPS LAYERS -------------------------------------->
106
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
107
<!----------------------------------------------------->
3938 dpurdie 108
<!-- HEADER ++++++++++++++++ -->
109
<!--#include file="_header.asp"-->
110
<!-- +++++++++++++++++++++++ -->
17 rsolanki 111
<!-- BODY ---->
112
<table width="100%" border="0" cellspacing="0" cellpadding="0">
113
  <tr> 
114
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
115
      <!-- MEMBERS MENU ---------------------------------------------->
116
	  <!--#include file="members_menu_def.asp"-->
117
	  <%Call Member_Menu( "my details" )%>
118
      <!--  MEMBERS MENU END ------------------------------------------>
119
    </td>
120
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="default.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
121
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap> 
122
      <!------------------------------------------->
123
      <br>
124
      <span class="mmb_ttl">Account Details</span><br>
125
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
126
        <form name="chdetails" method="post" action="members_my_details.asp" onSubmit="MM_validateForm('FRfullname','Name and Surname','R','FRemail','Email','RisEmail','FRdomain_name','Domain Name','isDomainName');return document.MM_returnValue">
127
          <tr> 
128
            <td width="1%">&nbsp;</td>
129
            <td><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
130
            <td width="1%">&nbsp;</td>
131
          </tr>
132
          <tr> 
133
            <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
134
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
135
            <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
136
          </tr>
137
          <tr> 
138
            <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
139
            <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
140
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
141
                <tr> 
142
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
143
                  <td width="1%" nowrap class="form_group" valign="bottom">PERSONAL 
144
                    DETAILS</td>
145
                  <td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td>
146
                </tr>
147
                <tr> 
148
                  <td width="1%">&nbsp;</td>
149
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Name 
150
                    and Surname</td>
151
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
152
                    <input type="text" name="FRfullname" class="form_item" value="<%=objAccessControl.FullName%>">
153
                  </td>
154
                </tr>
155
                <tr> 
156
                  <td width="1%">&nbsp;</td>
157
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Email</td>
158
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
159
                    <input type="text" name="FRemail" class="form_item" value="<%=objAccessControl.UserEmail%>">
160
                  </td>
161
                </tr>
162
 
163
                <tr> 
164
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
165
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
166
                    LOGIN DETAILS</td>
167
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
168
                </tr>
3938 dpurdie 169
 
170
                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
171
				<tr>
17 rsolanki 172
                  <td width="1%">&nbsp;</td>
173
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
174
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
3938 dpurdie 175
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
176
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
177
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
17 rsolanki 178
                </tr>
179
				<tr> 
180
                  <td width="1%">&nbsp;</td>
181
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
182
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
3938 dpurdie 183
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
184
                    <span hidden class="form_status">
185
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
186
                    </span>
17 rsolanki 187
                  </td>
188
                </tr>
189
 
3938 dpurdie 190
                <tr>
17 rsolanki 191
                  <td width="1%">&nbsp;</td>
192
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
193
                  <td nowrap width="100%"> 
194
                    <input type="hidden" name="action" value="true">
195
                    <input type="submit" name="btn" value=" Apply " class="form_btn">
196
                    <input type="reset" name="btn" value="Reset" class="form_btn">
197
                    <br>
198
                    <br>
199
                  </td>
200
                </tr>
201
              </table>
202
              <br>
203
              <br>
204
            </td>
205
            <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
206
          </tr>
207
          <tr> 
208
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
209
            <td background="images/bg_member_dark.gif"></td>
210
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
211
          </tr>
212
        </form>
213
      </table>
214
      <!-------------------------------------------------------->
215
      <br>
216
    </td>
217
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_member.gif" width="160" height="230" vspace="10" hspace="10"></td>
218
  </tr>
219
  <tr> 
220
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
221
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
222
  </tr>
223
</table>
224
<!-- FOOTER -->
225
<!--#include file="_footer.asp"-->
226
</body>
227
</html>
228
<%
229
Call Destroy_All_Objects
230
%>