Index: openacs-4/packages/acs-lang/bin/functions.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/bin/functions.sh,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/bin/functions.sh	30 Oct 2003 13:10:53 -0000	1.1
+++ openacs-4/packages/acs-lang/bin/functions.sh	31 Oct 2003 12:58:29 -0000	1.2
@@ -7,3 +7,7 @@
     file_name=$1
     echo $(${script_path}/mygrep '<msg key="([^"]+)"' $file_name)
 }
+
+find_en_us_files() {
+    echo $(find ${script_path}/../../ -regex '.*/catalog/.*en_US.*\.xml' -maxdepth 3)
+}
Index: openacs-4/packages/acs-lang/bin/list-keys.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/bin/list-keys.sh,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/bin/list-keys.sh	30 Oct 2003 13:10:53 -0000	1.1
+++ openacs-4/packages/acs-lang/bin/list-keys.sh	31 Oct 2003 12:58:29 -0000	1.2
@@ -7,7 +7,7 @@
 export script_path=$(dirname $(which $0))
 source ${script_path}/functions.sh
 
-for en_us_file in $(find ${script_path}/../../ -regex '.*/catalog/.*en_US.*\.xml' -maxdepth 3)
+for en_us_file in $(find_en_us_files)
 do
     package_key=$(echo $en_us_file | ${script_path}/mygrep '/([^./]+)[^/]+$')
     for key in $(get_catalog_keys $en_us_file)