Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 27 Jun 2015 16:57:15 -0000 1.9 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 2 Jul 2015 19:21:43 -0000 1.10 @@ -3,7 +3,7 @@ @cvs-id $Id$ } { - proc:trim + proc:token,trim source_p:boolean,optional,trim {version_id:naturalnum,optional ""} } -properties { @@ -26,7 +26,7 @@ where version_id = :version_id } if {[info exists package_id]} { - lappend context [list "package-view?version_id=$version_id&kind=procs" \ + lappend context [list [export_vars -base package-view {version_id {kind procs}}] \ "$pretty_name $version_name"] } } @@ -87,7 +87,7 @@ -proc $relative_proc] if {$url ne ""} { - ns_log notice "got URL <$url>" + ns_log notice "api-doc/www/proc-view got URL <$url>" ad_returnredirect -allow_complete_url $url ad_script_abort } Index: openacs-4/packages/search/www/search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v diff -u -N -r1.39 -r1.40 --- openacs-4/packages/search/www/search.tcl 27 Apr 2015 15:28:20 -0000 1.39 +++ openacs-4/packages/search/www/search.tcl 2 Jul 2015 19:19:15 -0000 1.40 @@ -7,11 +7,11 @@ {t:trim ""} {offset:naturalnum 0} {num:naturalnum 0} - {dfs:trim ""} - {dts:trim ""} + {dfs:word,trim ""} + {dts:word,trim ""} {search_package_id:naturalnum ""} {scope ""} - {object_type ""} + {object_type:token ""} } -validate { keywords_p { if {![info exists q] || $q eq ""} {