Index: openacs-4/packages/xowiki/tcl/link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v diff -u -r1.51 -r1.52 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 1 Oct 2008 18:10:48 -0000 1.51 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 3 Oct 2008 11:28:16 -0000 1.52 @@ -11,7 +11,7 @@ # generic links # Class create BaseLink -parameter { - cssclass href label title target extra_query_parameter anchor + cssclass href label title target extra_query_parameter {anchor ""} } BaseLink instproc mk_css_class {-additional {-default ""}} { 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.183 -r1.184 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 1 Oct 2008 22:59:23 -0000 1.183 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 3 Oct 2008 11:28:17 -0000 1.184 @@ -1244,6 +1244,7 @@ # some final sanity checks my form_fields_sanity_check $form_fields + my post_process_form_fields $form_fields # The following command would be correct, but does not work due to a bug in # tdom. @@ -1326,7 +1327,7 @@ # (b) disable input in HTML-specified fields Form dom_disable_input_fields $root } - my post_process_edit_fields $root $form_fields + my post_process_dom_tree $doc $root $form_fields set html [$root asHTML] set html [my regsub_eval \ {(^|[^\\])\x003([a-zA-Z0-9_:]+)\x003} $html \ @@ -1340,10 +1341,16 @@ } } - FormPage instproc post_process_edit_fields {dom_root form_field} { + + FormPage instproc post_process_form_fields {form_fields} { + # We offer here the possibility to iterate over the form fields before it + # before they are rendered + } + + FormPage instproc post_process_dom_tree {dom_doc dom_root form_fields} { # Part of the input fields comes from HTML, part comes via $form_fields - # We offer here the possibility to iterate over the fields before they - # are presented; can be overloaded + # We offer here the possibility to iterate over the dom tree before it + # is presented; can be overloaded } File instproc download {} {