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.5.2.3 2020/10/07 10:09:42 gustafn Exp $

Related Files

• packages/xowiki/www/admin/bulk-delete.tcl

[ 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.5.2.3 2020/10/07 10:09:42 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: