
<!--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/admEditStatus.html,v 1.6 2001/12/19 20:36:08 sauge Exp sauge $" NO-UNDO.

DEF VAR lProblemTypeSeq   AS CHARACTER NO-UNDO.
DEF VAR lIsDefault       AS CHARACTER NO-UNDO.
DEF VAR lName            AS CHARACTER NO-UNDO.
DEF VAR lTicketStatusSeq AS CHARACTER NO-UNDO.
DEF VAR lButton          AS CHARACTER NO-UNDO.
DEF VAR lError           AS CHARACTER NO-UNDO.
DEF VAR lIsHide          AS CHARACTER NO-UNDO.
DEF VAR lIsExternal      AS CHARACTER NO-UNDO.

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

{secure.i}
{secureuser.i Internal}

{LogIt.i '"Begin Program"'}

/* Determine who is logged in. */

ASSIGN lUser = GET-VALUE("UserID").

RUN api/state/GetLogin.p (INPUT lUser,
                          OUTPUT lLoginID,
                          OUTPUT lError).

/* Determine the ProblemType we are editing statuses for.  Different types */
/* of tickets can have different types of business processes, and hence    */
/* may need different statuses to reflect those processes.  Set state so   */
/* we can flip back into here easily and remember what we were up to.      */

ASSIGN lProblemTypeSeq = GET-VALUE("ProblemTypeSeq").

IF lProblemTypeSeq <> "" THEN DO:

  RUN api/state/SetProblemType.p (INPUT lLoginID,
                                  INPUT lProblemTypeSeq,
                                  OUTPUT lError).

END.

ELSE DO:

  RUN api/state/GetProblemType.p (INPUT lLoginID,
                                  OUTPUT lProblemTypeSeq,
                                  OUTPUT lError).

END.

/* If the New button was pressed, then we need to create a new ticket */
/* status.                                                            */

ASSIGN lButton = GET-VALUE("Submit").

IF lButton = "New" THEN DO:

  ASSIGN 
  lName = GET-VALUE("Name")
  lIsDefault = GET-VALUE("IsDefault")
  lIsHide = GET-VALUE("IsHide")
  lIsExternal = GET-VALUE("IsExternal").

  RUN admin/EditTicketStatus.p (INPUT lName,
                                  INPUT lIsDefault,
                                  INPUT lIsHide,
                                  INPUT lIsExternal,
                                  INPUT lProblemTypeSeq,
                                  OUTPUT lTicketStatusSeq,
                                  OUTPUT lError).
  {LogIt.i '"EditTicketStatus Error: "' lError}
END.

/* Find Ancillary Data */

FIND ProblemType NO-LOCK
WHERE ProblemType.ProblemTypeSeq = lProblemTypeSeq
NO-ERROR.

-->

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

<body bgcolor="#FFFFFF">
<table width="100%" border="0">
  <tr> 
    <td><font size="4"><i><font face="Times New Roman, Times, serif"><b>Service 
      Express</b></font></i></font></td>
    <td> 
      <div align="right"><b><font face="Times New Roman, Times, serif" color="#FF3333">Your 
        Logo/Motto Here</font></b></div>
    </td>
  </tr>
</table>
<p><font face="Times New Roman, Times, serif"><b>Edit Ticket Status<br>
  Problem Type: `ProblemType.Name`</b></font></p>
<table width="80%" border="0" align="center" cellspacing="0">
  <tr bgcolor="#CCCCFF"> 
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#CCCCFF"> 
    <td>
    <table>
    <form name="form1" >
    <tr>
        <b><font face="Times New Roman, Times, serif">Description: </font></b> 
          <input type="text" name="Name" size="50" maxlength="50">
    </tr>
    <tr>
          <font face="Times New Roman, Times, serif"><b> Default</b> </font>
<input type="checkbox" name="IsDefault" value="Y"><br> 
    </tr>
    <tr>
          <font face="Times New Roman, Times, serif"><b> Hide Ticket</b> </font>
<input type="checkbox" name="IsHide" value="Y"><br> 
    </tr>
    <tr>
          <font face="Times New Roman, Times, serif"><b> External User Cannot Choose This Status</b> </font>
<input type="checkbox" name="IsExternal" value="Y"> 
    </tr>
    <tr>
<input type="hidden" name="ProblemTypeSeq" value="`ProblemType.ProblemTypeSeq`">
          <input type="submit" name="Submit" value="New">
     </tr>
      </form>
      </table>
    </td>
  </tr>
  <tr bgcolor="#CCCCFF"> 
    <td>&nbsp;</td>
  </tr>
</table>
<p>&nbsp;</p>
<table width="80%" border="0" align="center">

<!--WSS
FOR EACH TicketStatus NO-LOCK
WHERE TicketStatus.ProblemTypeSeq = lProblemTypeSeq
  AND TicketStatus.Active = YES:
-->

  <tr> 
    <td><font face="Times New Roman, Times, serif"><b>`TicketStatus.Name`</b></font></td>
    <td><font face="Times New Roman, Times, serif"><b>`IF TicketStatus.IsDefault THEN "Default" ELSE ""`</b></font></td>
    <td><font face="Times New Roman, Times, serif"><b><a href="admDeleteStatus.html?TicketStatusSeq=`TicketStatus.TicketStatusSeq`">Delete 
      </a></b></font></td>
    <td><font face="Times New Roman, Times, serif"><b><a href="admModifyStatus.html?TicketStatusSeq=`TicketStatus.TicketStatusSeq`">Modify</a></b></font></td>
  </tr>
<!--WSS
END. /* FOR EACH TicketStatus */
-->
</table>
<p><a href="admEditProblemType.html">Return to Problem Types</a></p>
</body>
</html>