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.6 -r1.7
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	20 Aug 2002 04:58:08 -0000	1.6
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	13 Sep 2002 19:02:14 -0000	1.7
@@ -494,6 +494,23 @@
 		append out "</dd>\n"
 	}
 	
+
+        # @option is used in  template:: and cms:: (and maybe should be used in some other 
+        # things like ad_form which have internal arg parsers.  although an option 
+        # and a switch are the same thing, just one is parsed in the proc itself rather than 
+        # by ad_proc.
+
+	if { [info exists doc_elements(option)] } {
+		append out "<b>Options:</b><dl>"
+		foreach param $doc_elements(option) {
+			if { [regexp {^([^ \t]+)[ \t](.+)$} $param "" name value] } {
+                            append out "<dt><b>-$name</b></dt><dd>$value<br/></dd>"
+			}
+		}
+		append out "</dl>"
+	}
+	
+
 	if { [info exists doc_elements(return)] } {
 		append out "<dt><b>Returns:</b></dt><dd>[join $doc_elements(return) "<br>"]</dd>\n"
 	}