Index: openacs-4/packages/contacts/www/files-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/files-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/files-delete.tcl 27 May 2005 00:18:58 -0000 1.1 +++ openacs-4/packages/contacts/www/files-delete.tcl 4 Jun 2005 12:36:45 -0000 1.2 @@ -1,19 +1,19 @@ -ad_page_contract { - - Update sort order - - @author Matthew Geddert openacs@geddert.com - @creation-date 2005-05-24 - @cvs-id $Id$ - -} { - item_id:multiple,notnull - party_id -} - -db_transaction { - foreach item_id $item_id { - db_dml expire_item { update cr_items set publish_status = 'expired', live_revision = NULL where item_id = :item_id } - } -} -ad_returnredirect "${party_id}/files" +ad_page_contract { + + Update sort order + + @author Matthew Geddert openacs@geddert.com + @creation-date 2005-05-24 + @cvs-id $Id$ + +} { + item_id:multiple,notnull + party_id +} + +db_transaction { + foreach item_id $item_id { + db_dml expire_item { update cr_items set publish_status = 'expired', live_revision = NULL where item_id = :item_id } + } +} +ad_returnredirect "${party_id}/files"