Index: openacs-4/packages/xowiki/tcl/import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/xowiki/tcl/import-procs.tcl	9 Nov 2008 01:37:33 -0000	1.8
+++ openacs-4/packages/xowiki/tcl/import-procs.tcl	10 Nov 2008 07:56:22 -0000	1.9
@@ -32,6 +32,11 @@
   }
 
   Importer instproc import {-object:required -replace -create_user_ids} {
+    #
+    # Import a single object. In essence, this method demarshalls a
+    # single object and inserts it (or updates it) in the database. It
+    # takes as well care about categories.
+    # 
     my instvar package_id user_id
 
     $object demarshall -parent_id [$object parent_id] -package_id $package_id \
@@ -71,10 +76,16 @@
       #my msg "$item_id map_categories [object set __category_ids] // [$item_id item_id]"
       $item_id map_categories [$object set __category_ids]
     }
+
+    $package_id flush_references -item_id [$object item_id] -name [$object name]
   }
 
   Importer instproc import_all {-replace -objects:required {-create_user_ids 0}} {
     #
+    # Import a series of objects. This method takes care especially
+    # about dependencies of objects, which is reflected by the order
+    # of object-imports.
+    #
     # Extact information from objects to be imported, that might be
     # changed later in the objects.
     #
@@ -199,6 +210,8 @@
     # final cleanup
     #
     foreach o $objects {$o destroy}
+
+    [my package_id] flush_page_fragment_cache
   }