revision-set-active.tcl

This page changes the active revision of a news item and returns to item

Location:
/packages/news/www/admin/revision-set-active.tcl
Author:
stefan@arsdigita.com
Created:
2000-12-20
CVS ID:
$Id: revision-set-active.tcl,v 1.6 2018/01/19 14:24:20 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/news/www/admin/revision-set-active.tcl

ad_page_contract {
    
    This page changes the active revision of a news item and returns to item

    @author stefan@arsdigita.com
    @creation-date 2000-12-20
    @cvs-id $Id: revision-set-active.tcl,v 1.6 2018/01/19 14:24:20 gustafn Exp $
    
} {

    item_id:naturalnum,notnull
    new_rev_id:naturalnum,notnull
    
}


db_exec_plsql update_forum {}
    
ad_returnredirect "item?item_id=$item_id"
ad_script_abort

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