<!--WSS
/* CommitEditSite.html
 * Written by Scott Auge
 * Copyright 2001 Amduus Information Works
 *
 * Create or edit an existing site record
 *--------------------------------------------------------------------------
 * Market Plaza are trademarks of Amduus Information Works.  
 * No commercial use of these trademarks may be made without
 * prior written permission of the Amduus Information Works.
 *
 * MemoBrd software and its included text are Copyright
 * 2001 by the Amduus Information Works and Scott Auge.
 *
 * Use of MemoBrd: You may compile and execute these programs for
 * any purpose, including commercial, without paying anything to 
 * Amduus Information Works, provided that the legal notices are
 * maintained intact and honored.
 *
 * Redistribution of this release is permitted as follows, or by mutual
 * agreement:
 * (a) In free-of-charge or at-cost distributions by non-profit concerns;
 * (b) In free-of-charge distributions by for-profit concerns;
 * (c) Inclusion in a CD-ROM collection of free-of-charge, shareware, or
 *     non-proprietary software for which a fee may be charged for the
 *     packaged distribution.
 *
 * Redistribution of binary versions is further constrained by license
 * agreements for incorporated libraries from third parties, e.g. LDAP,
 * GSSAPI.
 *
 * The Amduus Information Works encourages unrestricted distribution of
 * individual patches to the application. By "patches" we mean
 * "difference" files that can be applied to the Amduus Information Works
 * application source distribution in order to accomplish bug fixes, minor
 * enhancements, or adaptation to new operating systems. Submission of
 * these patches to Amduus Information Works for possible inclusion in
 * future application versions is also encouraged.
 *
 * The above permissions are hereby granted, provided that the application
 * copyright and trademark notices appear in all copies and that
 * both the above copyright notice and this permission notice appear in
 * supporting documentation, and that the name of Amduus Information Works
 * not be used in advertising or publicity pertaining to distribution of 
 * the software without specific, prior written permission. This software 
 * is made available "as is", and
 *
 * AMDUUS INFORMATION WORKS AND PROGRAM'S AUTHORS DISCLAIMS ALL WARRANTIES, 
 * EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT 
 * LIMITATION ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
 * PARTICULAR PURPOSE, AND IN NO EVENT SHALL AMDUUS INFORMATION WORKS OR PRO-
 * GRAM'S AUTHORS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
 * WHETHER IN AN ACTION OF CONTRACT, TORT (INCLUDING NEGLIGENCE) OR STRICT 
 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
 * THIS SOFTWARE.
 *--------------------------------------------------------------------------
 *
 */

DEF VAR RCSVersion AS CHARACTER INIT "$Header: /home/appl/marketplaza/src/MemoBrd/RCS/CommitEditSite.html,v 1.5 2001/05/27 01:23:18 sauge Exp $" NO-UNDO.

DEF VAR lSitesID       AS CHARACTER NO-UNDO.
DEF VAR lDescription   AS CHARACTER NO-UNDO.
DEF VAR lName          AS CHARACTER NO-UNDO.
DEF VAR lURL           AS CHARACTER NO-UNDO.
DEF VAR lDeleteAction  AS CHARACTER NO-UNDO.

{MakeID.inc}

/* Determine if we are coming in from a search result or at least an URL */
/* with the company message id on it.  This will determine if we bother  */
/* to put up the delete this? question as well pull up the record to up- */
/* date.                                                                 */

ASSIGN lSitesID = GET-VALUE("SitesID")
       lDescription = GET-VALUE("Description")
       lName = GET-VALUE("Name")
       lURL = GET-VALUE("URL")
       lDeleteAction = GET-VALUE("DeleteMsg").

IF lDeleteAction = "YES" THEN 
  RUN MemoBrd/DeleteSites.p (INPUT lSitesID).

ELSE 
IF lSitesID <> "" THEN
  RUN MemoBrd/ModifySites.p (INPUT lSitesID,
                             INPUT lName,
                             INPUT lURL,
                             INPUT lDescription).

ELSE 
  RUN MemoBrd/CreateSites.p (INPUT lName,
                             INPUT lURL,
                             INPUT lDescription,
                             OUTPUT lSitesID).

FIND Sites NO-LOCK
WHERE Sites.SitesID = lSitesID
NO-ERROR.

-->
<!-- Copyright Scott Auge scott_auge@yahoo.com -->
<html>
<head>
<title>Commit Changes To Site Data</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">
<table width="100%" cellspacing="0">
  <tr bgcolor="#CCCCFF"> 
    <td><font face="Arial, Helvetica, sans-serif" size="4">Amduus Information 
      Works<br>
      Example Layout Page - Commit Changes To Site</font></td>
  </tr>
</table>
<form method="post" action="EditSearchSite.html">
  <p>Search Messages To Edit Existing Site 
    <input type="text" name="SearchWords"><input type="submit" name="submit"></p>
</form>
  <p align="center"> <pre>
   `IF AVAILABLE Sites THEN Sites.Name ELSE ""`</pre><p></p>
  <p align="center"> <pre>
   `IF AVAILABLE Sites THEN Sites.URL ELSE ""`</pre><p></p>
  <p align="center"> <pre>
    `IF AVAILABLE Sites THEN Sites.Description ELSE ""`
  </pre><p></p>
<hr>
<font size="2"><b><font face="Arial, Helvetica, sans-serif">Open Source Product 
of Amduus Information Works http://www.amduus.com <br>
4506 Carlyle Court Suite 712<br>
Santa Clara, CA 95054<br>
scott_auge@yahoo.com </font></b></font>
<p>&nbsp;</p>
</body>
</html>