process-2.tcl
Confirmation page for news-admin to apply a drastic action to one or more news item(s), currently this is either 'delete','archive', or 'make permanent' The page is thereafter redirected to the administer page where the result is reflected.
- Location:
- /packages/news/www/admin/process-2.tcl
- Author:
- stefan@arsdigita.com
- Created:
- 2000-12-20
- CVS ID:
$Id: process-2.tcl,v 1.8.2.1 2024/08/30 07:47:19 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Confirmation page for news-admin to apply a drastic action to one or more news item(s), currently this is either 'delete','archive', or 'make permanent' The page is thereafter redirected to the administer page where the result is reflected. @author stefan@arsdigita.com @creation-date 2000-12-20 @cvs-id $Id: process-2.tcl,v 1.8.2.1 2024/08/30 07:47:19 gustafn Exp $ } { n_items:notnull action:notnull,trim } -errors { n_items:notnull "[_ news.lt_Please_check_the_item]" } switch -- $action { delete { news_items_delete $n_items } "archive now" { set when [clock format [clock seconds] -format %Y-%m-%d] news_items_archive $n_items $when } "archive next week" { set when [db_string archive_next_week {}] news_items_archive $n_items $when } "archive next month" { set when [db_string archive_next_month {}] news_items_archive $n_items $when } "make permanent" { news_items_make_permanent $n_items } } ad_returnredirect "" ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End:
