Subversion Repositories DevTools

Rev

Rev 5958 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                      My Details                   |
'|                                                   |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0    ' always load the page, dont store
%>
<!--#include file="common/config.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim parDomainAuth
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parDomainAuth = QStrPar("FRdomainauth")
If parDomainAuth = "" Then parDomainAuth = "N"
'----------------------------------------------
%>
<%
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
    Dim rsTemp, Query_String
    Query_String = _
    "SELECT * FROM users WHERE user_id= "& NNuser_id
    Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
    
    'update fields
    rsTemp.Edit
    rsTemp.Fields("full_name").Value = SSfullname
    rsTemp.Fields("user_email").Value = SSemail

    ' Removed ability for user to configure domain name
    ' This is done via access manager
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
    'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
    '   If SSDomainAuth = "Y" Then
    '       rsTemp.Fields("user_password").Value = NULL
    '       rsTemp.Fields("domain").Value = SSdomain_name
    '   Else
    '       rsTemp.Fields("domain").Value = NULL
    '   End If
    'End If
    rsTemp.Update
    
    rsTemp.Close
    Set rsTemp = nothing
End Sub
%>
<%
'--- Process submition ---
If CBool(QStrPar("action")) Then
    ' All mandatory parameters FOUND
    Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
    
    If NOT objAccessControl.Domain <> "" Then
        If parDomainAuth = "N" Then
            Call Destroy_All_Objects
            Response.Redirect("members_new_password.asp")
        End If
    End If
    
    Session.Abandon
    Call Destroy_All_Objects
    Response.Redirect("message.asp?msg=200-9")
End If
%>
<html>
<head>
<title>Deployment Manager</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
<!-- TIPS -->
<script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
<script language="JavaScript" src="images/_help_tips.js"></script>
<script language="JavaScript">
<!--
function DisableDomain() {
    if (MM_findObj("FRdomainauth").checked) {
        MM_findObj("FRdomain_name").disabled=false;
        MM_findObj("FRstatus3").value='';
    } else {
        MM_findObj("FRdomain_name").disabled=true;
        MM_findObj("FRstatus3").value='Not Required!';
    }
}

//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<!-- TIPS LAYERS -------------------------------------->
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
<!----------------------------------------------------->
<!-- HEADER ++++++++++++++++ -->
<!--#include file="_header.asp"-->
<!-- +++++++++++++++++++++++ -->
<!-- BODY ---->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
      <!-- MEMBERS MENU ---------------------------------------------->
      <!--#include file="members_menu_def.asp"-->
      <%Call Member_Menu( "my details" )%>
      <!--  MEMBERS MENU END ------------------------------------------>
    </td>
    <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>
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap> 
      <!------------------------------------------->
      <br>
      <span class="mmb_ttl">Account Details</span><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <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">
          <tr> 
            <td width="1%">&nbsp;</td>
            <td><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
            <td width="1%">&nbsp;</td>
          </tr>
          <tr> 
            <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>
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
            <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
          </tr>
          <tr> 
            <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
            <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
                <tr> 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
                  <td width="1%" nowrap class="form_group" valign="bottom">PERSONAL 
                    DETAILS</td>
                  <td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td>
                </tr>
                <tr> 
                  <td width="1%">&nbsp;</td>
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Name 
                    and Surname</td>
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
                    <input type="text" name="FRfullname" class="form_item" value="<%=objAccessControl.FullName%>">
                  </td>
                </tr>
                <tr> 
                  <td width="1%">&nbsp;</td>
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Email</td>
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
                    <input type="text" name="FRemail" class="form_item" value="<%=objAccessControl.UserEmail%>" size="50">
                  </td>
                </tr>
                
                <tr> 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
                    LOGIN DETAILS</td>
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
                </tr>

                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
                <tr>
                  <td width="1%">&nbsp;</td>
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
                </tr>
                <tr> 
                  <td width="1%">&nbsp;</td>
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
                    <span hidden class="form_status">
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
                    </span>
                  </td>
                </tr>
                
                <tr>
                  <td width="1%">&nbsp;</td>
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
                  <td nowrap width="100%"> 
                    <input type="hidden" name="action" value="true">
                    <input type="submit" name="btn" value=" Apply " class="form_btn">
                    <input type="reset" name="btn" value="Reset" class="form_btn">
                    <br>
                    <br>
                  </td>
                </tr>
              </table>
              <br>
              <br>
            </td>
            <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
          </tr>
          <tr> 
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
            <td background="images/bg_member_dark.gif"></td>
            <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>
          </tr>
        </form>
      </table>
      <!-------------------------------------------------------->
      <br>
    </td>
    <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>
  </tr>
  <tr> 
    <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>
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
  </tr>
</table>
<!-- FOOTER -->
<!--#include file="_footer.asp"-->
</body>
</html>