Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.108 -r1.109 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 13 Nov 2007 11:36:11 -0000 1.108 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 19 Nov 2007 12:44:00 -0000 1.109 @@ -69,10 +69,10 @@ if {[$package_id get_parameter "with_general_comments" 0] && ![my exists_query_parameter no_gc]} { - append footer [my include my-general-comments]
+ append footer [my include my-general-comments] } - return "
$footer
\n" + return "\n" } } @@ -742,15 +742,15 @@ $ff(_title) value "" } if {!$anon_instances} {$ff(_name) value ""} - foreach var {title detail_link text} { + foreach var [list title detail_link text description] { if {[my exists_query_parameter $var]} { set value [my query_parameter $var] switch -- $var { detail_link { set f [my lookup_form_field -name $var $form_fields] $f value $value } - title - text { + title - text - description { set f [my lookup_form_field -name _$var $form_fields] } }