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.7 -r1.8
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	4 Apr 2003 14:07:12 -0000	1.7
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	5 Apr 2003 06:56:26 -0000	1.8
@@ -18,6 +18,7 @@
     {param_weight:optional 0}
     {source_weight:optional 0}
     {search_type:optional 0}
+    {exact_match_p 0}
     query_string
 } -properties {
     title:onevalue
@@ -69,8 +70,9 @@
         ##Exact match:
         if {[string tolower $query_string] == [string tolower $proc]} {
             incr score [expr $name_weight * 2]
+        } elseif { ! $exact_match_p } {
+            incr score [expr $name_weight * [ad_keywords_score $query_string $proc]] 
         }
-        incr score [expr $name_weight * [ad_keywords_score $query_string $proc]] 
     }
    
     ################