
<!--WSS
/*
 * Written by Scott Auge scott_auge@yahoo.com sauge@amduus.com
 * Copyright (c) 2001 Amduus Information Works, Inc.  www.amduus.com
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by Amduus Information Works
 *      Inc. and its contributors.
 * 4. Neither the name of Amduus Information Works, Inc. nor the names of 
 *    its contributors may be used to endorse or promote products derived 
 *    from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY AMDUUS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AMDUUS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 */
-->


<!--WSS

DEF VAR RCSVersion AS CHARACTER INIT "$Header: /home/appl/srvexp/src/admin/RCS/admEditEmployee.html,v 1.4 2001/12/19 20:36:08 sauge Exp sauge $" NO-UNDO.

DEF VAR lFirstName        AS CHARACTER NO-UNDO.
DEF VAR lLastName         AS CHARACTER NO-UNDO.
DEF VAR lPassword1        AS CHARACTER NO-UNDO.
DEF VAR lPassword2        AS CHARACTER NO-UNDO.
DEF VAR lEmail            AS CHARACTER NO-UNDO.
DEF VAR lFax              AS CHARACTER NO-UNDO.
DEF VAR lMobile           AS CHARACTER NO-UNDO.
DEF VAR lPhone            AS CHARACTER NO-UNDO.
DEF VAR lPager            AS CHARACTER NO-UNDO.
DEF VAR lPositionSeq      AS CHARACTER NO-UNDO.
DEF VAR lEmployeeSeq      AS CHARACTER NO-UNDO.
DEF VAR lError            AS CHARACTER NO-UNDO.

{api/Error.inc}
{web/AlertBox.inc}
{Log.i NEW}
{secure_var.i}

{secure.i}
{secureuser.i Internal}

{LogIt.i '"Begin Program"'}

ASSIGN
lFirstName        = GET-VALUE("FirstName")
lLastName         = GET-VALUE("LastName")
lPassword1        = GET-VALUE("Password1")
lPassword2        = GET-VALUE("Password2")
lLoginID          = GET-VALUE("LoginID")
lEmail            = GET-VALUE("Email")
lFax              = GET-VALUE("Fax")
lMobile           = GET-VALUE("Mobile")
lPhone            = GET-VALUE("Phone")
lPager            = GET-VALUE("Pager")
lPositionSeq      = GET-VALUE("PositionSeq")
lEmployeeSeq      = GET-VALUE("EmployeeSeq").

IF lEmployeeSeq = "" THEN DO:

  RUN admin/CreateEmployee.p(INPUT lLoginID,
                             INPUT lPositionSeq,
                             INPUT lFirstName,
                             INPUT lLastName,
                             INPUT lPassword1,
                             INPUT lEmail,
                             INPUT "I",
                             INPUT lMobile,
                             INPUT lFax,
                             INPUT lPhone,
                             INPUT lPager,
                             OUTPUT lEmployeeSeq,
                             OUTPUT lError).

END.
ELSE DO:

  RUN admin/ModifyEmployee.p(INPUT lLoginID,
                             INPUT lPositionSeq,
                             INPUT lFirstName,
                             INPUT lLastName,
                             INPUT lPassword1,
                             INPUT lEmail,
                             INPUT "I",
                             INPUT lMobile,
                             INPUT lFax,
                             INPUT lPhone,
                             INPUT lPager,
                             INPUT lEmployeeSeq,
                             OUTPUT lError).

  IF lError <> {&NOERROR} THEN DO:

     AlertBox (lError).

  END.

END.

/* Needed for display below */

FIND Position NO-LOCK
WHERE Position.PositionSeq = lPositionSeq
NO-ERROR.
-->

<html>
<head>
<title>Service Express:Edit Employee</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">

<p>Employee Updated</p>
<table width="80%" border="0" cellspacing="0" align="center">
  <tr> 
    <td> 
      <p>First Name</p>
    </td>
    <td>`lFirstName` </td>
  </tr>
  <tr> 
    <td>Last Name</td>
    <td>`lLastName` </td>
  </tr>
  <tr> 
    <td height="19">LoginID</td>
    <td height="19">`lLoginID` </td>
  </tr>
  <tr> 
    <td>Password</td>
    <td>`lPassword1` </td>
  </tr>
  <tr> 
    <td>Email</td>
    <td>`lEmail` </td>
  </tr>
  <tr> 
    <td>Phone</td>
    <td>`lPhone` </td>
  </tr>
  <tr> 
    <td>Fax</td>
    <td>`lFax` </td>
  </tr>
  <tr> 
    <td>Mobile</td>
    <td>`lMobile` </td>
  </tr>
  <tr> 
    <td>Position</td>
    <td>`Position.Name` </td>
  </tr>
  <tr> 
    <td colspan="2"> 
      <center>
      </center>
    </td>
  </tr>
</table>
<p align="center"><a href="admListEmployee.html">Return to Employee Listing</a></p>
</body>
</html>