Index: openacs-4/packages/acs-api-browser/www/proc-search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-api-browser/www/proc-search.adp 6 Sep 2002 21:49:54 -0000 1.4
+++ openacs-4/packages/acs-api-browser/www/proc-search.adp 24 Sep 2002 09:13:48 -0000 1.5
@@ -5,7 +5,7 @@
Procedure Matches:
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.5 -r1.6
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl 18 Sep 2002 11:55:43 -0000 1.5
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl 24 Sep 2002 09:13:48 -0000 1.6
@@ -61,9 +61,14 @@
## Name Search:
###############
if {$name_weight} {
+ # JCD: this was a little perverse since exact matches were
+ # actually worth less than matches in the name (if there were
+ # 2 or more, which happens with namespaces) so I doubled the
+ # value of an exact match.
+
##Exact match:
if {[string tolower $query_string] == [string tolower $proc]} {
- incr score $name_weight
+ incr score [expr $name_weight * 2]
}
incr score [expr $name_weight * [ad_keywords_score $query_string $proc]]
}
@@ -106,7 +111,12 @@
#####
## Place Needed info in matches
if {$score} {
- lappend matches [list $proc $score $doc_elements(positionals)]
+ if {$doc_elements(varargs_p)} {
+ set args "$doc_elements(positionals) \[ args... \]"
+ } else {
+ set args $doc_elements(positionals)
+ }
+ lappend matches [list $proc $score $args]
}
}