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 -N -r1.72.2.8 -r1.72.2.9 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 20 Jun 2019 09:59:22 -0000 1.72.2.8 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 6 Sep 2019 21:53:14 -0000 1.72.2.9 @@ -353,7 +353,7 @@ } ad_proc -public api_proc_documentation { - {-format text/html} + -format -script:boolean -source:boolean -xql:boolean @@ -365,8 +365,8 @@ Generates formatted documentation for a procedure. - @param format the type of documentation to generate. Currently, only - text/html and text/plain are supported. + @param format the type of documentation to generate. This + parameter is deprecated and has no effect. @param script include information about what script this proc lives in? @param xql include the source code for the related xql files? @param source include the source code for the script? @@ -383,8 +383,8 @@ ad_log warning "api_proc_documentation: received invalid proc_name <$proc_name>, try to sanitize" regsub -all {::::} $proc_name :: proc_name } - if { $format ne "text/html" && $format ne "text/plain" } { - return -code error "Only text/html and text/plain documentation are currently supported" + if {[info exists format]} { + ad_log warning "-format flag is deprecated and has no effect" } array set doc_elements { flags ""