Index: openacs-4/packages/xotcl-core/www/show-object.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v diff -u -r1.27.2.3 -r1.27.2.4 --- openacs-4/packages/xotcl-core/www/show-object.tcl 9 Aug 2019 19:45:14 -0000 1.27.2.3 +++ openacs-4/packages/xotcl-core/www/show-object.tcl 16 Oct 2019 10:24:43 -0000 1.27.2.4 @@ -244,7 +244,11 @@ if { [info exists doc_elements(param)] && [llength $doc_elements(param)] > 0} { append output "
Documented Parameters:
\n" foreach par $doc_elements(param) { - append output "
-[lindex $par 0]
[lrange $par 1 end]
\n" + if {[regexp {^\s*(\S+)\s*(.*)$} $par . param desc]} { + append output "
$param
$desc
\n" + } else { + ad_log warning "show_object: ignoring invalid parameter description <$par>" + } } append output "
" }