Index: openacs-4/packages/xowiki/www/admin/export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/export.tcl,v
diff -u -r1.24.2.3 -r1.24.2.4
--- openacs-4/packages/xowiki/www/admin/export.tcl	7 Feb 2020 08:44:05 -0000	1.24.2.3
+++ openacs-4/packages/xowiki/www/admin/export.tcl	7 Oct 2020 10:09:42 -0000	1.24.2.4
@@ -18,17 +18,13 @@
 #
 if {$objects eq ""} {
   set sql [$object_type instance_select_query -folder_id $folder_id -with_subtypes true]
-  xo::dc foreach instance_select $sql { set items($item_id) 1 }
+  xo::dc foreach instance_select $sql {
+    set items($item_id) 1
+  }
 } else {
-  foreach o $objects {
-    ::$package_id get_lang_and_name -default_lang [::xo::cc lang] -path $o lang stripped_name
-    set parent_id [::$package_id get_parent_and_name -lang $lang \
-                       -path $stripped_name -parent_id $folder_id \
-                       parent local_name]
-    #ns_log notice "lookup of $o in $folder_id returns [::xo::db::CrClass lookup -name $o -parent_id $parent_id]"
-    if {[set item_id [::xo::db::CrClass lookup -name $local_name -parent_id $parent_id]] != 0} {
-      set items($item_id) 1
-    }
+  ns_log notice "OBJECTS <$objects>"
+  foreach item_id [$package_id get_ids_for_bulk_actions $objects] {
+    set items($item_id) 1
   }
 }