live-revision-set.tcl

# This file sets live a revision

Location:
/packages/wp-slim/www/live-revision-set.tcl
Author:
Haolan Qin <hqin@arsdigita.com>
Created:
Fri Dec 8 13:17:49 2000
CVS ID:
$Id: live-revision-set.tcl,v 1.2 2004/12/21 22:06:47 miguelm Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/wp/www/attach-list.tcl

ad_page_contract {

    # This file sets live a revision

     @author Haolan Qin (hqin@arsdigita.com)
     @creation-date Fri Dec 8 13:17:49 2000
     @cvs-id $Id: live-revision-set.tcl,v 1.2 2004/12/21 22:06:47 miguelm Exp $
} {
    revision_id:naturalnum,notnull
    return_url:notnull
}

db_exec_plsql live_revision_set {
    begin
      content_item.set_live_revision(:revision_id);
    end;
}

ad_returnredirect $return_url