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.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl	23 Oct 2002 11:38:59 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl	15 Aug 2003 14:30:10 -0000	1.2
@@ -5,9 +5,12 @@
     @creation-date 23 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:integer
+    {return_url "version-i18n-index?version_id=$version_id"}
 }
 
-lang::catalog::export_package_to_files [apm_package_key_from_version_id $version_id]
+set page_title "Message Export Results"
 
-ad_returnredirect "version-i18n-index?version_id=$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]