tree-copy-view.tcl
Displays a simple view of the source category tree for copy.
- Location:
- /packages/categories/www/cadmin/tree-copy-view.tcl
- Author:
- Timo Hentschel <timo@timohentschel.de>
- CVS ID:
$Id: tree-copy-view.tcl,v 1.7.2.2 2019/12/20 21:18:10 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Displays a simple view of the source category tree for copy. @author Timo Hentschel (timo@timohentschel.de) @cvs-id $Id: tree-copy-view.tcl,v 1.7.2.2 2019/12/20 21:18:10 gustafn Exp $ } { source_tree_id:naturalnum,notnull target_tree_id:naturalnum,notnull {locale:word ""} object_id:naturalnum,optional ctx_id:naturalnum,optional } -properties { page_title:onevalue context_bar:onevalue locale:onevalue tree:multirow } set user_id [auth::require_login] set tree_id $source_tree_id array set target_tree [category_tree::get_data $target_tree_id $locale] set target_tree_name $target_tree(tree_name) if {$target_tree(site_wide_p) == "f"} { permission::require_permission -object_id $tree_id -privilege category_tree_read } set tree_name [category_tree::get_name $tree_id $locale] set page_title [_ categories.Tree_view_title] set context_bar [category::context_bar $tree_id $locale \ [expr {[info exists object_id] ? $object_id : ""}] \ [expr {[info exists ctx_id] ? $ctx_id : ""}]] lappend context_bar [list \ [export_vars -no_empty -base tree-copy { {tree_id $target_tree_id} locale object_id ctx_id }] \ [_ categories.Action_copy_tree]] \ "View \"$tree_name\"" template::multirow create tree category_name deprecated_p level left_indent foreach category [category_tree::get_tree -all $tree_id $locale] { lassign $category category_id category_name deprecated_p level template::multirow append tree $category_name $deprecated_p $level \ [string repeat " " [expr {($level-1)*5}]] } template::list::create \ -name tree \ -no_data "#categories.None#" \ -elements { category_name { label "#acs-admin.Name#" display_template { @tree.left_indent;noquote@ @tree.category_name@ } } } ad_return_template # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: