Index: openacs-4/packages/acs-admin/www/apm/version-i18n-export.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-export.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n-export.adp	15 Aug 2003 14:30:10 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-export.adp	4 Sep 2003 15:35:48 -0000	1.2
@@ -1,10 +1,11 @@
 <master>
-<property name="title">@page_title;noquote@</property>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
 
-<p>
-Export successful. Catalog files are stored in the directory <b>@catalog_dir@</b>.
-</p>
+<p> Export successful. </p>
 
+<p> Catalog files are stored in the directory <b>@catalog_dir@</b>. </p>
+
 <p>
 <b>&raquo;</b> <a href="@return_url@">Return to where you came from</a>
-</p>
\ No newline at end of file
+</p>
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]