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