Index: openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl	16 Oct 2003 10:50:12 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl	22 Oct 2003 11:39:21 -0000	1.4
@@ -1,13 +1,12 @@
 ad_page_contract {
-    Import messages from catalog files to the database.
-    Will overwrite texts in the database.
+    Import messages from catalog files to the database.  Will overwrite texts in the database.
 
     @author Peter Marklund (peter@collaboraid.biz)
     @creation-date 23 October 2002
     @cvs-id $Id$  
 } {
     version_id:integer,notnull    
-    {format "xml"}
+    {return_url {[export_vars -base "version-i18n-index" { version_id }]}}
 }
 
 db_1row package_version_info { 
@@ -16,12 +15,12 @@
     where  version_id = :version_id 
 }
 
-set return_url [export_vars -base "version-i18n-index" { version_id }]
-
 set page_title "Import 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]
+                 [list [export_vars -base "version-i18n-index" { version_id }] "Internationalization"] $page_title]
 
+set catalog_dir [lang::catalog::package_catalog_dir $package_key]
+
 lang::catalog::import -package_key $package_key