Index: openacs-4/packages/acs-lang/www/change-locale-include.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/change-locale-include.tcl,v diff -u -r1.17.2.2 -r1.17.2.3 --- openacs-4/packages/acs-lang/www/change-locale-include.tcl 25 May 2016 09:22:59 -0000 1.17.2.2 +++ openacs-4/packages/acs-lang/www/change-locale-include.tcl 26 May 2016 16:16:24 -0000 1.17.2.3 @@ -59,11 +59,11 @@ set package_id [element get_value locale package_id_info] if {[util::external_url_p $return_url]} { - ad_page_contract_handle_datasource_error "invalid url" + ad_complain 1 "invalid url" ad_script_abort } - if {![string is integer -strict $package_id]} - ad_page_contract_handle_datasource_error "invalid package_id" + if {![string is integer -strict $package_id]} { + ad_complain 1 "invalid package_id" ad_script_abort } }