Index: openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl 9 Oct 2002 16:03:50 -0000 1.1 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl 11 Oct 2002 17:57:47 -0000 1.2 @@ -1,14 +1,14 @@ ad_page_contract { - Internationalize a certain adp file. Give the user the possibility to + Internationalize a certain adp file (the next one in the list). Give the user the possibility to determine which texts should be substituted and which keys should be used. @author Peter Marklund (peter@collaboraid.biz) @creation-date 8 October 2002 @cvs-id $Id$ } { version_id:integer,notnull - {adp_files:multiple} - {adp_action:multiple} + {files:multiple} + {file_action:multiple} } db_1row package_version_info "select pretty_name, version_name from apm_package_version_info where version_id = :version_id" @@ -17,22 +17,22 @@ set context_bar [ad_context_bar $page_title] # Figure out which actions to take on the selected adp:s -set replace_text_p [ad_decode [lsearch -exact $adp_action replace_text] "-1" "0" "1"] -set replace_tags_p [ad_decode [lsearch -exact $adp_action replace_tags] "-1" "0" "1"] +set replace_text_p [ad_decode [lsearch -exact $file_action replace_text] "-1" "0" "1"] +set replace_tags_p [ad_decode [lsearch -exact $file_action replace_tags] "-1" "0" "1"] # If no texts should be replaced we need not give the user a choice of keys to use and # can go straight to the processing -set redirect_url "version-i18n-process-2?[export_vars -url {version_id adp_files:multiple adp_action:multiple}]" +set redirect_url "version-i18n-process-2?[export_vars -url {version_id files:multiple file_action:multiple}]" if { ! $replace_text_p } { ad_returnredirect $redirect_url ad_script_abort } # Process one adp at a time interactively -set adp_file [lindex $adp_files 0] +set file [lindex $files 0] -set adp_report_list [lang::util::replace_adp_text_with_message_tags "[acs_root_dir]/$adp_file" report] +set adp_report_list [lang::util::replace_adp_text_with_message_tags "[acs_root_dir]/$file" report] set adp_replace_list [lindex $adp_report_list 0] set adp_no_replace_list [lindex $adp_report_list 1] @@ -48,6 +48,6 @@ multirow append replacements [lindex $key_pair 0] [lindex $key_pair 1] } -set hidden_form_vars [export_vars -form {version_id adp_files:multiple adp_action:multiple}] +set hidden_form_vars [export_vars -form {version_id files:multiple file_action:multiple}] ad_return_template