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