export.tcl

export the objects of the specified type

Location:

/packages/xowiki/www/admin/export.tcl

Author:

Gustaf Neumann <gustaf.neumann@wu-wien.ac.at>

Created:

Aug 11, 2006

CVS ID:

$Id: export.tcl,v 1.27 2024/09/11 06:15:56 gustafn Exp $

Related Files

• packages/xowiki/www/admin/export.tcl

[ hide source ] | [ make this the default ]

File Contents

::xowiki::Package initialize -ad_doc {
  export the objects of the specified type

  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
  @creation-date Aug 11, 2006
  @cvs-id $Id: export.tcl,v 1.27 2024/09/11 06:15:56 gustafn Exp $

  @param object_type
} -parameter {
  {-object_type:token ::xowiki::Page}
  {-objects ""}
}

set folder_id [::$package_id folder_id]

#
# In a first step, get the items_ids of the objects which are explicitly exported
#
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
  }
} else {
  ns_log notice "OBJECTS <$objects>"
  foreach item_id [$package_id get_ids_for_bulk_actions $objects] {
    set items($item_id) 1
  }
}

#
# The exporter exports the specified objects together with implicitly
# needed objects.
#
::xowiki::exporter export [array names items]
ns_conn close

# Local variables:
#    mode: tcl
#    tcl-indent-level: 2
#    indent-tabs-mode: nil
# End: