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 -r1.3 -r1.4
--- openacs-4/packages/xowiki/tcl/import-procs.tcl	9 Jun 2008 11:32:36 -0000	1.3
+++ openacs-4/packages/xowiki/tcl/import-procs.tcl	9 Jul 2008 11:39:48 -0000	1.4
@@ -21,7 +21,7 @@
     return "$added objects newly inserted, $updated objects updated, $replaced objects replaced<p>"
   }
 
-  Importer instproc import {-object -replace -base_object} {
+  Importer instproc import {-object -replace -base_object -keep_user_ids} {
     my instvar package_id folder_id user_id
     $object demarshall -parent_id $folder_id -package_id $package_id -creation_user $user_id
     set item_id [::xo::db::CrClass lookup -name [$object name] -parent_id [$object parent_id]]
@@ -60,7 +60,7 @@
     }
   }
 
-  Importer instproc import_all {-replace -objects:required } {
+  Importer instproc import_all {-replace -objects:required {-keep_user_ids 0}} {
     my instvar package_id folder_id
     set todo [list]
     foreach o $objects {
@@ -70,7 +70,7 @@
         continue
       }
       my log "importing (1st round) $o [$o name] [$o info class]"
-      my import -object $o -replace $replace
+      my import -object $o -replace $replace -keep_user_ids $keep_user_ids
     }
 
     while {[llength $todo] > 0} {
@@ -101,7 +101,7 @@
         break
       }
       my log "importing (2nd round) process $o, todo=$todo"
-      my import -object $o -replace $replace -base_object $template_id
+      my import -object $o -replace $replace -base_object $template_id -keep_user_ids $keep_user_ids
     }
     foreach o $objects {$o destroy}
   }