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.11 -r1.12 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 May 2003 09:38:08 -0000 1.11 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 19 May 2003 12:25:54 -0000 1.12 @@ -411,7 +411,7 @@ ad_proc -public api_proc_documentation { - { -format text/html } + {-format text/html} -script:boolean -source:boolean -xql:boolean @@ -428,7 +428,6 @@ @param proc_name the name of the procedure for which to generate documentation. @return the formatted documentation string. @error if the procedure is not defined. - } { if { ![string equal $format "text/html"] && \ ![string equal $format "text/plain"] } { @@ -576,7 +575,8 @@ append out "
Source code:
[ns_quotehtml [info body $proc_name]]
 

\n" - } + } + } set xql_base_name [get_server_root]/ append xql_base_name [file rootname $doc_elements(script)]