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 -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 ""