bulk-delete.tcl

this file is called by the bulk action of admin/list

Location:
/packages/xowiki/www/admin/bulk-delete.tcl
Author:
Gustaf Neumann <gustaf.neumann@wu-wien.ac.at>
Created:
Nov 11, 2007
CVS ID:
$Id: bulk-delete.tcl,v 1.8 2024/09/11 06:15:56 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

::xowiki::Package initialize -ad_doc {
  this file is called by the bulk action of admin/list

  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
  @creation-date Nov 11, 2007
  @cvs-id $Id: bulk-delete.tcl,v 1.8 2024/09/11 06:15:56 gustafn Exp $

  @param object_type
} -parameter {
  {-objects ""}
}

foreach item_id [$package_id get_ids_for_bulk_actions $objects] {
  ns_log notice "DELETE $item_id"
  ::$package_id www-delete -item_id $item_id
}

ad_returnredirect "./list"
ad_script_abort

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