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 ""