home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / oss / cvs-2004 / bahasa / web / search.php,v < prev    next >
Text File  |  2003-10-26  |  35KB  |  1,893 lines
  1. head    1.17;
  2. access;
  3. symbols
  4.     Initial:1.1.1.1 bule:1.1.1;
  5. locks; strict;
  6. comment    @# @;
  7.  
  8.  
  9. 1.17
  10. date    2003.10.26.01.53.10;    author bule;    state Exp;
  11. branches;
  12. next    1.16;
  13.  
  14. 1.16
  15. date    2003.10.20.00.21.46;    author bule;    state Exp;
  16. branches;
  17. next    1.15;
  18.  
  19. 1.15
  20. date    2003.10.18.00.33.42;    author bule;    state Exp;
  21. branches;
  22. next    1.14;
  23.  
  24. 1.14
  25. date    2003.10.17.00.39.36;    author bule;    state Exp;
  26. branches;
  27. next    1.13;
  28.  
  29. 1.13
  30. date    2003.10.06.00.39.27;    author bule;    state Exp;
  31. branches;
  32. next    1.12;
  33.  
  34. 1.12
  35. date    2003.10.01.06.51.30;    author bule;    state Exp;
  36. branches;
  37. next    1.11;
  38.  
  39. 1.11
  40. date    2003.09.11.05.28.22;    author bule;    state Exp;
  41. branches;
  42. next    1.10;
  43.  
  44. 1.10
  45. date    2003.09.05.06.42.30;    author bule;    state Exp;
  46. branches;
  47. next    1.9;
  48.  
  49. 1.9
  50. date    2003.09.04.07.27.00;    author bule;    state Exp;
  51. branches;
  52. next    1.8;
  53.  
  54. 1.8
  55. date    2003.08.28.20.04.48;    author bule;    state Exp;
  56. branches;
  57. next    1.7;
  58.  
  59. 1.7
  60. date    2003.08.27.07.17.44;    author bule;    state Exp;
  61. branches;
  62. next    1.6;
  63.  
  64. 1.6
  65. date    2003.08.26.07.22.38;    author bule;    state Exp;
  66. branches;
  67. next    1.5;
  68.  
  69. 1.5
  70. date    2003.08.23.23.27.15;    author bule;    state Exp;
  71. branches;
  72. next    1.4;
  73.  
  74. 1.4
  75. date    2003.08.23.16.07.20;    author bule;    state Exp;
  76. branches;
  77. next    1.3;
  78.  
  79. 1.3
  80. date    2003.08.21.06.18.07;    author bule;    state Exp;
  81. branches;
  82. next    1.2;
  83.  
  84. 1.2
  85. date    2003.08.19.19.24.21;    author bule;    state Exp;
  86. branches;
  87. next    1.1;
  88.  
  89. 1.1
  90. date    2003.08.12.19.18.23;    author bule;    state Exp;
  91. branches
  92.     1.1.1.1;
  93. next    ;
  94.  
  95. 1.1.1.1
  96. date    2003.08.12.19.18.23;    author bule;    state Exp;
  97. branches;
  98. next    ;
  99.  
  100.  
  101. desc
  102. @@
  103.  
  104.  
  105. 1.17
  106. log
  107. @*** empty log message ***
  108. @
  109. text
  110. @<?
  111. session_start();
  112. require_once("../php/Indonesia.php");
  113. require_once("../php/Web.php");
  114. //////////////////////////////////////////////////////////////////////////////
  115. //////////////////////////////////////////////////////////////////////////////
  116. // Project Name: Bahasa Indonesia Dictionary
  117. // Directory:    bahasa/web
  118. // File Name:    search.php
  119. // Author(s):    John L. Whiteman
  120. // Created:      June 23, 2003  
  121. // Modified:     October 20, 2003
  122. // Description:  The purpose of this unrestricted access PHP web 
  123. //               client page is allow a client to search for words
  124. //               in the dictionary. 
  125. // 
  126. // Copyright (c) 2003 John L. Whiteman
  127. //
  128. // Permission is herby granted, free of charge, to any person obtaining a 
  129. // copy of this software, data, and associated documentation files 
  130. // (the "Software"), to deal in the Software without restriction, 
  131. // including without limitation the rights to use, copy, modify, merge, 
  132. // publish, distribute, sublicense, and/or sell copies of Software, and to
  133. // permit persons to whom the Software is furnished to do so, subject to 
  134. // the following conditions:
  135. //
  136. // The above copyright notice and this permission notice shall be 
  137. // included in all copies or substantial portions of the Software.
  138. //
  139. // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
  140. // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 
  141. // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  142. // IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR 
  143. // ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHERE IN AN ACTION OF CONTRACT,
  144. // TORT OR OTHERWISE, ARISING IN THE SOFTWARE.  
  145. //////////////////////////////////////////////////////////////////////////////
  146. //////////////////////////////////////////////////////////////////////////////
  147. $web = new Web();
  148.  
  149. if ($_SESSION['NODUP_REQUEST_ENTRY']) {
  150.  
  151.     unset($_SESSION['NODUP_REQUEST_ENTRY']);
  152. }
  153.  
  154. $indonesia = new Indonesia();
  155.  
  156. $status = $indonesia->get_dictionary_status(); 
  157.  
  158. if (
  159. ($status["status"] == 1) || 
  160. ($status["status"] == 2) || 
  161. ($status["status"] == 3)) {
  162.  
  163.     $web->redirect("offline.php");
  164.  
  165.     exit;
  166. }
  167.  
  168. ?>
  169. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
  170.  "http://www.w3.org/TR/html4/strict.dtd">
  171. <html>
  172. <head>
  173. <title>Bahasa Indonesia Dictionary: Search</title>
  174.  
  175. <link href="bahasa.css" rel="stylesheet" type="text/css">
  176.  
  177. <script type="text/javascript" src="bahasa.js"></script>
  178.  
  179. <script language="Javascript" type="text/javascript"> 
  180. <!--
  181. //////////////////////////////////////////////////////////////////////////////
  182. function verify() {
  183.  
  184.     var stoken = document.search.stoken.value;
  185.  
  186.     stoken = trim(stoken);
  187.  
  188.     if (is_white_space(stoken)) {
  189.  
  190.         alert("You must enter a search value.");
  191.  
  192.         document.search.stoken.focus();
  193.  
  194.         return(false);
  195.     }
  196.  
  197.     return(true);
  198. }
  199. //////////////////////////////////////////////////////////////////////////////
  200. // -->
  201. </script>
  202. </head>
  203. <body bgcolor="#fffff2">
  204. <? $web->show_logo("Search"); ?>
  205.  
  206. <a class="menu" href="reference.php">Reference</a>
  207.  | 
  208. <a class="menu" href="email.php">Send Us E-mail</a>
  209.  | 
  210. <a class="menu" href="request.php">Request a New Word</a>
  211.  | 
  212. <a class="menu" href="admin.php">Administration</a>
  213. <br><br>
  214. <?
  215. $edate = $indonesia->get_english_date();
  216. $idate = $indonesia->get_indonesian_date();
  217.  
  218. print "<b>${edate}  |  ${idate}</b>";
  219.  
  220. $id = uniqid(rand(), true);
  221.  
  222. ?>
  223. <form name="search" method="post" onSubmit='return verify()'>
  224. <table cellpadding="3" cellspacing="3" border="0">
  225. <tr>
  226. <?
  227.  
  228. $total_words = "";
  229.  
  230. $errstr = $indonesia->get_count("dictionary", $total_words);
  231.  
  232. if ($errstr != "") {
  233.  
  234.     print "<td><b>Search Entries:</b>\n";
  235.  
  236. } else {
  237.  
  238.     $total_words = number_format($total_words);
  239.  
  240.     print "<td><b>Search ${total_words} Entries:</b>\n";
  241. }
  242.  
  243. ?>
  244. </td>
  245. </tr><tr>
  246. <td>
  247. <textarea name="stoken" rows="3" cols="55" wrap="soft"></textarea>
  248. </td>
  249. </tr><tr>
  250. <td>
  251. <input type="radio" name="method" value="exact"
  252. <?
  253.  
  254. if ($_POST['method'] == "exact") {   
  255.  
  256.     print " checked";
  257. }
  258.  
  259. ?> 
  260.  
  261. ><a class="help" href="help.php?topic=searching">Exact</a> 
  262. <input type="radio" name="method" value="fuzzy"
  263.  
  264. <?
  265. if (!isset($_POST['method'])) {
  266.  
  267.     print " checked";
  268.  
  269. } else if (isset($_POST['method'])) {
  270.  
  271.     if ($_POST['method'] == "fuzzy") {   
  272.  
  273.         print " checked";
  274.     }
  275. }
  276.  
  277. ?>
  278.  
  279. ><a class="help" href="help.php?topic=searching">Fuzzy</a> 
  280. <input type="radio" name="method" value="linear"
  281.  
  282. <?
  283. if (isset($_POST['method'])) {
  284.  
  285.     if ($_POST['method'] == "linear") {   
  286.  
  287.         print " checked";
  288.     }
  289. }
  290.  
  291. ?>
  292.  
  293. ><a class="help" href="help.php?topic=searching">Multiple Words</a>
  294. </td>
  295. </tr><tr>
  296. <td></td>
  297. </tr><tr>
  298. <td align="right">
  299. <input type="submit" name="language" value="English to Indonesian"> 
  300.    
  301. <input type="submit" name="language" value="Indonesian to English">
  302. </td>
  303. </tr>
  304. </table>
  305. <input type="hidden" name="id" value="<?echo ${id};?>">
  306. </form>
  307. <script language="Javascript" type="text/javascript">
  308. <!--
  309. document.search.stoken.focus();
  310. // -->
  311. </script> 
  312.  
  313. <?
  314. if (
  315. ($_SESSION['NODUP_SEARCHES']) &&
  316. (isset($_POST['id'])) &&
  317. ($_SESSION['NODUP_SEARCHES'] == $_POST['id'])) {
  318.  
  319.         //Do nothing...prevents refresh duplication of last action
  320.  
  321. } else if (
  322. (isset($_POST['stoken'])) &&
  323. (isset($_POST['method'])) &&
  324. (isset($_POST['id'])) &&
  325. (isset($_POST['language']))) { 
  326.  
  327.     if ($_SESSION['NODUP_SEARCHES']) {
  328.  
  329.         unset($_SESSION['NODUP_SEARCHES']);
  330.     }
  331.  
  332.     $rc =
  333.     search(
  334.     $web, $indonesia, 
  335.     $_POST['stoken'], $_POST['method'], $_POST['language']);
  336.  
  337.     if ($rc == 0) {
  338.  
  339.         $_SESSION['NODUP_SEARCHES'] = $_POST['id'];
  340.     }
  341. }
  342.  
  343. $web->show_footer();
  344. ?>
  345. </body>
  346. </html>
  347.  
  348. <?
  349. ///////////////////////////////////////////////////////////////////////////////
  350. ///////////////////////////////////////////////////////////////////////////////
  351. function search($web, $indonesia, $stoken, $method, $language) {
  352.  
  353.     $stoken = trim($stoken);
  354.  
  355.     if ($stoken == "") {
  356.  
  357.         print "You must enter a search value.";
  358.  
  359.         return(-1);
  360.     }
  361.  
  362.     $method = trim($method);
  363.  
  364.     if ($method == "") {
  365.  
  366.         print "You must choose a search method.";
  367.  
  368.         return(-1);
  369.     }
  370.  
  371.     $language = trim($language);
  372.  
  373.     if ($method == "exact") {
  374.  
  375.         return(
  376.         search_exact(
  377.         $web, $indonesia, $stoken, $language, $_SERVER['REMOTE_ADDR']));
  378.  
  379.     } else if ($method == "fuzzy") {
  380.  
  381.         return(
  382.         search_fuzzy(
  383.         $web, $indonesia, $stoken, $language, $_SERVER['REMOTE_ADDR']));
  384.  
  385.     } else if ($method == "linear") {
  386.  
  387.         return(
  388.         search_linear(
  389.         $web, $indonesia, $stoken, $language, $_SERVER['REMOTE_ADDR']));
  390.     }
  391.  
  392.     return;
  393. }
  394. ///////////////////////////////////////////////////////////////////////////////
  395. ///////////////////////////////////////////////////////////////////////////////
  396. function search_exact($web, $indonesia, $stoken, $language, $visitor) {
  397.  
  398.     $results = array();
  399.  
  400.     if ($language == "English to Indonesian") {
  401.  
  402.         $language = "English";
  403.  
  404.     } else {
  405.  
  406.         $language = "Indonesian";
  407.     }
  408.  
  409.     $errstr =
  410.     $indonesia->search_exact(
  411.     $results, $stoken, $language, $visitor, "");
  412.  
  413.     if ($errstr != "") {
  414.  
  415.         print "<br><hr><b>${errstr}</b><hr><br>\n";
  416.  
  417.         return(-1);
  418.     }
  419.  
  420.     print 
  421.     "<table cellspacing=\"1\" cellpadding=\"1\" border=\"0\">\n" .
  422.     "<tr>\n" .
  423.     "<td colspan=\"11\"><hr></td>\n" .
  424.     "</tr><tr>\n" .
  425.     "<td><b>Results:</b></td>\n" .
  426.     "<td><i>$results[total]</i></td>\n" .
  427.     "<td><b> | </b></td>\n" .
  428.     "<td><b>Duration:</b></td>\n" .
  429.     "<td><i>$results[elasped_time] (s)</i></td>\n" .
  430.     "<td><b> | </b></td>\n" .
  431.     "<td><b>Language:</b></td>\n" .
  432.     "<td><i>$results[language] -> $results[alt_language]</i></td>\n" .
  433.     "<td><b> | </b></td>\n" .
  434.     "<td><b>Method:</b></td>\n" .
  435.     "<td><i>$results[method]</i></td>\n" .
  436.     "</tr><tr>\n" .
  437.     "<td colspan=\"11\"><hr></td>\n" .
  438.     "</tr></table>\n";    
  439.  
  440.     if ($results["total"] == 0) { 
  441.  
  442.         return(0);
  443.     }
  444.  
  445.     print 
  446.     "<table cellpadding=\"3\" cellspacing=\"3\" border=\"0\">\n";
  447.  
  448.     $results["alt_language"] = $web->tohtml($results["alt_language"]);
  449.  
  450.     for($i = 0; $i < $results["total"]; $i++) {
  451.  
  452.         $result = $results["results"][$i];
  453.  
  454.         if ($i == 0) {
  455.  
  456.             print
  457.             "<tr>\n" .
  458.             "<th>$results[alt_language]</th>\n" .
  459.             "<th>Part of Speech</th>\n" .
  460.             "<th>Pronunciation</th>\n" .
  461.             "<th>Spelling</th>\n" .
  462.             "<th>Comments</th>\n" .
  463.             "</tr><tr>\n" .
  464.             "<th colspan=\"5\"><hr>\n" .
  465.             "</tr>\n";
  466.         }
  467.  
  468.         $result["target"] = 
  469.             $web->tohtml($result["target"]);
  470.  
  471.         $result["pos"] = 
  472.             $web->tohtml($result["pos"]);
  473.  
  474.         $result["pronunciation"] = 
  475.             $web->tohtml($result["pronunciation"]);
  476.  
  477.         //$result["pronunciation_ipa"] = 
  478.         //    $web->tohtml($result["pronunciation_ipa"]);
  479.  
  480.         $result["spelling"] = 
  481.             $web->tohtml($result["spelling"]);
  482.  
  483.         $result["comments"] = 
  484.             $web->tohtml($result["comments"]);
  485.         
  486.         //"<td>" . $result["pronunciation"] . " </td>\n" .
  487.  
  488.         print 
  489.         "<tr>\n" .
  490.         "<td>" . $result["target"] . " </td>\n" .
  491.         "<td align=\"center\">" . $result["pos"] . 
  492.         " </td>\n" .
  493.         "<td align=\"center\">n/a</td>\n" .
  494.         "<td align=\"center\">" . $result["spelling"] . 
  495.         " </td>\n" .
  496.         "<td>" . $result["comments"] . " </td>\n" .
  497.         "</tr>\n";
  498.  
  499.         if ($i == $results["total"] - 1) {
  500.  
  501.             print "<tr><td colspan=\"5\"><hr></td></tr>\n";
  502.         } 
  503.     }
  504.  
  505.     print "</table>\n";
  506.  
  507.     return(0);
  508. } 
  509. ///////////////////////////////////////////////////////////////////////////////
  510. ///////////////////////////////////////////////////////////////////////////////
  511. function search_fuzzy($web, $indonesia, $stoken, $language, $visitor) {
  512.  
  513.     $results = array();
  514.  
  515.     if ($language == "English to Indonesian") {
  516.  
  517.         $language = "English";
  518.  
  519.     } else {
  520.  
  521.         $language = "Indonesian";
  522.     }
  523.  
  524.     $errstr =
  525.     $indonesia->search_fuzzy(
  526.     $results, $stoken, $language, $visitor, "");
  527.  
  528.     if ($errstr != "") {
  529.  
  530.         print "<br><hr><b>${errstr}</b><hr><br>\n";
  531.  
  532.         return(-1);
  533.     }
  534.  
  535.     print 
  536.     "<table cellspacing=\"1\" cellpadding=\"1\" border=\"0\">\n" .
  537.     "<tr>\n" .
  538.     "<td colspan=\"11\"><hr></td>\n" .
  539.     "</tr><tr>\n" .
  540.     "<td><b>Results:</b></td>\n" .
  541.     "<td><i>$results[total]</i></td>\n" .
  542.     "<td><b> | </b></td>\n" .
  543.     "<td><b>Duration:</b></td>\n" .
  544.     "<td><i>$results[elasped_time] (s)</i></td>\n" .
  545.     "<td><b> | </b></td>\n" .
  546.     "<td><b>Language:</b></td>\n" .
  547.     "<td><i>$results[language] -> $results[alt_language]</i></td>\n" .
  548.     "<td><b> | </b></td>\n" .
  549.     "<td><b>Method:</b></td>\n" .
  550.     "<td><i>$results[method]</i></td>\n" .
  551.     "</tr><tr>\n" .
  552.     "<td colspan=\"11\"><hr></td>\n" .
  553.     "</tr></table>\n";    
  554.  
  555.     if ($results["total"] == 0) { 
  556.  
  557.         return(0);
  558.     }
  559.  
  560.     print 
  561.     "<table cellpadding=\"3\" cellspacing=\"3\" border=\"0\">\n";
  562.  
  563.     $results["language"] = $web->tohtml($results["language"]);
  564.  
  565.     $results["alt_language"] = $web->tohtml($results["alt_language"]);
  566.  
  567.     for($i = 0; $i < $results["total"]; $i++) {
  568.  
  569.         $result = $results["results"][$i];
  570.  
  571.         if ($i == 0) {
  572.  
  573.             print
  574.             "<tr>\n" .
  575.             "<th>$results[language]</th>\n" .
  576.             "<th>$results[alt_language]</th>\n" .
  577.             "<th>Part of Speech</th>\n" .
  578.             "<th>Pronunciation</th>\n" .
  579.             "<th>Spelling</th>\n" .
  580.             "<th>Comments</th>\n" .
  581.             "</tr><tr>\n" .
  582.             "<th colspan=\"6\"><hr>\n" .
  583.             "</tr>\n";
  584.         }
  585.  
  586.         $result["source"] = 
  587.             $web->tohtml($result["source"]);
  588.  
  589.         $result["target"] = 
  590.             $web->tohtml($result["target"]);
  591.  
  592.         $result["pos"] = 
  593.             $web->tohtml($result["pos"]);
  594.  
  595.         $result["pronunciation"] = 
  596.             $web->tohtml($result["pronunciation"]);
  597.  
  598.         //$result["pronunciation_ipa"] = 
  599.         //    $web->tohtml($result["pronunciation_ipa"]);
  600.  
  601.         $result["spelling"] = 
  602.             $web->tohtml($result["spelling"]);
  603.  
  604.         $result["comments"] = 
  605.             $web->tohtml($result["comments"]);
  606.  
  607.         print 
  608.         "<tr>\n" .
  609.         "<td>" . $result["source"] . " </td>\n" .
  610.         "<td>" . $result["target"] . " </td>\n" .
  611.         "<td align=\"center\">" . $result["pos"] . 
  612.         " </td>\n" .
  613.         "<td align=\"center\">n/a</td>\n" .
  614.         "<td align=\"center\">" . $result["spelling"] . 
  615.         " </td>\n" .
  616.         "<td>" . $result["comments"] . " </td>\n" .
  617.         "</tr>\n";
  618.  
  619.         if ($i == $results["total"] - 1) {
  620.  
  621.             print "<tr><td colspan=\"6\"><hr></td></tr>\n";
  622.         } 
  623.     }
  624.  
  625.     print "</table>\n";
  626.  
  627.     return(0);
  628. } 
  629. ///////////////////////////////////////////////////////////////////////////////
  630. ///////////////////////////////////////////////////////////////////////////////
  631. function search_linear($web, $indonesia, $stokens, $language, $visitor) {
  632.  
  633.     $results = array();
  634.  
  635.     $rlanguage = "";
  636.  
  637.     if ($language == "English to Indonesian") {
  638.  
  639.         $language = "English";
  640.  
  641.     } else {
  642.  
  643.         $language = "Indonesian";
  644.     }
  645.  
  646.     $errstr =
  647.     $indonesia->search_linear(
  648.     $results, $stokens, $language, $visitor);
  649.  
  650.     if ($errstr != "") {
  651.  
  652.         print "<br><hr><b>${errstr}</b><hr><br>\n";
  653.  
  654.         return(-1);
  655.     }
  656.  
  657.     print 
  658.     "<table cellspacing=\"1\" cellpadding=\"1\" border=\"0\">\n" .
  659.     "<tr>\n" .
  660.     "<td colspan=\"11\"><hr></td>\n" .
  661.     "</tr><tr>\n" .
  662.     "<td><b>Results:</b></td>\n" .
  663.     "<td><i>$results[total]</i></td>\n" .
  664.     "<td><b> | </b></td>\n" .
  665.     "<td><b>Duration:</b></td>\n" .
  666.     "<td><i>$results[elasped_time] (s)</i></td>\n" .
  667.     "<td><b> | </b></td>\n" .
  668.     "<td><b>Language:</b></td>\n" .
  669.     "<td><i>$results[language] -> $results[alt_language]</i></td>\n" .
  670.     "<td><b> | </b></td>\n" .
  671.     "<td><b>Method:</b></td>\n" .
  672.     "<td><i>$results[method]</i></td>\n" .
  673.     "</tr></table>\n";    
  674.  
  675.     print 
  676.     "<table cellspacing=\"1\" cellpadding=\"1\" border=\"0\">\n" .
  677.     "<tr>\n" .
  678.     "<td><b>Words:</b></td>\n" .
  679.     "<td>$results[total_search_tokens]</td>\n" .
  680.     "<td><b> | </b></td>\n" .
  681.     "<td><b>Words (unique):</b></td>\n" .
  682.     "<td>$results[total_search_tokens_unique]</td>\n" .
  683.     "<td><b> | </b></td>\n" .
  684.     "<td><b>Search Score:</b></td>\n" .
  685.     "<td>$results[search_score_unique]</td>\n" .
  686.     "<td><b> | </b></td>\n" .
  687.     "<td><b>Search Score (unique):</b></td>\n" .
  688.     "<td>$results[search_score_unique]</b></td>\n" .
  689.     "</tr><tr>\n" .
  690.     "<td colspan=\"11\"><hr></td>\n" .
  691.     "</tr></table>\n";    
  692.  
  693.     if ($results["total"] == 0) { 
  694.  
  695.         return(0);
  696.     }
  697.  
  698.     /*print 
  699.     "<hr><b>Found the following exact and/or close " .
  700.     "match(es) for $results[language] word(s):</b><hr>" .
  701.     "$results[search]<hr><b>\n" .
  702.     "Search Duration: " . $results["elasped_time"] .
  703.     " second(s)</b><br>\n" .
  704.     "<b>Search Score: " .
  705.     $results["search_score"] .
  706.     "<br>Search Score (Unique Matches): " .
  707.     $results["search_score_unique"] .
  708.     "<br>Search Words: " . $results["total_search_tokens"] .
  709.     "<br>Unique Search Words: " . 
  710.     $results["total_search_tokens_unique"] .
  711.     "<br>Unique Exact Matches: " .
  712.     $results["hits_unique"] .
  713.     "<br>Unique Possible Matches: " .
  714.     $results["maybes_unique"] .
  715.     "<br>Unique Misses: " .
  716.     $results["misses_unique"] .
  717.     "</b><hr>\n"; 
  718. */
  719.  
  720.     print
  721.     "<table cellpadding=\"3\" cellspacing=\"3\" border=\"0\">\n" .
  722.     "<tr>\n" .
  723.     "<th>$results[language] / $results[alt_language]</th>\n" .
  724.     "<th>Part of Speech</th>\n" .
  725.     "<th>Pronunciation</th>\n" .
  726.     "<th>Spelling</th>\n" .
  727.     "<th>Comments</th>\n" .
  728.     "</tr><tr>\n" .
  729.     "<th colspan=\"7\"><hr>\n" .
  730.     "</tr>\n";
  731.  
  732.     $search_strings = count($results["results"]);
  733.  
  734.     for($i = 0; $i < $search_strings; $i++) {
  735.  
  736.         $token = $web->tohtml($results["results"][$i]["search"]); 
  737.  
  738.         print 
  739.         "<tr>\n" .
  740.         "<td colspan=\"5\" align=\"left\">\n" .
  741.         "<b>( ${token} )</b></td></tr>\n" .
  742.         "<tr>\n";
  743.  
  744.         $matches = count($results["results"][$i]["words"]);
  745.  
  746.         if ($matches == 0) {
  747.  
  748.             print 
  749.             "<tr>\n" .
  750.             "<td colspan=\"5\" align=\"left\">\n" .
  751.             "<i>No matches found for this word!</i>\n" .
  752.             "</td></tr><tr>\n" .
  753.             "<td colspan=\"5\"><hr></td></tr>\n";
  754.  
  755.             continue;
  756.         }
  757.  
  758.         for($j = 0; $j < $matches; $j++) {
  759.  
  760.             $source = 
  761.             $results["results"][$i]["words"][$j]["source"];
  762.  
  763.             $target = 
  764.             $results["results"][$i]["words"][$j]["target"];
  765.  
  766.             $pos =
  767.             $results["results"][$i]["words"][$j]["pos"];
  768.         
  769.             $spelling =
  770.             $results["results"][$i]["words"][$j]["spelling"];
  771.     
  772.             $pronunciation = 
  773.             $results["results"][$i]["words"][$j]["pronunciation"];
  774.  
  775.         //    $pronunciation_ipa =
  776.         //    $results["results"][$i]["words"][$j]
  777.         //    ["pronunciation_ipa"];
  778.  
  779.             $comments =
  780.             $results["results"][$i]["words"][$j]["comments"];
  781.  
  782.             $source = $web->tohtml($source);
  783.  
  784.             $target = $web->tohtml($target);
  785.  
  786.             $pos = $web->tohtml($pos);
  787.  
  788.             $spelling = $web->tohtml($spelling);
  789.  
  790.             $pronunciation = $web->tohtml($pronunciation);
  791.  
  792.             $pronunciation_ipa = $web->tohtml($pronunciation_ipa);
  793.  
  794.             $comments = $web->tohtml($comments);
  795.  
  796.             print 
  797.             "<tr>\n" .
  798.             "<td>${target} </td>\n" .
  799.             "<td align=\"center\">${pos} </td>\n" .
  800.             "<td align=\"center\">n/a</td>\n" .
  801.             "<td align=\"center\">${spelling} </td>\n" .
  802.             "<td>${comments} </td>\n" .
  803.             "</tr>\n";
  804.         }
  805.  
  806.         print "<tr><td colspan=\"5\"><hr></td></tr>\n";
  807.     }
  808.  
  809.     print "</table>\n";
  810.  
  811.     return(0);
  812. }
  813. ///////////////////////////////////////////////////////////////////////////////
  814. ///////////////////////////////////////////////////////////////////////////////
  815. ?>
  816. @
  817.  
  818.  
  819. 1.16
  820. log
  821. @*** empty log message ***
  822. @
  823. text
  824. @d12 1
  825. a12 1
  826. // Modified:     October 17, 2003
  827. d94 1
  828. a94 1
  829. <body>
  830. d97 1
  831. a97 1
  832. <a href="reference.php">Reference</a>
  833. d99 1
  834. a99 1
  835. <a href="email.php">Send Us E-mail</a>
  836. d101 1
  837. a101 1
  838. <a href="request.php">Request a New Word</a>
  839. d103 1
  840. a103 1
  841. <a href="admin.php">Administration</a>
  842. d152 1
  843. a152 1
  844. ><b>Exact</b> 
  845. d170 1
  846. a170 1
  847. ><b>Fuzzy</b> 
  848. d184 1
  849. a184 1
  850. ><b>Multiple Words</b>
  851. @
  852.  
  853.  
  854. 1.15
  855. log
  856. @*** empty log message ***
  857. @
  858. text
  859. @d12 1
  860. a12 1
  861. // Modified:     October 16, 2003
  862. d60 2
  863. d65 2
  864. @
  865.  
  866.  
  867. 1.14
  868. log
  869. @*** empty log message ***
  870. @
  871. text
  872. @d12 1
  873. a12 1
  874. // Modified:     October 15, 2003
  875. d64 2
  876. d67 2
  877. a68 26
  878.  
  879. function is_white_space(stoken) {
  880.  
  881.     if (stoken == null) return(true);
  882.  
  883.     if (stoken == '') return(true);
  884.  
  885.     if (stoken == "") return(true);
  886.  
  887.     return(false);
  888. }
  889.  
  890. function trim(stoken) {
  891.  
  892.     if (is_white_space(stoken)) {
  893.  
  894.         return(stoken);
  895.     }
  896.  
  897.     stoken = stoken.replace(/^\s*/, "");
  898.  
  899.     stoken = stoken.replace(/\s*$/, "");
  900.  
  901.     return(stoken);
  902. }
  903.  
  904. d86 2
  905. d195 1
  906. d197 1
  907. @
  908.  
  909.  
  910. 1.13
  911. log
  912. @*** empty log message ***
  913. @
  914. text
  915. @d12 1
  916. a12 1
  917. // Modified:     October 05, 2003
  918. d128 1
  919. d133 18
  920. a150 1
  921. <td><b>Enter Search Word(s):</b>
  922. d247 2
  923. @
  924.  
  925.  
  926. 1.12
  927. log
  928. @*** empty log message ***
  929. @
  930. text
  931. @d12 1
  932. a12 1
  933. // Modified:     September 30, 2003
  934. d111 1
  935. a111 1
  936. <h2>Bahasa Indonesia Dictionary: Search</h2>
  937. d132 1
  938. a132 1
  939. <td colspan="2"><b>Enter Search Word(s):</b>
  940. d135 1
  941. a135 1
  942. <td colspan="2">
  943. d145 2
  944. a146 1
  945.     print " checked>\n";
  946. d148 1
  947. a148 1
  948. } else {
  949. d150 1
  950. a150 9
  951.     print ">\n";
  952. }
  953. ?> 
  954. </td>
  955. <td>
  956. <b>Search dictionary for exact matches only (single word or phrase)</b>
  957. </td>
  958. </tr><tr>
  959. <td>
  960. d152 1
  961. d156 1
  962. a156 1
  963.     print " checked>\n";
  964. d162 1
  965. a162 5
  966.         print " checked>\n";
  967.  
  968.     } else {
  969.  
  970.         print ">\n";
  971. d165 1
  972. d167 2
  973. a168 6
  974. </td>
  975. <td>
  976. <b>Search dictionary for exact and/or close matches (single word or phrase)</b>
  977. </td>
  978. </tr><tr>
  979. <td>
  980. d170 1
  981. d176 1
  982. a176 5
  983.         print " checked>\n";
  984.  
  985.     } else {
  986.  
  987.         print ">\n";
  988. d179 1
  989. d181 2
  990. a182 5
  991. </td>
  992. <td>
  993. <b>
  994. Search dictionary for exact and/or close matches (multiple words or phrases)<br>
  995. </b>
  996. d185 1
  997. a185 1
  998. <td colspan="2"></td>
  999. d187 1
  1000. a187 1
  1001. <td align="right" colspan="2">
  1002. a234 1
  1003. //
  1004. d305 19
  1005. a326 7
  1006.         print 
  1007.         "<hr><b>\n" .
  1008.         "Found 0 matches for $results[language] word(s): " .
  1009.         "$results[search]</b><br><b>\n" .
  1010.         "Search Duration: " . $results["elasped_time"] .
  1011.         " second(s)</b><br><hr>\n"; 
  1012.  
  1013. a330 7
  1014.     "<hr><b>Found $results[total] exact " .
  1015.     "match(es) for $results[language] word(s):</b><hr>" .
  1016.     "$results[search]<hr><b>\n" .
  1017.     "Search Duration: " . $results["elasped_time"] .
  1018.     " second(s)</b><br><hr>\n"; 
  1019.  
  1020.     print 
  1021. d370 2
  1022. d376 5
  1023. a380 3
  1024.         "<td>" . $result["pos"] . " </td>\n" .
  1025.         "<td>" . $result["pronunciation"] . " </td>\n" .
  1026.         "<td>" . $result["spelling"] . " </td>\n" .
  1027. d386 1
  1028. a386 1
  1029.             print "<tr><td colspan=\"6\"><hr></td></tr>\n";
  1030. d420 20
  1031. a441 8
  1032.         print 
  1033.         "<hr><b>\n" .
  1034.         "Found 0 exact and/or close matches for " .
  1035.         "$results[language] word(s): " .
  1036.         "$results[search]</b><br><b>\n" .
  1037.         "Search Duration: " . $results["elasped_time"] .
  1038.         " second(s)</b><br><hr>\n"; 
  1039.  
  1040. a445 7
  1041.     "<hr><b>Found $results[total] exact and/or close " .
  1042.     "match(es) for $results[language] word(s):</b><hr>" .
  1043.     "$results[search]<hr><b>\n" .
  1044.     "Search Duration: " . $results["elasped_time"] .
  1045.     " second(s)</b><br><hr>\n"; 
  1046.  
  1047.     print 
  1048. d496 5
  1049. a500 3
  1050.         "<td>" . $result["pos"] . " </td>\n" .
  1051.         "<td>" . $result["pronunciation"] . " </td>\n" .
  1052.         "<td>" . $result["spelling"] . " </td>\n" .
  1053. d542 36
  1054. a579 8
  1055.         print 
  1056.         "<hr><b>\n" .
  1057.         "Found 0 exact and/or close matches for " .
  1058.         "$results[language] word(s): " .
  1059.         "$results[search]</b><br><b>\n" .
  1060.         "Search Duration: " . $results["elasped_time"] .
  1061.         " second(s)</b><br><hr>\n"; 
  1062.  
  1063. d583 1
  1064. a583 1
  1065.     print 
  1066. d603 1
  1067. d684 3
  1068. a686 3
  1069.             "<td>${pos} </td>\n" .
  1070.             "<td>${pronunciation} </td>\n" .
  1071.             "<td>${spelling} </td>\n" .
  1072. @
  1073.  
  1074.  
  1075. 1.11
  1076. log
  1077. @*** empty log message ***
  1078. @
  1079. text
  1080. @d12 1
  1081. a12 1
  1082. // Modified:     September 08, 2003
  1083. d40 1
  1084. a40 1
  1085. if (session_is_registered("NODUP_REQUEST_ENTRY")) {
  1086. d42 1
  1087. a42 1
  1088.     session_unregister("NODUP_REQUEST_ENTRY");
  1089. d220 1
  1090. a220 1
  1091. (session_is_registered("NODUP_SEARCHES")) &&
  1092. d232 1
  1093. a232 1
  1094.     if (session_is_registered("NODUP_SEARCHES")) {
  1095. d234 1
  1096. a234 1
  1097.         session_unregister("NODUP_SEARCHES");
  1098. d244 1
  1099. a244 3
  1100.         $NODUP_SEARCHES = $_POST['id'];
  1101.  
  1102.         session_register("NODUP_SEARCHES");
  1103. @
  1104.  
  1105.  
  1106. 1.10
  1107. log
  1108. @*** empty log message ***
  1109. @
  1110. text
  1111. @d12 1
  1112. a12 1
  1113. // Modified:     September 04, 2003
  1114. d110 1
  1115. a110 1
  1116. <body bgcolor="#CCCC99">
  1117. d117 1
  1118. a117 1
  1119. <a href="request.php">Request a New Entry</a>
  1120. d178 1
  1121. a178 1
  1122. <b>Search dictionary for exact and/or close matches (single word or phrases)</b>
  1123. @
  1124.  
  1125.  
  1126. 1.9
  1127. log
  1128. @*** empty log message ***
  1129. @
  1130. text
  1131. @d12 1
  1132. a12 1
  1133. // Modified:     September 03, 2003
  1134. d110 1
  1135. a110 1
  1136. <body>
  1137. d127 1
  1138. d132 1
  1139. a132 1
  1140. <td colspan="2">Enter Search Word(s):
  1141. d136 1
  1142. a136 1
  1143. <textarea name="stoken" rows="5" cols="55" wrap="soft"></textarea>
  1144. d154 1
  1145. a154 1
  1146. Search dictionary for exact matches only
  1147. d178 1
  1148. a178 1
  1149. Search dictionary for exact and/or close matches 
  1150. d198 3
  1151. a200 2
  1152. Search dictionary for multiples words or sentences sequentially <br>
  1153. displaying matches as they are encountered
  1154. d212 1
  1155. d219 6
  1156. d226 1
  1157. a226 1
  1158. if (
  1159. d229 1
  1160. d232 1
  1161. a232 1
  1162.     $TOKEN = $_POST['stoken']; 
  1163. d234 2
  1164. a235 3
  1165.     $METHOD = $_POST['method'];
  1166.  
  1167.     $LANGUAGE = $_POST['language'];
  1168. d237 1
  1169. d241 7
  1170. d265 1
  1171. a265 1
  1172.         return;
  1173. d274 1
  1174. a274 1
  1175.         return;
  1176. d281 1
  1177. d283 1
  1178. a283 1
  1179.         $web, $indonesia, $stoken, $language, $_SERVER['REMOTE_ADDR']);
  1180. d287 1
  1181. d289 1
  1182. a289 1
  1183.         $web, $indonesia, $stoken, $language, $_SERVER['REMOTE_ADDR']);
  1184. d293 1
  1185. d295 1
  1186. a295 1
  1187.         $web, $indonesia, $stoken, $language, $_SERVER['REMOTE_ADDR']);
  1188. d323 1
  1189. a323 1
  1190.         return;
  1191. d336 1
  1192. a336 1
  1193.         return;
  1194. d404 1
  1195. a404 1
  1196.     return;
  1197. d429 1
  1198. a429 1
  1199.         return;
  1200. d442 1
  1201. a442 1
  1202.         return;
  1203. d517 1
  1204. a517 1
  1205.     return;
  1206. d544 1
  1207. a544 1
  1208.         return;
  1209. d557 1
  1210. a557 1
  1211.         return;
  1212. d672 1
  1213. a672 1
  1214.     return;
  1215. @
  1216.  
  1217.  
  1218. 1.8
  1219. log
  1220. @*** empty log message ***
  1221. @
  1222. text
  1223. @d12 1
  1224. a12 1
  1225. // Modified:     August 28, 2003
  1226. a341 1
  1227.             "<th>International</th>\n" .
  1228. d345 1
  1229. a345 1
  1230.             "<th colspan=\"6\"><hr>\n" .
  1231. d358 2
  1232. a359 2
  1233.         $result["pronunciation_ipa"] = 
  1234.             $web->tohtml($result["pronunciation_ipa"]);
  1235. a371 1
  1236.         "<td>" . $result["pronunciation_ipa"] . " </td>\n" .
  1237. d378 1
  1238. a378 1
  1239.             print "<tr><td colspan=\"7\"><hr></td></tr>\n";
  1240. a450 1
  1241.             "<th>International</th>\n" .
  1242. d454 1
  1243. a454 1
  1244.             "<th colspan=\"7\"><hr>\n" .
  1245. d470 2
  1246. a471 2
  1247.         $result["pronunciation_ipa"] = 
  1248.             $web->tohtml($result["pronunciation_ipa"]);
  1249. a484 1
  1250.         "<td>" . $result["pronunciation_ipa"] . " </td>\n" .
  1251. d491 1
  1252. a491 1
  1253.             print "<tr><td colspan=\"7\"><hr></td></tr>\n";
  1254. a566 1
  1255.     "<th>International</th>\n" .
  1256. d581 1
  1257. a581 1
  1258.         "<td colspan=\"6\" align=\"left\">\n" .
  1259. d591 1
  1260. a591 1
  1261.             "<td colspan=\"6\" align=\"left\">\n" .
  1262. d594 1
  1263. a594 1
  1264.             "<td colspan=\"6\"><hr></td></tr>\n";
  1265. d616 3
  1266. a618 3
  1267.             $pronunciation_ipa =
  1268.             $results["results"][$i]["words"][$j]
  1269.             ["pronunciation_ipa"];
  1270. d639 5
  1271. a643 6
  1272.             "<td>${target}</td>\n" .
  1273.             "<td>${pos}</td>\n" .
  1274.             "<td>${pronunciation}</td>\n" .
  1275.             "<td>${pronunciation_ipa}</td>\n" .
  1276.             "<td>${spelling}</td>\n" .
  1277.             "<td>${comments}</td>\n" .
  1278. d647 1
  1279. a647 1
  1280.         print "<tr><td colspan=\"6\"><hr></td></tr>\n";
  1281. @
  1282.  
  1283.  
  1284. 1.7
  1285. log
  1286. @*** empty log message ***
  1287. @
  1288. text
  1289. @d12 1
  1290. a12 1
  1291. // Modified:     August 26, 2003
  1292. a140 3
  1293. if (!isset($_POST['method'])) {
  1294.  
  1295.     print " checked>\n";
  1296. d142 1
  1297. a142 1
  1298. } else if ($_POST['method'] == "exact") {   
  1299. d159 5
  1300. a163 1
  1301. if (isset($_POST['method'])) {
  1302. @
  1303.  
  1304.  
  1305. 1.6
  1306. log
  1307. @*** empty log message ***
  1308. @
  1309. text
  1310. @d12 1
  1311. a12 1
  1312. // Modified:     August 25, 2003
  1313. d320 2
  1314. a321 2
  1315.     "match(es) for $results[language] word(s): " .
  1316.     "$results[search]</b><br><b>\n" .
  1317. d428 2
  1318. a429 2
  1319.     "match(es) for $results[language] word(s): " .
  1320.     "$results[search]</b><br><b>\n" .
  1321. d544 3
  1322. a546 3
  1323.     "<hr><b>Found $results[total] exact and/or close " .
  1324.     "match(es) for $results[language] word(s): " .
  1325.     "$results[search]</b><br><b>\n" .
  1326. d548 15
  1327. a562 1
  1328.     " second(s)</b><br><hr>\n"; 
  1329. @
  1330.  
  1331.  
  1332. 1.5
  1333. log
  1334. @*** empty log message ***
  1335. @
  1336. text
  1337. @d12 1
  1338. a12 1
  1339. // Modified:     August 23, 2003
  1340. a284 2
  1341.     $rlanguage = "";
  1342.  
  1343. a287 2
  1344.  
  1345.         $language_flag = 0;
  1346. a291 2
  1347.  
  1348.         $language_flag = 1;
  1349. d320 1
  1350. a320 1
  1351.     "matches for $results[language] word(s): " .
  1352. a392 2
  1353.     $rlanguage = "";
  1354.  
  1355. a395 2
  1356.  
  1357.         $language_flag = 0;
  1358. a399 2
  1359.  
  1360.         $language_flag = 1;
  1361. a412 1
  1362.  
  1363. d428 1
  1364. a428 1
  1365.     "matches for $results[language] word(s): " .
  1366. d504 1
  1367. a504 1
  1368. function search_linear($web, $indonesia, $stoken, $language, $visitor) {
  1369. a509 8
  1370.     $exact_matches = 0;
  1371.     
  1372.     $maybe_matches = 0;
  1373.  
  1374.     $misses = 0;
  1375.  
  1376.     $total_searched_words = 0;
  1377.  
  1378. a513 4
  1379.         $rlanguage = "Indonesian";
  1380.  
  1381.         $language_flag = 0;
  1382.  
  1383. a516 4
  1384.  
  1385.         $rlanguage = "English";
  1386.  
  1387.         $language_flag = 1;
  1388. d519 3
  1389. a521 2
  1390.     $errstr = 
  1391.     $indonesia->search_linear($results, $stoken, $language);
  1392. d530 1
  1393. a530 1
  1394.     $matches = count($results);
  1395. d532 7
  1396. a538 7
  1397.     if ($matches == 0) {
  1398.  
  1399.         print "<br><hr><b>Found ${matches} matches!</b><hr><br>\n";
  1400.  
  1401.         $errstr = 
  1402.         $indonesia->log_search(
  1403.         $visitor, $language_flag, 2, $exact_matches, $maybe_matches); 
  1404. d543 6
  1405. a548 10
  1406.     $parts_of_speech = array();
  1407.  
  1408.     $errstr = $indonesia->get_parts_of_speech($parts_of_speech);
  1409.  
  1410.     if ($errstr != "") {
  1411.  
  1412.         print "<br><hr><b>${errstr}</b><hr><br>\n";
  1413.  
  1414.         return;
  1415.     }
  1416. d550 1
  1417. a550 1
  1418.     print 
  1419. d553 1
  1420. a553 3
  1421.     "<th colspan=\"6\" align=\"left\">[${language}]</th>\n" .
  1422.     "</tr><tr>\n" .
  1423.     "<th>${rlanguage}</th>\n" .
  1424. d556 2
  1425. a557 2
  1426.     "<th>IPA Pronunciation</th>\n" .
  1427.     "<th>Spelling Convention</th>\n" .
  1428. d559 3
  1429. a561 1
  1430.     "</tr>\n";    
  1431. d563 1
  1432. a563 1
  1433.     $search_token = "";
  1434. d565 1
  1435. a565 1
  1436.     foreach($results as $result) {
  1437. d567 1
  1438. a567 1
  1439.         for ($i = 0; $i < count($result); $i++) {
  1440. d569 5
  1441. a573 1
  1442.             if ($i == 0) {
  1443. d575 1
  1444. a575 1
  1445.                 $search_token = $web->tohtml($result[$i]);
  1446. d577 1
  1447. a577 1
  1448.                 $total_searched_words++;
  1449. d579 6
  1450. a584 5
  1451.                 print 
  1452.                 "<tr>\n" .
  1453.                 "<td colspan=\"6\" align=\"left\">\n" .
  1454.                 "<hr><b>[$search_token]</b>\n" .
  1455.                 "</td></tr>\n";
  1456. d586 2
  1457. a587 2
  1458.                 continue;
  1459.             }
  1460. d589 1
  1461. a589 6
  1462.             $pos = $result[$i]->part_of_speech; 
  1463.             $language_value = $web->tohtml($language_value);
  1464.             $p = $web->tohtml($result[$i]->pronunciation);
  1465.             $pipa = $web->tohtml($result[$i]->pronunciation_ipa);
  1466.             $spl = $web->tohtml($result[$i]->spelling_flag);
  1467.             $comments = $web->tohtml($result[$i]->comments);
  1468. d591 2
  1469. a592 1
  1470.             foreach($parts_of_speech as $part_of_speech) {
  1471. d594 2
  1472. a595 1
  1473.                 if ($pos == $part_of_speech->pkey) {
  1474. d597 8
  1475. a604 15
  1476.                     $pos = $part_of_speech->part_of_speech;
  1477.  
  1478.                     break;
  1479.                 }
  1480.             }
  1481.  
  1482.             $language_value = "";
  1483.  
  1484.             $alt_language_value = "";
  1485.  
  1486.             if ($language == "English") {
  1487.  
  1488.                 $language_value = $result[$i]->indonesian; 
  1489.  
  1490.                 $alt_language_value = $result[$i]->english; 
  1491. d606 3
  1492. a608 1
  1493.             } else {
  1494. d610 2
  1495. a611 1
  1496.                 $language_value = $result[$i]->english; 
  1497. d613 1
  1498. a613 2
  1499.                 $alt_language_value = $result[$i]->indonesian; 
  1500.             }
  1501. d615 1
  1502. a615 1
  1503.             if ($spl == 0) {
  1504. d617 1
  1505. a617 1
  1506.                 $spl = "Modern<br>(after 1972)";
  1507. d619 1
  1508. a619 1
  1509.             } else {
  1510. d621 1
  1511. a621 2
  1512.                 $spl = "Old<br>(before 1972)";
  1513.             }
  1514. d623 1
  1515. a623 1
  1516.             if ($comments == "") {
  1517. d625 1
  1518. a625 11
  1519.                 $comments = "N/A";
  1520.             }
  1521.  
  1522.             if ($search_token == $alt_language_value) {
  1523.  
  1524.                 $exact_matches++;
  1525.  
  1526.             } else {
  1527.  
  1528.                 $maybe_matches++;
  1529.             }
  1530. d629 6
  1531. a634 6
  1532.             "<td>${language_value} </td>\n" .
  1533.             "<td>${pos} </td>\n" .
  1534.             "<td>${p} </td>\n" .
  1535.             "<td>${pipa} </td>\n" .
  1536.             "<td>${spl} </td>\n" .
  1537.             "<td>${comments} </td>\n" .
  1538. d636 3
  1539. a638 1
  1540.         }    
  1541. d641 1
  1542. a641 5
  1543.     print "</table><hr>";
  1544.  
  1545.     $errstr = 
  1546.     $indonesia->log_search(
  1547.     $visitor, $language_flag, 2, $exact_matches, $maybe_matches); 
  1548. @
  1549.  
  1550.  
  1551. 1.4
  1552. log
  1553. @*** empty log message ***
  1554. @
  1555. text
  1556. @d12 1
  1557. a12 1
  1558. // Modified:     August 22, 2003
  1559. a279 1
  1560. //
  1561. d312 1
  1562. a312 1
  1563.     if ($results["hits"] == 0) { 
  1564. d325 1
  1565. a325 1
  1566.     "<hr><b>Found $results[hits] exact " .
  1567. a331 1
  1568.     "<hr>" .
  1569. a333 2
  1570.     $i = 0;
  1571.  
  1572. d336 1
  1573. a336 1
  1574.     for($i = 0; $i < $results["hits"]; $i++) {
  1575. d382 5
  1576. d389 1
  1577. a389 1
  1578.     print "</table><hr>\n";
  1579. a393 1
  1580. //
  1581. a400 4
  1582.     $exact_matches = 0;
  1583.  
  1584.     $maybe_matches = 0;
  1585.  
  1586. a403 2
  1587.  
  1588.         $rlanguage = "Indonesian";
  1589. a410 2
  1590.         $rlanguage = "English";
  1591.  
  1592. d415 2
  1593. a416 1
  1594.     $indonesia->search_fuzzy($results, $stoken, $language, "");
  1595. a424 1
  1596.     $matches = count($results);
  1597. d426 1
  1598. a426 1
  1599.     if ($matches == 0) {
  1600. d430 5
  1601. a434 18
  1602.         "Found ${matches} exact and/or close matches for " .
  1603.         "${language} word(s): " .
  1604.         "${stoken}</b><hr><br>\n"; 
  1605.  
  1606.         $errstr = 
  1607.         $indonesia->log_search(
  1608.         $visitor, $language_flag, 1, $exact_matches, $maybe_matches); 
  1609.  
  1610.         return;
  1611.     }
  1612.  
  1613.     $parts_of_speech = array();
  1614.  
  1615.     $errstr = $indonesia->get_parts_of_speech($parts_of_speech);
  1616.  
  1617.     if ($errstr != "") {
  1618.  
  1619.         print "<br><hr><b>${errstr}</b><hr><br>\n";
  1620. d440 5
  1621. a444 2
  1622.     "<hr><b>Found ${matches} exact and/or close " .
  1623.     "matches for ${language} word(s): ${stoken}</b><hr><br>\n"; 
  1624. a446 1
  1625.     "<hr>" .
  1626. d449 1
  1627. a449 1
  1628.     foreach($results as $result) {
  1629. d451 1
  1630. a451 1
  1631.         $language_value = "";
  1632. d453 1
  1633. a453 1
  1634.         $alt_language_value = "";
  1635. d455 1
  1636. a455 21
  1637.         if ($language == "English") {
  1638.  
  1639.             $language_value = $result->indonesian; 
  1640.  
  1641.             $alt_language_value = $result->english; 
  1642.  
  1643.         } else {
  1644.  
  1645.             $language_value = $result->english; 
  1646.  
  1647.             $alt_language_value = $result->indonesian; 
  1648.         }
  1649.  
  1650.         if ($stoken == $alt_language_value) {
  1651.  
  1652.             $exact_matches++;
  1653.  
  1654.         } else {
  1655.  
  1656.             $maybe_matches++;
  1657.         }
  1658. d461 2
  1659. a462 2
  1660.             "<th>${rlanguage}</th>\n" .
  1661.             "<th>${language}</th>\n" .
  1662. d465 2
  1663. a466 2
  1664.             "<th>IPA Pronunciation</th>\n" .
  1665.             "<th>Spelling Convention</th>\n" .
  1666. a470 2
  1667.  
  1668.             $i++;
  1669. d473 2
  1670. a474 7
  1671.         $language_value = $web->tohtml($language_value);
  1672.         $alt_language_value = $web->tohtml($alt_language_value);
  1673.         $pos = $web->tohtml($result->part_of_speech);
  1674.         $p = $web->tohtml($result->pronunciation);
  1675.         $pipa = $web->tohtml($result->pronunciation_ipa);
  1676.         $spl = $web->tohtml($result->spelling_flag);
  1677.         $comments = $web->tohtml($result->comments);
  1678. d476 2
  1679. a477 1
  1680.         if ($spl == 0) {
  1681. d479 2
  1682. a480 1
  1683.             $spl = "Modern<br>(after 1972)";
  1684. d482 2
  1685. a483 1
  1686.         } else {
  1687. d485 2
  1688. a486 2
  1689.             $spl = "Old<br>(before 1972)";
  1690.         }
  1691. d488 2
  1692. a489 16
  1693.         if ($comments == "") {
  1694.  
  1695.             $comments = "N/A";
  1696.         }
  1697.  
  1698.         foreach($parts_of_speech as $part_of_speech) {
  1699.  
  1700.             if ($pos == $part_of_speech->pkey) {
  1701.  
  1702.                 $pos = $part_of_speech->part_of_speech;
  1703.  
  1704.                 $pos = $web->tohtml($pos);
  1705.  
  1706.                 break;
  1707.             }
  1708.         }
  1709. d491 3
  1710. d496 7
  1711. a502 7
  1712.         "<td>${language_value} </td>\n" .
  1713.         "<td>${alt_language_value} </td>\n" .
  1714.         "<td>${pos} </td>\n" .
  1715.         "<td>${p} </td>\n" .
  1716.         "<td>${pipa} </td>\n" .
  1717.         "<td>${spl} </td>\n" .
  1718.         "<td>${comments} </td>\n" .
  1719. d504 5
  1720. d511 1
  1721. a511 5
  1722.     print "</table><hr>\n";
  1723.  
  1724.     $errstr = 
  1725.     $indonesia->log_search(
  1726.     $visitor, $language_flag, 1, $exact_matches, $maybe_matches); 
  1727. a515 1
  1728. //
  1729. @
  1730.  
  1731.  
  1732. 1.3
  1733. log
  1734. @*** empty log message ***
  1735. @
  1736. text
  1737. @d12 1
  1738. a12 1
  1739. // Modified:     August 19, 2003
  1740. a290 2
  1741.  
  1742.         $rlanguage = "Indonesian";
  1743. a297 2
  1744.         $rlanguage = "English";
  1745.  
  1746. d302 2
  1747. a303 1
  1748.     $indonesia->search_exact($results, $stoken, $language, "");
  1749. a311 1
  1750.     $matches = count($results);
  1751. d313 1
  1752. a313 1
  1753.     if ($matches == 0) {
  1754. d317 4
  1755. a320 6
  1756.         "Found ${matches} matches for ${language} word(s): " .
  1757.         "${stoken}</b><hr><br>\n"; 
  1758.  
  1759.         $errstr = 
  1760.         $indonesia->log_search(
  1761.         $visitor, $language_flag, 0, $matches, 0); 
  1762. a324 9
  1763.     $parts_of_speech = array();
  1764.  
  1765.     $errstr = $indonesia->get_parts_of_speech($parts_of_speech);
  1766.  
  1767.     if ($errstr != "") {
  1768.  
  1769.         return("<hr><b>${errstr}</b><hr><br>\n");
  1770.     }
  1771.  
  1772. d326 5
  1773. a330 2
  1774.     "<hr><b>Found ${matches} exact " .
  1775.     "matches for ${language} word(s): ${stoken}</b><hr><br>\n"; 
  1776. d338 1
  1777. a338 11
  1778.     foreach($results as $result) {
  1779.  
  1780.         $language_value = "";
  1781.  
  1782.         $alt_language_value = "";
  1783.  
  1784.         if ($language == "English") {
  1785.  
  1786.             $language_value = $result->indonesian; 
  1787.  
  1788.             $alt_language_value = $result->english; 
  1789. d340 1
  1790. a340 1
  1791.         } else {
  1792. d342 1
  1793. a342 4
  1794.             $language_value = $result->english; 
  1795.  
  1796.             $alt_language_value = $result->indonesian; 
  1797.         }
  1798. d348 1
  1799. a348 1
  1800.             "<th>${rlanguage}</th>\n" .
  1801. d351 2
  1802. a352 2
  1803.             "<th>IPA Pronunciation</th>\n" .
  1804.             "<th>Spelling Convention</th>\n" .
  1805. a356 2
  1806.  
  1807.             $i++;
  1808. d359 2
  1809. a360 6
  1810.         $language_value = $web->tohtml($language_value);
  1811.         $pos = $web->tohtml($result->part_of_speech);
  1812.         $p = $web->tohtml($result->pronunciation);
  1813.         $pipa = $web->tohtml($result->pronunciation_ipa);
  1814.         $spl = $web->tohtml($result->spelling_flag);
  1815.         $comments = $web->tohtml($result->comments);
  1816. d362 2
  1817. a363 1
  1818.         if ($spl == 0) {
  1819. d365 2
  1820. a366 1
  1821.             $spl = "Modern<br>(after 1972)";
  1822. d368 2
  1823. a369 1
  1824.         } else {
  1825. d371 2
  1826. a372 7
  1827.             $spl = "Old<br>(before 1972)";
  1828.         }
  1829.  
  1830.         if ($comments == "") {
  1831.  
  1832.             $comments = "N/A";
  1833.         }
  1834. d374 2
  1835. a375 11
  1836.         foreach($parts_of_speech as $part_of_speech) {
  1837.  
  1838.             if ($pos == $part_of_speech->pkey) {
  1839.  
  1840.                 $pos = $part_of_speech->part_of_speech;
  1841.  
  1842.                 $pos = $web->tohtml($pos);
  1843.  
  1844.                 break;
  1845.             }
  1846.         }
  1847. d379 6
  1848. a384 6
  1849.         "<td>${language_value} </td>\n" .
  1850.         "<td>${pos} </td>\n" .
  1851.         "<td>${p} </td>\n" .
  1852.         "<td>${pipa} </td>\n" .
  1853.         "<td>${spl} </td>\n" .
  1854.         "<td>${comments} </td>\n" .
  1855. a388 3
  1856.  
  1857.     $errstr = 
  1858.     $indonesia->log_search($visitor, $language_flag, 0, $matches, 0); 
  1859. @
  1860.  
  1861.  
  1862. 1.2
  1863. log
  1864. @*** empty log message ***
  1865. @
  1866. text
  1867. @a39 5
  1868. if (session_is_registered("NODUP_SEND_EMAIL")) {
  1869.  
  1870.     session_unregister("NODUP_SEND_EMAIL");
  1871. }
  1872.  
  1873. @
  1874.  
  1875.  
  1876. 1.1
  1877. log
  1878. @Initial revision
  1879. @
  1880. text
  1881. @d5 33
  1882. a37 1
  1883.  
  1884. @
  1885.  
  1886.  
  1887. 1.1.1.1
  1888. log
  1889. @Bahasa Indonesia Dictionary
  1890. @
  1891. text
  1892. @@
  1893.