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 -r1.8 -r1.9 --- openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl 14 Aug 2003 16:06:20 -0000 1.8 +++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl 15 Aug 2003 08:37:08 -0000 1.9 @@ -30,12 +30,17 @@ "$package_key.$message_key"] +# We let you create/delete messages keys if you're in the default locale +set create_p [string equal $current_locale $default_locale] + set description_edit_url "edit-description?[export_vars { locale package_key message_key show }]" set usage_hide_url "[ad_conn url]?[export_vars { locale package_key message_key show return_url }]" set usage_show_url "[ad_conn url]?[export_vars { locale package_key message_key show {usage_p 1} return_url }]" +set delete_url "message-delete?[export_vars { locale package_key message_key show {return_url {[ad_return_url]}} }]" + ad_form -name message -form { {locale:text(hidden),optional {value $current_locale}} {package_key:text(hidden),optional {value $package_key}}