Index: openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl	23 Oct 2002 11:38:59 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl	3 Oct 2003 08:56:40 -0000	1.2
@@ -10,11 +10,25 @@
     {format "xml"}
 }
 
-set package_key [apm_package_key_from_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 return_url [export_vars -base "version-i18n-index" { version_id }]
+
+set page_title "Import Messages"
+set context [list \
+                 [list "/acs-admin/apm/" "Package Manager"] \
+                 [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] \
+                 [list $return_url "Internationalization"] $page_title]
+
+set catalog_dir [lang::catalog::package_catalog_dir $package_key]
+
 if { [string equal $format "xml"] } {
     lang::catalog::import_from_files $package_key
 } else {
     lang::catalog::import_from_tcl_files $package_key
 }
 
-ad_returnredirect "version-i18n-index?version_id=$version_id"