Index: openacs-4/packages/acs-lang/www/admin/locale-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/www/admin/locale-delete.tcl	21 Oct 2002 11:39:14 -0000	1.2
+++ openacs-4/packages/acs-lang/www/admin/locale-delete.tcl	8 Aug 2003 12:21:28 -0000	1.3
@@ -8,16 +8,12 @@
     @creation-date 19 march 2002
     @cvs-id $Id$
 } {
-    locales
+    locale
 } -properties {
 }
 
-# Get the locale for the user so that we 'spit' the content back in the
-# proper locale
-set locale_user [ad_locale_locale_from_lang [ad_locale user language]]
+set context_bar [ad_context_bar "Deleting Locale"]
 
-set context_bar [ad_context_bar "Deleting Locales"]
-
 form create locale_deleting
 
 # It's a request, not a submission of the form
@@ -45,8 +41,8 @@
 element create locale_deleting default_p -label "Default" \
     -datatype text -widget hidden  
 
-element create locale_deleting locales -p label "Locales" \
-    -datatype text -widget hidden -value $locales
+element create locale_deleting locale -p label "Locale" \
+    -datatype text -widget hidden -value $locale
 
 if { [form is_request locale_deleting] } {
 
@@ -57,7 +53,7 @@
             nls_territory as locale_nls_territory, nls_charset as locale_nls_charset,
             mime_charset as locale_mime_charset, default_p as locale_default_p
         from ad_locales
-        where locale = :locales"
+        where locale = :locale"
     element set_properties locale_deleting label -value $locale_label
     element set_properties locale_deleting language -value $locale_language
     element set_properties locale_deleting country -value $locale_country
@@ -73,8 +69,12 @@
 
     db_transaction {
 
-        db_dml delete_locale "delete from ad_locales where locale = :locales"
+        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 }
+
     }
 
     forward "index?tab=locales"