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.13.4.2 -r1.13.4.3 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 25 Mar 2004 03:25:14 -0000 1.13.4.2 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 25 Apr 2004 12:35:14 -0000 1.13.4.3 @@ -485,12 +485,12 @@
" - if { [info exists doc_elements(param)] } { - foreach param $doc_elements(param) { - if { [regexp {^([^ \t]+)[ \t](.+)$} $param "" name value] } { - set params($name) $value - } - } + if { [info exists doc_elements(param)] } { + foreach param $doc_elements(param) { + if { [regexp {^([^ \t\n]+)[ \t\n]+(.*)$} $param "" name value] } { + set params($name) $value + } + } } if { [llength $doc_elements(switches)] > 0 } {