message-delete.tcl

Delete a message

Location:
/packages/acs-lang/www/admin/message-delete.tcl
Author:

Lars Pind <lars@collaboraid.biz>

Created:

2003-08-15

CVS ID:

$Id: message-delete.tcl,v 1.12 2024/09/11 06:15:48 gustafn Exp $

File Contents

ad_page_contract {

    Delete a message

    @author Lars Pind (lars@collaboraid.biz)

    @creation-date 2003-08-15
    @cvs-id $Id: message-delete.tcl,v 1.12 2024/09/11 06:15:48 gustafn Exp $

} {
    locale:word
    package_key:token
    message_key
    show:optional
    {confirm_p:boolean,optional,notnull 0}
}


# We rename to avoid conflict in queries
set current_locale $locale
set default_locale en_US

set locale_label [lang::util::get_label $current_locale]
set default_locale_label [lang::util::get_label $default_locale]

set page_title "Delete Message"
set context [list [list [export_vars -base package-list { locale }] $locale_label] \
                 [list [export_vars -base message-list { locale package_key show }] $package_key] \
                 $page_title]

set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }]


if { $confirm_p } {
    lang::message::delete \
        -package_key $package_key \
        -message_key $message_key \
        -locale $locale

    ad_returnredirect [export_vars -base message-list { locale package_key show }]
    ad_script_abort
}

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

message-delete.tcl

Related Files

File Contents