Subversion Repositories DevTools

Rev

Rev 5642 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5642 Rev 5958
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	My Details				     |
 5 
'|                      My Details                   |
6 
'|                                      			 |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
 12 
Response.Expires = 0    ' always load the page, dont store
13 
%>
 13 
%>
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
Line 29... Line 29...
29 
If parDomainAuth = "" Then parDomainAuth = "N"
 29 
If parDomainAuth = "" Then parDomainAuth = "N"
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
 33 
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
34 
	Dim rsTemp, Query_String
 34 
    Dim rsTemp, Query_String
35 
	Query_String = _
 35 
    Query_String = _
36 
	"SELECT * FROM users WHERE user_id= "& NNuser_id
 36 
    "SELECT * FROM users WHERE user_id= "& NNuser_id
37 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 37 
    Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
38
38
39 
	'update fields
 39 
    'update fields
40 
	rsTemp.Edit
 40 
    rsTemp.Edit
41 
	rsTemp.Fields("full_name").Value = SSfullname
 41 
    rsTemp.Fields("full_name").Value = SSfullname
42 
	rsTemp.Fields("user_email").Value = SSemail
 42 
    rsTemp.Fields("user_email").Value = SSemail
43 
 
 43 
 
44 
    ' Removed ability for user to configure domain name
 44 
    ' Removed ability for user to configure domain name
45 
    ' This is done via access manager
 45 
    ' This is done via access manager
46 
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
 46 
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
47 
	'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
 47 
    'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
48 
	'	If SSDomainAuth = "Y" Then
 48 
    '   If SSDomainAuth = "Y" Then
49 
	'		rsTemp.Fields("user_password").Value = NULL
 49 
    '       rsTemp.Fields("user_password").Value = NULL
50 
	'		rsTemp.Fields("domain").Value = SSdomain_name
 50 
    '       rsTemp.Fields("domain").Value = SSdomain_name
51 
	'	Else
 51 
    '   Else
52 
	'		rsTemp.Fields("domain").Value = NULL
 52 
    '       rsTemp.Fields("domain").Value = NULL
53 
	'	End If
 53 
    '   End If
54 
	'End If
 54 
    'End If
55 
	rsTemp.Update
 55 
    rsTemp.Update
56
56
57 
	rsTemp.Close
 57 
    rsTemp.Close
58 
	Set rsTemp = nothing
 58 
    Set rsTemp = nothing
59 
End Sub
 59 
End Sub
60 
%>
 60 
%>
61 
<%
 61 
<%
62 
'--- Process submition ---
 62 
'--- Process submition ---
63 
If CBool(QStrPar("action")) Then
 63 
If CBool(QStrPar("action")) Then
64 
	' All mandatory parameters FOUND
 64 
    ' All mandatory parameters FOUND
65 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
 65 
    Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
66
66
67 
	If NOT objAccessControl.Domain <> "" Then
 67 
    If NOT objAccessControl.Domain <> "" Then
68 
		If parDomainAuth = "N" Then
 68 
        If parDomainAuth = "N" Then
- 
 
 69 
            Call Destroy_All_Objects
69 
			Response.Redirect("members_new_password.asp")
 70 
            Response.Redirect("members_new_password.asp")
70 
		End If
 71 
        End If
71 
	End If
 72 
    End If
72
73
73 
	Session.Abandon
 74 
    Session.Abandon
- 
 
 75 
    Call Destroy_All_Objects
74 
	Response.Redirect("message.asp?msg=200-9")
 76 
    Response.Redirect("message.asp?msg=200-9")
75 
End If
 77 
End If
76 
%>
 78 
%>
77 
<html>
 79 
<html>
78 
<head>
 80 
<head>
79 
<title>Deployment Manager</title>
 81 
<title>Deployment Manager</title>
Line 88... Line 90...
88 
<script language="JavaScript" src="images/tipster.js"></script>
 90 
<script language="JavaScript" src="images/tipster.js"></script>
89 
<script language="JavaScript" src="images/_help_tips.js"></script>
 91 
<script language="JavaScript" src="images/_help_tips.js"></script>
90 
<script language="JavaScript">
 92 
<script language="JavaScript">
91 
<!--
 93 
<!--
92 
function DisableDomain() {
 94 
function DisableDomain() {
93 
	if (MM_findObj("FRdomainauth").checked) {
 95 
    if (MM_findObj("FRdomainauth").checked) {
94 
		MM_findObj("FRdomain_name").disabled=false;
 96 
        MM_findObj("FRdomain_name").disabled=false;
95 
		MM_findObj("FRstatus3").value='';
 97 
        MM_findObj("FRstatus3").value='';
96 
	} else {
 98 
    } else {
97 
		MM_findObj("FRdomain_name").disabled=true;
 99 
        MM_findObj("FRdomain_name").disabled=true;
98 
		MM_findObj("FRstatus3").value='Not Required!';
 100 
        MM_findObj("FRstatus3").value='Not Required!';
99 
	}
 101 
    }
100 
}
 102 
}
101 
 
 103 
 
102 
//-->
 104 
//-->
103 
</script>
 105 
</script>
104 
</head>
 106 
</head>
Line 112... Line 114...
112 
<!-- BODY ---->
 114 
<!-- BODY ---->
113 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 115 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
114 
  <tr>
116 
  <tr>
115 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
117 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
116 
      <!-- MEMBERS MENU ---------------------------------------------->
 118 
      <!-- MEMBERS MENU ---------------------------------------------->
117 
	  <!--#include file="members_menu_def.asp"-->
 119 
      <!--#include file="members_menu_def.asp"-->
118 
	  <%Call Member_Menu( "my details" )%>
 120 
      <%Call Member_Menu( "my details" )%>
119 
      <!--  MEMBERS MENU END ------------------------------------------>
 121 
      <!--  MEMBERS MENU END ------------------------------------------>
120 
    </td>
 122 
    </td>
121 
    <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>
 123 
    <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>
122 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
124 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
123 
      <!------------------------------------------->
 125 
      <!------------------------------------------->
Line 167... Line 169...
167 
                    LOGIN DETAILS</td>
 169 
                    LOGIN DETAILS</td>
168 
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
 170 
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
169 
                </tr>
 171 
                </tr>
170 
 
 172 
 
171 
                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
 173 
                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
172 
				<tr>
 174 
                <tr>
173 
                  <td width="1%">&nbsp;</td>
 175 
                  <td width="1%">&nbsp;</td>
174 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
 176 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
175 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
177 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
176 
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
 178 
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
177 
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
 179 
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
178 
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
 180 
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
179 
                </tr>
 181 
                </tr>
180 
				<tr>
182 
                <tr>
181 
                  <td width="1%">&nbsp;</td>
 183 
                  <td width="1%">&nbsp;</td>
182 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
 184 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
183 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
185 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
184 
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
 186 
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
185 
                    <span hidden class="form_status">
 187 
                    <span hidden class="form_status">
186 
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
 188 
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
187 
                    </span>
 189 
                    </span>
188 
                  </td>
 190 
                  </td>
189 
                </tr>
 191 
                </tr>
190
192
191 
                <tr>
 193 
                <tr>
192 
                  <td width="1%">&nbsp;</td>
 194 
                  <td width="1%">&nbsp;</td>
193 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 195 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
194 
                  <td nowrap width="100%">
196 
                  <td nowrap width="100%">
195 
                    <input type="hidden" name="action" value="true">
 197 
                    <input type="hidden" name="action" value="true">
Line 224... Line 226...
224 
</table>
 226 
</table>
225 
<!-- FOOTER -->
 227 
<!-- FOOTER -->
226 
<!--#include file="_footer.asp"-->
 228 
<!--#include file="_footer.asp"-->
227 
</body>
 229 
</body>
228 
</html>
 230 
</html>
229 
<%
 - 
 
230 
Call Destroy_All_Objects
 - 
 
231 
%>
 - 
 
232 

            231