Index: openacs-4/packages/acs-api-browser/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/index.adp,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/acs-api-browser/www/index.adp	5 Apr 2003 06:56:26 -0000	1.10
+++ openacs-4/packages/acs-api-browser/www/index.adp	6 Apr 2003 07:22:43 -0000	1.11
@@ -12,23 +12,23 @@
       <td valign="top">
        <h4>ACS Tcl API Search</h4>
        <input type="text" name="query_string" /><br />
-       <input type="submit" value="Search" name="search_type" />
-       <input type="submit" value="Feeling Lucky" name="search_type" />
+       <input type="submit" value="All matches" name="search_type" />
+       <input type="submit" value="Only best match" name="search_type" />
        <p><a href="proc-browse">Browse OpenACS Tcl API</a></p>
       </td>
       <td>       
        <table cellspacing="0" cellpadding="0">
-         <tr><td align="right">Name:</td>
-           <td><input type="checkbox" name="name_weight" value="5" checked="checked" /> </td></tr>
+         <tr><td align="right">Name contains:</td>
+           <td><input type="radio" name="name_weight" value="5" checked="checked" /> </td></tr>
+         <tr><td align="right">Exact name:</td>
+           <td><input type="radio" name="name_weight" value="exact" /></td></tr>
+         <tr><td align="right">&nbsp;</td><td>&nbsp;</td></tr>
          <tr><td align="right">Parameters:</td>
            <td><input type="checkbox" name="param_weight" value="3" checked="checked" /></td></tr>
          <tr><td align="right">Documentation:</td>
            <td><input type="checkbox" name="doc_weight" value="2" checked="checked" /></td></tr>
          <tr><td align="right">Source:</td>
            <td><input type="checkbox" name="source_weight" value="1" /></td></tr>
-         <tr><td align="right">&nbsp;</td><td>&nbsp;</td></tr>
-         <tr><td align="right">Exact match:</td>
-           <td><input type="checkbox" name="exact_match_p" value="1" /></td></tr>
        </table>
       </td>
      </tr>
Index: openacs-4/packages/acs-api-browser/www/proc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	5 Apr 2003 06:56:26 -0000	1.8
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	6 Apr 2003 07:22:43 -0000	1.9
@@ -18,7 +18,6 @@
     {param_weight:optional 0}
     {source_weight:optional 0}
     {search_type:optional 0}
-    {exact_match_p 0}
     query_string
 } -properties {
     title:onevalue
@@ -34,7 +33,7 @@
 ##########################################################
 ##  Begin Page
 
-set quick_view [string equal $search_type "Feeling Lucky"]
+set quick_view [string equal $search_type "Only best match"]
 
 #########################
 ## Optimizes quick search
@@ -49,6 +48,14 @@
     set name_weight 1
 }
 
+# Exact name search
+if { [string equal $name_weight "exact"] } {
+    set name_weight 5
+    set exact_match_p 1
+} else {
+    set exact_match_p 0
+}
+
 set counter 0
 set matches ""