Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.111 -r1.112
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	31 Oct 2008 14:39:55 -0000	1.111
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	12 Nov 2008 20:56:03 -0000	1.112
@@ -284,6 +284,14 @@
 #     }
 #   }
 
+  WikiForm instproc tidy {} {
+    upvar #[template::adp_level] text text
+    if {[info exists text]} {
+      foreach {text format} [my var text] break
+      my var text [list [list [::xowiki::tidy clean $text] $format]]
+    }
+  }
+  
   WikiForm instproc data_from_form {{-new 0}} {
     my instvar data
     if {[$data exists_form_parameter text.format]} {
@@ -296,8 +304,7 @@
     if {[info exists page_order] && $page_order ne ""} {
       set page_order [string trim $page_order " ."]
     }
-    foreach {text format} [my var text] break
-    my var text [list [list [::xowiki::tidy clean $text] $format]]
+    my tidy
   }
 
   WikiForm instproc update_references {} {
@@ -409,7 +416,9 @@
       -parameter {
         {f.text "= textarea,cols=80,rows=10"}
       }
-
+  PlainWikiForm instproc tidy {} {
+    # nothing
+  }
   #
   # File Form
   #
@@ -431,8 +440,10 @@
                                                    already in this folder}}
           }}
         }
+  FileForm instproc tidy {} {
+    # nothing
+  }
 
-
   FileForm instproc get_uploaded_file {} {
     my instvar data
     #my log "--F... [ns_conn url] [ns_conn query] form vars = [ns_set array [ns_getform]]"
@@ -565,6 +576,7 @@
     next
   }
 
+
   ObjectForm instproc new_request {} {
     my instvar data
     permission::require_permission \
@@ -612,6 +624,9 @@
         }
         {with_categories  false}
       }
+  PageInstanceForm instproc tidy {} {
+    # nothing
+  }
   PageInstanceForm instproc set_submit_link_edit {} {
     my instvar folder_id data
     set object_type [[$data info class] object_type]
@@ -647,6 +662,9 @@
         {with_categories   true}
         {textfieldspec     {text(textarea),nospell {html {cols 60 rows 5}}}}
       }
+  PageInstanceEditForm instproc tidy {} {
+    # nothing
+  }
 
   PageInstanceEditForm instproc new_data {} {
     my instvar data