locale-delete.tcl
Deletes a locale
- Location:
- /packages/acs-lang/www/admin/locale-delete.tcl
- Author:
- Bruno Mattarollo
- Created:
- 19 march 2002
- CVS ID:
$Id: locale-delete.tcl,v 1.9.2.3 2023/10/06 12:31:05 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Deletes a locale @author Bruno Mattarollo <bruno.mattarollo@ams.greenpeace.org> @creation-date 19 march 2002 @cvs-id $Id: locale-delete.tcl,v 1.9.2.3 2023/10/06 12:31:05 gustafn Exp $ } { locale:word {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 $locale_label" set context [list $page_title] set form_export_vars [export_vars -form { locale {confirm_p 1} }] if { $confirm_p } { db_transaction { db_dml delete_messages { delete from lang_messages where locale = :locale } db_dml delete_audit { delete from lang_messages_audit where locale = :locale } db_dml delete_locale { delete from ad_locales where locale = :locale } } ad_returnredirect "." ad_script_abort } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: