version-i18n-export.tcl

Export messages from the database to xml catalog files.

Location:
/packages/acs-admin/www/apm/version-i18n-export.tcl
Author:
Peter Marklund <peter@collaboraid.biz>
Created:
23 October 2002
CVS ID:
$Id: version-i18n-export.tcl,v 1.9 2017/08/07 23:47:45 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Export messages from the database to xml catalog files.

    @author Peter Marklund (peter@collaboraid.biz)
    @creation-date 23 October 2002
    @cvs-id $Id: version-i18n-export.tcl,v 1.9 2017/08/07 23:47:45 gustafn Exp $  
} {
    version_id:naturalnum,notnull
    {return_url:localurl {[export_vars -base "version-i18n-index" { 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 "Export Messages"
set context [list \
                 [list "/acs-admin/apm/" "Package Manager"] \
                 [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] \
                 [list [export_vars -base "version-i18n-index" { version_id }] "Internationalization"] $page_title]

set catalog_dir [lang::catalog::package_catalog_dir $package_key]

lang::catalog::export -package_key [apm_package_key_from_version_id $version_id]

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: