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.59 -r1.60 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 9 Sep 2018 13:14:25 -0000 1.59 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 9 Sep 2018 13:15:11 -0000 1.60 @@ -825,7 +825,7 @@ } on ok {result} { set body $result #ns_log notice "api_called_proc_names <$proc_name> got body <$body>" - + } on error {errorMsg} { ns_log warning "cannot obtain body of '$proc_name' via ::apidoc::tcl_to_html: $errorMsg" return "" @@ -874,7 +874,7 @@ } } } - + foreach init_file $init_files { set file_contents [template::util::read_file $::acs::rootdir/$init_file] foreach called [api_called_proc_names -proc_name $init_file -body $file_contents] { @@ -984,7 +984,7 @@ # Include calls from calledby information. Might come from a file # (e.g. a *-init.tcl file) or from a proc. # - set callers {} + set callers {} if {[dict exists $doc calledby]} { set edges "" set nodes "" @@ -999,7 +999,7 @@ lappend caller_procs $c } } - + foreach caller [lrange [lsort $caller_procs] 0 $maxnodes-1] { # # When the "caller" starts with "packages/", we assume,