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 -r1.30.2.14 -r1.30.2.15
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 1 Jan 2016 12:08:31 -0000 1.30.2.14
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 1 Jan 2016 12:16:34 -0000 1.30.2.15
@@ -1307,7 +1307,6 @@
} elseif {$proc_namespace ne ""
&& [info commands ::${proc_namespace}::${proc_name}] ne ""} {
- ns_log notice "proc_namespace <$proc_namespace> ::${proc_namespace}::${proc_name}"
if {[is_object $scope ${proc_namespace}::${proc_name}]} {
set url [::xo::api object_url \
@@ -1320,12 +1319,14 @@
append html "" \
[pretty_token proc $proc_name]
}
- } elseif {[info commands ::$proc_name] ne ""} {
- ns_log notice "absolute ::${proc_name}"
- if {[is_object $scope ::${proc_name}]} {
+ } elseif {[info commands ::$proc_name] ne ""} {
+ set absolute_name [expr {[string match "::*" $proc_name]
+ ? $proc_name
+ : "::${proc_name}"}]
+ if {[is_object $scope $absolute_name]} {
set url [::xo::api object_url \
-show_source 1 -show_methods 2 \
- $scope ::${proc_name}]
+ $scope $absolute_name]
append html "" \
[pretty_token object $proc_name]
} else {