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.15.2.1 -r1.15.2.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 13 Mar 2019 09:47:01 -0000 1.15.2.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 13 Mar 2019 09:47:29 -0000 1.15.2.2
@@ -4,9 +4,9 @@
@author Peter Marklund (peter@collaboraid.biz)
@creation-date 8 October 2002
- @cvs-id $Id$
+ @cvs-id $Id$
} {
- version_id:naturalnum,notnull
+ version_id:naturalnum,notnull
{pre_select_files_p:boolean "1"}
{show_status_p:boolean "0"}
{only_text_p:boolean "0"}
@@ -25,10 +25,10 @@
set file_option_list [list]
set adp_preselect_list [list]
set package_key [apm_package_key_from_version_id $version_id]
-foreach file [lsort [ad_find_all_files [acs_package_root_dir $package_key]]] {
+foreach file [lsort [ad_find_all_files [acs_package_root_dir $package_key]]] {
set file_regexp ".${file_type}\$"
-
+
if { [regexp $file_regexp $file match] } {
set relative_path [ad_make_relative_path $file]
@@ -45,7 +45,7 @@
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"
}
tcl {
@@ -167,7 +167,7 @@
sql {
set href1 [export_vars -base version-i18n -override {{file_type adp}} {version_id pre_select_files_p show_status_p only_text_p}]
set href2 [export_vars -base version-i18n -override {{file_type tcl}} {version_id pre_select_files_p show_status_p only_text_p}]
-
+
set file_type_filter [subst {
Show adp files |
Show Tcl files |