lang::message::revert (private)
lang::message::revert -package_key package_key \ -message_key message_key -locale locale
Defined in packages/acs-lang/tcl/lang-message-procs.tcl
Revert a message to the last overwritten version of it, i.e. revert the last change.
- Switches:
- -package_key (required)
- -message_key (required)
- -locale (required)
- Author:
- Peter Marklund
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set last_overwritten_message [db_string select_last_overwritten_message { select old_message from lang_messages_audit lma1 where lma1.package_key = :package_key and lma1.message_key = :message_key and lma1.locale = :locale and lma1.audit_id = (select max(lma2.audit_id) from lang_messages_audit lma2 where lma2.package_key = lma1.package_key and lma2.message_key = lma1.message_key and lma2.locale = lma1.locale ) }] lang::message::register $locale $package_key $message_key $last_overwritten_messageGeneric XQL file: packages/acs-lang/tcl/lang-message-procs.xql
PostgreSQL XQL file: packages/acs-lang/tcl/lang-message-procs-postgresql.xql
Oracle XQL file: packages/acs-lang/tcl/lang-message-procs-oracle.xql