message-conflict-revert.tcl
Revert the message to the last overwritten version. Mark conflict of an I18N message as resolved, i.e. set the conflict_p flag to false.
- Location:
- /packages/acs-lang/www/admin/message-conflict-revert.tcl
- Author:
- Peter Marklund
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Revert the message to the last overwritten version. Mark conflict of an I18N message as resolved, i.e. set the conflict_p flag to false. @author Peter Marklund } { package_key:token message_key locale:word {return_url:localurl {[export_vars -base "message-conflicts" { package_key locale }]}} } db_transaction { lang::message::revert \ -package_key $package_key \ -message_key $message_key \ -locale $locale lang::message::edit $package_key $message_key $locale [list conflict_p f] } ad_returnredirect $return_url ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: