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.5 -r1.6 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 25 Jun 2002 18:41:41 -0000 1.5 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 20 Aug 2002 04:58:08 -0000 1.6 @@ -449,7 +449,7 @@ } if { [llength $doc_elements(switches)] > 0 } { - append out "

Switches:
\n" + append out "
Switches:
\n" foreach switch $doc_elements(switches) { append out "-$switch" if { [lsearch $flags($switch) "boolean"] >= 0 } { @@ -476,7 +476,7 @@ } if { [llength $doc_elements(positionals)] > 0 } { - append out "

Parameters:
\n" + append out "
Parameters:
\n" foreach positional $doc_elements(positionals) { append out "$positional" if { [info exists default_values($positional)] } { @@ -505,7 +505,7 @@ append out [api_format_common_elements doc_elements] if { $source_p } { - append out "

Source code:
+ append out "
Source code:
[ns_quotehtml [info body $proc_name]]
 

\n" }