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.74 -r1.75 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 11 Sep 2024 06:15:46 -0000 1.74 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 20 Oct 2024 09:53:57 -0000 1.75 @@ -552,25 +552,27 @@ set switches [concat $doc_elements(switches0) $doc_elements(switches1)] if { [llength $switches] > 0 } { - append blocks_out "
\"[ns_quotehtml $default_values($switch)]\"
)"
+ lappend param_details "defaults to \"[ns_quotehtml $default_values($switch)]\"
"
}
-
- if {"required" in $flags($switch)} {
- append blocks_out " (required)"
- } else {
- append blocks_out " (optional)"
- }
- append blocks_out ""
+ append blocks_out \
+ "\"$default_values($positional)\"
)"
+ lappend param_details "defaults to \"$default_values($positional)\"
"
}
}
+ append blocks_out \
+ "