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.145 -r1.146
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	17 Jul 2007 13:18:08 -0000	1.145
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	18 Jul 2007 12:29:03 -0000	1.146
@@ -1194,53 +1194,6 @@
     return [my include_portlet [list form-menu -form_item_id [my item_id]]]
   }
 
-#   Page instproc new_name {name} {
-#     if {$name ne ""} {
-#       my instvar package_id
-#       set name [my complete_name $name]
-#       set name [::$package_id normalize_name $name]
-#       set suffix ""; set i 0
-#       set folder_id [my parent_id]
-#       while {[CrItem lookup -name $name$suffix -parent_id $folder_id] != 0} {
-#         set suffix -[incr i]
-#       }
-#       set name $name$suffix
-#     }
-#     return $name
-#   }
-
-#   Page instproc create-new {} {
-#     my instvar package_id
-#     set name [my new_name [::xo::cc form_parameter name ""]]
-#     set class [::xo::cc form_parameter class ::xowiki::Page]
-#     if {[::xotcl::Object isclass $class] && [$class info heritage ::xowiki::Page] ne ""} { 
-#       set class [::xo::cc form_parameter class ::xowiki::Page]
-#       set f [$class new -destroy_on_cleanup \
-#                  -name $name \
-#                  -package_id $package_id \
-#                  -parent_id [my parent_id] \
-#                  -publish_status "production" \
-#                  -title [my title] \
-#                  -text [list [::xo::cc form_parameter content ""] text/html]]
-#       $f save_new
-#       $package_id returnredirect \
-#           [my query_parameter "return_url" [$package_id pretty_link $name]?m=edit]
-#     }
-#   }
-
-  Form instproc create-new {} {
-    my instvar package_id
-    set f [FormInstance new -destroy_on_cleanup \
-               -package_id $package_id \
-               -parent_id [my parent_id] \
-               -publish_status "production" \
-               -page_template [my item_id]]
-    $f set __title_prefix [my title]
-    $f save_new
-    $package_id returnredirect \
-        [my query_parameter "return_url" [$package_id pretty_link [$f name]]?m=edit]
-  }
-
   Form proc disable_input_fields {form} {
     dom parse -simple -html $form doc
     $doc documentElement root
@@ -1253,6 +1206,8 @@
 
   Form instproc get_content {} {
     my instvar text
+    ::xowiki::Form requireFormCSS
+
     #my log "-- text='$text'"
     if {[lindex $text 0] ne ""} {
       set content [my substitute_markup [my set text]]
@@ -1355,6 +1310,7 @@
       # we have a template
       return [next]
     } else {
+      ::xowiki::Form requireFormCSS
       set form [lindex [my get_from_template form] 0]
       set field_names [my form_attributes]
       set form_fields [my create_form_fields $field_names]