etp-revision-delete.tcl

Location:

/packages/edit-this-page/www/etp-revision-delete.tcl

Author:

Lars Pind <lars@pinds.com>

Created:

2003-03-28 Asks for confirmation before deleting an unpublished revision

Related Files

• packages/edit-this-page/www/etp-revision-delete.tcl
• packages/edit-this-page/www/etp-revision-delete.adp
• packages/edit-this-page/www/etp-revision-delete-postgresql.xql
• packages/edit-this-page/www/etp-revision-delete-oracle.xql

[ hide source ]

File Contents

# /packages/edit-this-page/www/etp-revision-delete.tcl

ad_page_contract {
    @author Lars Pind (lars@pinds.com)
    @creation-date 2003-03-28

    Asks for confirmation before deleting an unpublished revision
} {
    name
    revision_id:naturalnum,notnull
    version_number:integer
    {confirmed "f"}
} -properties {
    name:onevalue
    revision_count:onevalue
    version_number:onevalue
    revision_id:onevalue
    form_vars:onevalue
}

etp::check_write_access

set package_id [ad_conn package_id]

if {$confirmed == "t"} {

    db_exec_plsql delete_revision {}

    ad_returnredirect [export_vars -base etp {name}]
    ad_script_abort
} else {
    set form_vars [export_vars -form { name revision_id version_number { confirmed t }}]
}