Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 9 May 2018 15:33:28 -0000 1.15 +++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 21 Oct 2018 17:36:23 -0000 1.16 @@ -50,6 +50,11 @@ set user_id [ad_conn user_id] +# +# Build a clickable path named "head" displayed above the site node +# table. +# +set head "" db_foreach path_select {} { if {$node_id != $root_id && $admin_p == "t"} { set href [export_vars -base . {expand:multiple {root_id $node_id}}] @@ -72,6 +77,7 @@ append head " " } + if {[llength $expand] == 0} { lappend expand $root_id if { $parent_id ne "" } { @@ -168,7 +174,10 @@ } } -multirow create nodes node_id expand_mode expand_url tree_indent name name_url instance instance_url type action_type action_form_part add_folder_url new_app_url unmount_url mount_url rename_url delete_url parameters_url permissions_url extra_form_part view_p +multirow create nodes \ + node_id expand_mode expand_url tree_indent name name_url instance instance_url \ + type action_type action_form_part add_folder_url new_app_url unmount_url mount_url \ + rename_url delete_url parameters_url permissions_url extra_form_part view_p set open_nodes [list] db_foreach nodes_select {} { @@ -281,7 +290,11 @@ set action_form_part [export_vars -form {expand:multiple parent_id node_type root_id}] } - multirow append nodes $node_id $expand_mode $expand_url $indent $name $name_url $object_name $url $package_pretty_name $action_type $action_form_part $add_folder_url $new_app_url $unmount_url $mount_url $rename_url $delete_url $parameters_url $permissions_url "" $view_p + multirow append nodes \ + $node_id $expand_mode $expand_url $indent $name $name_url $object_name \ + $url $package_pretty_name $action_type $action_form_part $add_folder_url \ + $new_app_url $unmount_url $mount_url $rename_url $delete_url $parameters_url \ + $permissions_url "" $view_p }