Index: openacs-4/packages/acs-admin/www/apm/version-i18n.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 29 Oct 2002 08:14:24 -0000 1.4
+++ openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 10 Nov 2002 20:09:53 -0000 1.5
@@ -22,7 +22,7 @@
set package_key [apm_package_key_from_version_id $version_id]
foreach file [lsort [ad_find_all_files [acs_package_root_dir $package_key]]] {
- set file_regexp [ad_decode $file_type adp {\.adp$} {\.tcl$}]
+ set file_regexp ".${file_type}\$"
if { [regexp $file_regexp $file match] } {
set relative_path [ad_make_relative_path $file]
@@ -35,19 +35,23 @@
set number_of_message_tags [llength [lang::util::get_temporary_tags_indices $file_contents]]
- if { [string equal $file_type adp] } {
- # We are dealing with adp files
- set number_of_message_keys [llength [lang::util::get_hash_indices $file_contents]]
- set adp_text_result_list [lang::util::replace_adp_text_with_message_tags $file report]
- set number_of_text_snippets [llength [lindex $adp_text_result_list 0]]
+ switch -- $file_type {
+ adp {
+ set number_of_message_keys [llength [lang::util::get_hash_indices $file_contents]]
+ set adp_text_result_list [lang::util::replace_adp_text_with_message_tags $file report]
+ set number_of_text_snippets [llength [lindex $adp_text_result_list 0]]
- set status_string "$number_of_text_snippets texts, $number_of_message_tags tags, $number_of_message_keys keys"
- } else {
- # We are dealing with tcl files
-
- set status_string "$number_of_message_tags tags"
+ set status_string "$number_of_text_snippets texts, $number_of_message_tags tags, $number_of_message_keys keys"
+ }
+ tcl {
+ set status_string "$number_of_message_tags tags"
+ }
+ sql {
+ set number_of_message_keys [llength [lang::util::get_hash_indices $file_contents]]
+ set status_string "$number_of_message_tags tags, $number_of_message_keys keys"
+ }
}
-
+
close $file_id
} else {
@@ -88,7 +92,7 @@
-values {replace_text} \
-section action_section
} else {
- # TCL files
+ # TCL files or SQL files
element create file_list_form tcl_action_inform \
-datatype text \
-widget inform \
@@ -114,10 +118,16 @@
set status_filter "Show I18N status of files"
}
-if { [string equal $file_type adp] } {
- set file_type_filter "Show adp files | Show tcl files"
-} else {
- set file_type_filter "Show adp files | Show tcl files"
+switch -- $file_type {
+ adp {
+ set file_type_filter "Show adp files | Show tcl files | Show sql files"
+ }
+ tcl {
+ set file_type_filter "Show adp files | Show tcl files | Show sql files"
+ }
+ sql {
+ set file_type_filter "Show adp files | Show tcl files | Show sql files"
+ }
}
ad_return_template