Index: openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl	23 Oct 2002 11:38:59 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl	29 Oct 2002 08:14:24 -0000	1.2
@@ -6,11 +6,21 @@
     @cvs-id $Id$  
 } {
     version_id:integer,notnull    
+} -properties {
+    page_title
+    context_bar
+    num_cat_files
 }
 
-db_1row package_version_info "select pretty_name, version_name from apm_package_version_info where version_id = :version_id"
+db_1row package_version_info { 
+    select package_key, pretty_name, version_name 
+    from   apm_package_version_info 
+    where  version_id = :version_id 
+}
 
 set page_title "Manage Internationalization of $pretty_name $version_name"
 set context_bar [ad_context_bar $page_title]
 
+set num_cat_files [llength [glob -nocomplain "[acs_package_root_dir $package_key]/catalog/*.cat"]]
+
 ad_return_template