<!--WSS
/* SearchMsg.html
 * Written by Scott Auge
 * Copyright 2001 Amduus Information Works
 * 
 * Present the results of a search of messages.
 *--------------------------------------------------------------------------
 * 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/SearchMsg.html,v 1.5 2001/05/27 01:24:01 sauge Exp $" NO-UNDO.

DEF VAR lSearchWords     AS CHARACTER NO-UNDO.
DEF VAR lHaveAResult     AS LOGICAL NO-UNDO.
DEF VAR lSearchWord      AS CHARACTER NO-UNDO.
DEF VAR i                AS INTEGER NO-UNDO.
DEF VAR l                AS INTEGER NO-UNDO.

{DateFormat.inc}

/* List of messages are stored in a temp table. */

DEF TEMP-TABLE MessageResults
FIELD CompanyMsgID AS CHARACTER.

/* Pull in the search from the other form */

ASSIGN lSearchWords = GET-VALUE("SearchWords")
       l = NUM-ENTRIES(lSearchWords," ").

/* In the open source version, any of the words bring up a list of */
/* messages.  The commercial version has a more sophisticated      */
/* search capability.                                              */

/* Determine if it is worth it to make a list */

ASSIGN lHaveAResult = NO.

DO i = 1 TO l:

  ASSIGN lSearchWord = ENTRY(i, lSearchWords, " ").

  FIND FIRST CompanyMsg NO-LOCK
  WHERE INDEX(CompanyMsg.MsgText,lSearchWord) <> 0
  NO-ERROR.

  IF AVAILABLE CompanyMsg THEN DO:

    ASSIGN lHaveAResult = YES.
    LEAVE.

  END. /* IF AVAILABLE CompanyMsg */

END. /* DO i = 1 TO l */

/* If we found one, then we likely have others to hunt for.  Make */
/* a list of messages so we can prune out repeats of messages be- */
/* cause of word set intersections.                               */

IF lHaveAResult THEN DO:

  DO i = 1 TO l:

    ASSIGN lSearchWord = ENTRY(i, lSearchWords, " ").

    FOR EACH CompanyMsg NO-LOCK
    WHERE INDEX(CompanyMsg.MsgText, lSearchWord) <> 0:

      IF NOT CAN-FIND (MessageResults WHERE 
                       MessageResults.CompanyMsgID = CompanyMsg.CompanyMsgID)
      THEN DO:

        CREATE MessageResults.
 
        ASSIGN MessageResults.CompanyMsgID = CompanyMsg.CompanyMsgID.

      END. /* NOT CAN-FIND a MessageResults record */

    END. /* FOR EACH CompanyMsg */

  END. /* DO i = 1 TO l */

END. /* lHaveAResult */

-->
<!-- Copyright Scott Auge scott_auge@yahoo.com -->
<html>
<head>
<title>Search Results</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 - Search Results</font></td>
  </tr>
</table>
<p align="center"><a href="Home.html">Home</a></p>
<br>
<table width="100%" cellspacing="0">
<!--WSS
FOR EACH MessageResults:

  FIND CompanyMsg NO-LOCK
  WHERE CompanyMsg.CompanyMsgID = MessageResults.CompanyMsgID
  NO-ERROR.
-->
  <tr> 
    <td>`DateFormat(CompanyMsg.CreateDate)`</td>
    <td><a href="PublicMsg.html?CompanyMsgID=`CompanyMsg.CompanyMsgID`">`CompanyMsg.MsgTitle`</a> <i>`SUBSTRING(CompanyMsg.MsgText, 1, 80)`</i></td>
  </tr>
<!--WSS
END. /* FOR EACH MessageResult */
-->
</table>
<table width="100%" cellspacing="0">
  <tr> 
    <td> 
      <form method="post" action="SearchMsg.html">
        <b><font face="Arial, Helvetica, sans-serif" size="2">Search: 
          </font> </b> 
          <input type="text" name="SearchWords">
          <input type="submit" name="Submit" value="Submit">
      </form>
    </td>
  </tr>
</table>
<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>
<p>&nbsp;</p>
</body>
</html>