Index: openacs-4/packages/acs-api-browser/lib/search.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/lib/search.adp,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/acs-api-browser/lib/search.adp 15 Jun 2015 11:15:55 -0000 1.6 +++ openacs-4/packages/acs-api-browser/lib/search.adp 24 Jun 2015 19:10:41 -0000 1.7 @@ -102,5 +102,11 @@ Browse OpenACS documentation - + + + +

Deprecated Functions

+ List Deprecated Functions + + Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/acs-api-browser/www/content-page-view.tcl 14 Jun 2015 00:04:21 -0000 1.7 +++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl 24 Jun 2015 19:10:41 -0000 1.8 @@ -12,7 +12,7 @@ } { version_id:naturalnum,optional source_p:boolean,optional,trim - path:trim + path:trim,notnull } -properties { title:onevalue context:onevalue @@ -28,7 +28,7 @@ set source_p $default_source_p } -if { ![info exists version_id] && \ +if { ![info exists version_id] && [regexp {^packages/([^ /]+)/} $path . package_key] } { db_0or1row version_id_from_package_key { select version_id Index: openacs-4/packages/acs-api-browser/www/deprecated.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/deprecated.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-api-browser/www/deprecated.tcl 10 Sep 2002 22:22:04 -0000 1.3 +++ openacs-4/packages/acs-api-browser/www/deprecated.tcl 24 Jun 2015 19:10:41 -0000 1.4 @@ -20,7 +20,7 @@ multirow create deprecated proc args -foreach proc [nsv_array names api_proc_doc] { +foreach proc [lsort [nsv_array names api_proc_doc]] { array set doc_elements [nsv_get api_proc_doc $proc] if {$doc_elements(deprecated_p) == 1} { 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.14 -r1.15 --- openacs-4/packages/acs-api-browser/www/proc-search.tcl 14 Jun 2015 00:04:21 -0000 1.14 +++ openacs-4/packages/acs-api-browser/www/proc-search.tcl 24 Jun 2015 19:10:41 -0000 1.15 @@ -14,9 +14,9 @@ @cvs-id $Id$ } { {name_weight:optional 0} - {doc_weight:optional 0} - {param_weight:optional 0} - {source_weight:optional 0} + {doc_weight:integer,optional 0} + {param_weight:integer,optional 0} + {source_weight:integer,optional 0} {search_type:optional 0} {show_deprecated_p:boolean 0} {show_private_p:boolean 0} @@ -46,7 +46,7 @@ ########################### # No weighting use default: -if { ($name_weight == 0) && ($doc_weight == 0) && ($param_weight == 0) && ($source_weight ==0) } { +if { ($name_weight == 0) && ($doc_weight == 0) && ($param_weight == 0) && ($source_weight == 0) } { set name_weight 1 } @@ -72,7 +72,7 @@ ############### ## Name Search: ############### - if {$name_weight} { + if {$name_weight != 0 && [string is integer -strict $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 @@ -97,7 +97,7 @@ ############## ## Doc Search: ############## - if {$doc_weight} { + if {$doc_weight > 0} { set doc_string [lindex $doc_elements(main) 0] if {[info exists doc_elements(param)]} { @@ -115,7 +115,7 @@ ################# ## Source Search: ################# - if {$source_weight} { + if {$source_weight != 0} { if {![catch {set source [info body $proc]}]} { incr score [expr {$source_weight * [::apidoc::ad_keywords_score $query_string $source]}] } Index: openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl 27 Oct 2014 16:39:00 -0000 1.7 +++ openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl 24 Jun 2015 19:10:41 -0000 1.8 @@ -6,7 +6,7 @@ } -properties { title:onevalue context:onevalue - tcl_proc:onevalue + tcl_proc:onevalue,notnull } set ns_api_index_result [util_memoize [list ::util::http::get -url $::apidoc::ns_api_html_index]]