Index: openacs-4/packages/acs-service-contract/www/binding-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/binding-display.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-service-contract/www/binding-display.tcl 27 Oct 2014 16:39:44 -0000 1.5
+++ openacs-4/packages/acs-service-contract/www/binding-display.tcl 22 Jun 2015 21:03:12 -0000 1.6
@@ -52,7 +52,7 @@
regsub {^::} $impl_alias {} impl_alias
if {[info commands ::$impl_alias] ne ""} {
append impl_alias " {[info args ::$impl_alias]}"
- } elseif {[llength $impl_alias]>1
+ } elseif {[llength $impl_alias] > 1
&& [info commands ::xotcl::Object] ne ""
&& [::xotcl::Object isobject [lindex $impl_alias 0]]
&& [[lindex $impl_alias 0] info methods [lindex $impl_alias 1]] ne ""} {
@@ -62,7 +62,7 @@
# - the second word is a method for the object,
# ... so provide a link to the XOTcl api browser
set href "/xotcl/show-object?object=[lindex $impl_alias 0]&show_methods=2"
- append impl_alias "" \
+ append impl_alias "" \
""
} else {
append impl_alias { - NOT FOUND!}