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.2 -r1.3 --- openacs-4/packages/acs-admin/www/apm/version-i18n-export.adp 4 Sep 2003 15:35:48 -0000 1.2 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-export.adp 3 Oct 2003 08:56:40 -0000 1.3 @@ -7,5 +7,5 @@

Catalog files are stored in the directory @catalog_dir@.

-» Return to where you came from +» Return to internationalization management

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.4 -r1.5 --- openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl 4 Sep 2003 15:35:48 -0000 1.4 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-export.tcl 3 Oct 2003 08:56:40 -0000 1.5 @@ -6,14 +6,22 @@ @cvs-id $Id$ } { version_id:integer - {return_url {[export_vars -base "version-i18n-index" { version_id }]}} } -set package_key [apm_package_key_from_version_id $version_id] +db_1row package_version_info { + select package_key, pretty_name, version_name + from apm_package_version_info + where version_id = :version_id +} -set page_title "$package_key Messagess Exported" -set context [list $page_title] +set return_url [export_vars -base "version-i18n-index" { version_id }] +set page_title "Export 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] + set catalog_dir [lang::catalog::package_catalog_dir $package_key] lang::catalog::export_package_to_files [apm_package_key_from_version_id $version_id] Index: openacs-4/packages/acs-admin/www/apm/version-i18n-import.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-import.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-import.adp 3 Oct 2003 08:56:40 -0000 1.1 @@ -0,0 +1,11 @@ + + @page_title;noquote@ + @context;noquote@ + +

Import complete.

+ +

Catalog files have been loaded from the directory @catalog_dir@.

+ +

+» Return to internationalization management +

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.1 -r1.2 --- openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl 23 Oct 2002 11:38:59 -0000 1.1 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl 3 Oct 2003 08:56:40 -0000 1.2 @@ -10,11 +10,25 @@ {format "xml"} } -set package_key [apm_package_key_from_version_id $version_id] +db_1row package_version_info { + select package_key, pretty_name, version_name + from apm_package_version_info + 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] + +set catalog_dir [lang::catalog::package_catalog_dir $package_key] + if { [string equal $format "xml"] } { lang::catalog::import_from_files $package_key } else { lang::catalog::import_from_tcl_files $package_key } -ad_returnredirect "version-i18n-index?version_id=$version_id" Index: openacs-4/packages/acs-admin/www/apm/version-i18n-index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-index.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-admin/www/apm/version-i18n-index.adp 17 Sep 2003 11:20:30 -0000 1.5 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-index.adp 3 Oct 2003 08:56:40 -0000 1.6 @@ -4,46 +4,43 @@

Import/Export Messages

- +

+ +

Localize Package

+ +

+ » Localize messages in package +

+

Internationalize Package

- +

+ » + Convert ADP, + Tcl, and SQL files to using the message catalog. +

Convert Message Catalog to New Format

- +

+ » + Import + old Tcl-based catalog files (.cat files) into the + database. This will allow you to export them back out in the + new format. (NB! Overwrites texts in the database) +

Index: openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl 17 Sep 2003 11:20:30 -0000 1.3 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl 3 Oct 2003 08:56:40 -0000 1.4 @@ -23,4 +23,6 @@ set num_cat_files [llength [glob -nocomplain "[acs_package_root_dir $package_key]/catalog/*.cat"]] -ad_return_template + +set localize_url [export_vars -base "[apm_package_url_from_key "acs-lang"]admin/message-list" { package_key {locale {[ad_conn locale]}}}] +