Subversion Repositories DevTools

Rev

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

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