Index: openacs-4/packages/acs-lang/www/admin/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/message-delete.tcl	15 Aug 2003 07:50:44 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/message-delete.tcl	11 Dec 2003 21:39:53 -0000	1.2
@@ -28,32 +28,15 @@
                  [list "message-list?[export_vars { locale package_key show }]" $package_key] \
                  $page_title]
 
-
-# We check that this request is coming for the system wide default
-# locale. If not, we can't allow the creation of a new localized 
-# message.
-
-if { ![string equal $current_locale $default_locale] } {
-    ad_return_error "Can only create messages in the default locale" "Can only create messages in the default locale"
-    ad_script_abort
-}
-
-
 set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }]
 
 
 if { [exists_and_not_null confirm_p] && [template::util::is_true $confirm_p] } {
+    lang::message::delete \
+        -package_key $package_key \
+        -message_key $message_key \
+        -locale $locale
 
-    db_transaction {
-
-        db_dml delete_messages { delete from lang_messages where package_key = :package_key and message_key = :message_key }
-
-        db_dml delete_audit { delete from lang_messages_audit where package_key = :package_key and message_key = :message_key  }
-
-        db_dml delete_message_key { delete from lang_message_keys where package_key = :package_key and message_key = :message_key  }
-
-    }
-
     ad_returnredirect "message-list?[export_vars { locale package_key show }]"
     ad_script_abort
 }