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.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl	18 Aug 2003 15:27:12 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl	4 Sep 2003 15:35:48 -0000	1.4
@@ -6,16 +6,14 @@
     @cvs-id $Id$  
 } {
     version_id:integer
-    {return_url ""}
+    {return_url {[export_vars -base "version-i18n-index" { version_id }]}}
 }
 
-set page_title "Message Export Results"
+set package_key [apm_package_key_from_version_id $version_id]
 
-# Default return_url
-if { [empty_string_p $return_url] } {
-    set return_url "version-i18n-index?[export_vars { version_id }]"
-}
+set page_title "$package_key Messagess Exported"
+set context [list $page_title]
 
-set catalog_dir [lang::catalog::package_catalog_dir [apm_package_key_from_version_id $version_id]]
+set catalog_dir [lang::catalog::package_catalog_dir $package_key]
 
 lang::catalog::export_package_to_files [apm_package_key_from_version_id $version_id]