Index: openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl	4 Sep 2003 15:35:48 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl	3 Oct 2003 08:56:40 -0000	1.5
@@ -6,14 +6,22 @@
     @cvs-id $Id$  
 } {
     version_id:integer
-    {return_url {[export_vars -base "version-i18n-index" { version_id }]}}
 }
 
-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 page_title "$package_key Messagess Exported"
-set context [list $page_title]
+set return_url [export_vars -base "version-i18n-index" { version_id }]
 
+set page_title "Export 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]
 
 lang::catalog::export_package_to_files [apm_package_key_from_version_id $version_id]