trees-code.tcl

Location:
/packages/categories/www/cadmin/trees-code.tcl
Author:
Timo Hentschel <timo@timohentschel.de>
Created:
2005-06-05
CVS ID:
$Id: trees-code.tcl,v 1.4.2.1 2019/12/20 21:18:10 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    @author Timo Hentschel (timo@timohentschel.de)
    @creation-date 2005-06-05
    @cvs-id $Id: trees-code.tcl,v 1.4.2.1 2019/12/20 21:18:10 gustafn Exp $

} {
    {locale:word ""}
    tree_id:naturalnum,multiple
}

set user_id [auth::require_login]
permission::require_permission -object_id [ad_conn package_id] -privilege admin

set page_title "[_ categories.code_export]"
set context_bar [list [list [export_vars -base . -no_empty {locale}] "[_ categories.cadmin]"$page_title]

multirow create trees tree_id
foreach tid $tree_id {
    multirow append trees $tid
}

ad_return_template

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