Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -N -r1.41 -r1.42
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 23 Apr 2018 16:08:29 -0000 1.41
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 25 Apr 2018 19:23:25 -0000 1.42
@@ -188,7 +188,7 @@
return $out
}
- array set params [list]
+ array set params {}
if { [info exists doc_elements(param)] } {
foreach param $doc_elements(param) {
@@ -215,7 +215,7 @@
# append out "
Query Parameters:\n"
# foreach arg_name $doc_elements(as_arg_names) {
# append out "$arg_name"
- # set notes [list]
+ # set notes {}
# if { [info exists as_default_value($arg_name)] } {
# lappend notes "defaults to \"$as_default_value($arg_name)\"
"
# }
@@ -310,7 +310,7 @@
"
- array set property_doc [list]
+ array set property_doc {}
if { [info exists doc_elements(property)] } {
foreach property $doc_elements(property) {
if { [regexp {^([^ \t]+)[ \t](.+)$} $property "" name value] } {
@@ -715,7 +715,7 @@
Returns the functions in the system that contain string in their name
and have been defined using ad_proc.
} {
- set matches [list]
+ set matches {}
foreach function [nsv_array names api_proc_doc] {
if {[string match -nocase "*$string*" $function]} {
array set doc_elements [nsv_get api_proc_doc $function]
@@ -733,7 +733,7 @@
have been defined using ad_proc. The description includes the
documentation string, if any.
} {
- set matches [list]
+ set matches {}
foreach function [nsv_array names api_proc_doc] {
if {[string match -nocase $proc $function]} {
array set doc_elements [nsv_get api_proc_doc $function]
@@ -1487,7 +1487,7 @@
} {
- set linkList [list]
+ set linkList {}
set filename $::acs::rootdir/$path
set path_dirname [file dirname $path]
set file_dirname [file dirname $filename]