Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp,v
diff -u -N -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp 15 Apr 2019 17:30:48 -0000 1.19.2.1
+++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.adp 24 Apr 2019 10:24:23 -0000 1.19.2.2
@@ -29,6 +29,7 @@
- Undelete this message
+ - Delete this message permanently in all locales (unregister)
- Delete this message
Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl,v
diff -u -N -r1.24.2.3 -r1.24.2.4
--- openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl 17 Apr 2019 09:53:39 -0000 1.24.2.3
+++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl 24 Apr 2019 10:24:23 -0000 1.24.2.4
@@ -48,8 +48,9 @@
set usage_hide_url [export_vars -base [ad_conn url] { locale package_key message_key show return_url }]
set usage_show_url [export_vars -base [ad_conn url] { locale package_key message_key show {usage_p 1} return_url }]
-set delete_url [export_vars -base message-delete { locale package_key message_key show {return_url {[ad_return_url]}} }]
-set undelete_url [export_vars -base message-undelete { locale package_key message_key show {return_url {[ad_return_url]}} }]
+set delete_url [export_vars -base message-delete { locale package_key message_key show {return_url {[ad_return_url]}} }]
+set undelete_url [export_vars -base message-undelete { locale package_key message_key show {return_url {[ad_return_url]}} }]
+set unregister_url [export_vars -base message-unregister { locale package_key message_key show {return_url {[ad_return_url]}} }]
set deleted_p [db_string get_deleted_p {
select deleted_p
Index: openacs-4/packages/acs-lang/www/admin/message-unregister.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/message-unregister.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/message-unregister.adp 24 Apr 2019 10:24:23 -0000 1.1.2.1
@@ -0,0 +1,12 @@
+
+ @page_title;literal@
+ @context;literal@
+
+
+ Permanently deleting (unregistering) message key @package_key@.@message_key@ in all locales.
+
+
+
Index: openacs-4/packages/acs-lang/www/admin/message-unregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/message-unregister.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/message-unregister.tcl 24 Apr 2019 10:24:23 -0000 1.1.2.1
@@ -0,0 +1,47 @@
+ad_page_contract {
+
+ Undelete a message
+
+ @author Héctor Romojaro
+
+ @creation-date 2019-04-24
+ @cvs-id $Id $
+
+} {
+ locale
+ package_key
+ message_key
+ show:optional
+ confirm_p:boolean,optional
+}
+
+
+# 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 Permanently (Unregister)"
+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 { [info exists confirm_p] && $confirm_p ne ""
+ && [template::util::is_true $confirm_p]
+ } {
+ lang::message::unregister $package_key $message_key
+
+ 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: