Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.407 -r1.408
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	28 Jun 2010 06:39:00 -0000	1.407
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	28 Jun 2010 06:40:22 -0000	1.408
@@ -2933,71 +2933,6 @@
     return [string range $content 1 end]
   }
 
-  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 dom tree before it
-    # is presented; can be overloaded
-  }
-
-  FormPage instproc load_values_into_form_fields {form_fields} {
-    array set __ia [my set instance_attributes]
-    foreach f $form_fields {
-      set att [$f name]
-      switch -glob $att {
-        __* {}
-        _* {
-          set varname [string range $att 1 end]
-          $f value [$f convert_to_external [my set $varname]]
-        }
-        default {
-          if {[info exists __ia($att)]} {
-            #my msg "setting $f ([$f info class]) value $__ia($att)"
-            $f value [$f convert_to_external $__ia($att)]
-          }
-        }
-      }
-    }
-  }
-
-  FormPage instproc render_form_action_buttons {{-CSSclass ""}} {
-    ::html::div -class form-button {
-      set f [::xowiki::formfield::submit_button new -destroy_on_cleanup \
-                 -name __form_button_ok \
-                 -CSSclass $CSSclass]
-      $f render_input
-    }
-  }
-
-  FormPage instproc form_fields_sanity_check {form_fields} {
-    foreach f $form_fields {
-      if {[$f exists disabled]} {
-        # don't mark disabled fields as required
-        if {[$f required]} {
-          $f required false
-        }
-        #don't show the help-text, if you cannot input
-        if {[$f help_text] ne ""} {
-          $f help_text ""
-        }
-      }
-      if {[$f exists transmit_field_always] 
-          && [lsearch [$f info mixin] ::xowiki::formfield::omit] > -1} {
-        # Never omit these fields, this would cause problems with
-        # autonames and empty languages. Set these fields to hidden
-        # instead.
-        $f remove_omit
-        $f class ::xowiki::formfield::hidden
-        $f initialize
-        #my msg "$f [$f name] [$f info class] [$f info mixin]"
-      }
-    }
-  }
-
   FormPage instproc group_require {} {
     #
     # Create a group if necessary associated to the current form