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 -N -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 -N -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] } }