Index: openacs-4/packages/acs-lang/www/admin/package-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/package-list.tcl,v diff -u -N -r1.8 -r1.8.2.1 --- openacs-4/packages/acs-lang/www/admin/package-list.tcl 13 Aug 2007 11:13:46 -0000 1.8 +++ openacs-4/packages/acs-lang/www/admin/package-list.tcl 18 Apr 2008 06:51:06 -0000 1.8.2.1 @@ -31,30 +31,9 @@ set locale_enabled_p [expr [lsearch [lang::system::get_locales] $current_locale] != -1] set site_wide_admin_p [acs_user::site_wide_admin_p] -set import_all_url [export_vars -base import-messages { { locale $current_locale } {return_url {[ad_return_url]}} }] -set export_all_url [export_vars -base export-messages { { locale $current_locale } {return_url {[ad_return_url]}} }] -set keeplocal_p [parameter::get -parameter KeepLocalTranslations -default ""] -##qst::Debug "keeplocal_p=$keeplocal_p" ==1== -set import_all_url [export_vars -base "import-messages" { keeplocal_p {locale $current_locale} {return_url {[ad_return_url]}} }] -if {[string length $keeplocal_p]} { - # we have the parameter, turn to opposite for the special url - if {[string is true $keeplocal_p]} { - set keeplocal_p 0 - set import_all_normal_text "Keep local changes" - set import_all_special_text "Discard local changes" - } else { - set keeplocal_p 1 - set import_all_normal_text "Discard local changes" - set import_all_special_text "Keep local changes" - } - set import_all_special_url [export_vars -base "import-messages" { keeplocal_p {locale $current_locale} {return_url {[ad_return_url]}} }] -} else { - set import_all_special_url {} -} - ##### # # Package/message list @@ -134,3 +113,6 @@ } } + +set import_all_url [export_vars -base import-messages { { locale $current_locale } {return_url {[ad_return_url]}} }] +set export_all_url [export_vars -base export-messages { { locale $current_locale } {return_url {[ad_return_url]}} }]