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.127 -r1.128
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Jul 2007 15:28:38 -0000	1.127
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Jul 2007 11:45:30 -0000	1.128
@@ -1210,7 +1210,7 @@
   }
 
 
-  FormInstance instproc save_data {old_name} {
+  FormInstance instproc save_data {old_name category_ids} {
     my log "-- [self args]"
     my instvar package_id name
     db_transaction {
@@ -1223,6 +1223,9 @@
           my set publish_status "ready"
         }
       }
+       # could be optimized, if we do not want to have categories (form constraints?)
+      category::map_object -remove_old -object_id [my item_id] $category_ids
+
       my save
       my log "-- old_name $old_name, name $name"
       if {$old_name ne $name} {
@@ -1234,15 +1237,15 @@
     return [my item_id]
   }
 
-  FormInstance ad_instproc save-form-data {} {
-    Method to be called from a submit button of the form
-  } {
-    my instvar package_id name
-    my save_data [::xo::cc form_parameter __object_name ""]
-    my log "--forminstance redirect to [$package_id pretty_link $name]"
-    $package_id returnredirect \
-        [my query_parameter "return_url" [$package_id pretty_link $name]]
-  }
+ #  FormInstance ad_instproc save-form-data {} {
+#     Method to be called from a submit button of the form
+#   } {
+#     my instvar package_id name
+#     my save_data [::xo::cc form_parameter __object_name ""]
+#     my log "--forminstance redirect to [$package_id pretty_link $name]"
+#     $package_id returnredirect \
+#         [my query_parameter "return_url" [$package_id pretty_link $name]]
+#   }
 
 }