Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v diff -u -N -r1.12 -r1.12.2.1 --- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 9 May 2018 15:33:28 -0000 1.12 +++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 6 Sep 2019 14:04:46 -0000 1.12.2.1 @@ -27,20 +27,20 @@ if { ![info exists version_id] && [regexp {^packages/([^ /]+)/} $path "" package_key] } { db_0or1row version_id_from_package_key { - select version_id - from apm_enabled_package_versions - where package_key = :package_key + select version_id + from apm_enabled_package_versions + where package_key = :package_key } } set path [apidoc::sanitize_path $path] if {![file readable ${::acs::rootdir}$path] || [file isdirectory ${::acs::rootdir}$path]} { if {[info exists version_id]} { - set kind procs - set href [export_vars -base [ad_conn package_url]/package-view {version_id {kind procs}}] - set link [subst {

Go back to Package Documentation.}] + set kind procs + set href [export_vars -base [ad_conn package_url]/package-view {version_id {kind procs}}] + set link [subst {

Go back to Package Documentation.}] } else { - set link [subst {

Go back to API Browser.}] + set link [subst {

Go back to API Browser.}] } ad_return_warning \ "No such library file" \ @@ -75,7 +75,7 @@ where version_id = :version_id } if {[info exists pretty_name]} { - lappend context [list [export_vars -base package-view {version_id}] "$pretty_name $version_name"] + lappend context [list [export_vars -base package-view {version_id}] "$pretty_name $version_name"] } } @@ -100,7 +100,7 @@ } } multirow append proc_list [api_proc_pretty_name -link $proc] - } + } foreach proc [lsort [nsv_get api_proc_doc_scripts $path]] { if { $public_p } { array set doc_elements [nsv_get api_proc_doc $proc]