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:
