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.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 23 Nov 2004 18:49:51 -0000 1.1.2.1 +++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 17 Dec 2004 16:49:56 -0000 1.1.2.2 @@ -93,29 +93,38 @@ -elements { checkbox { display_template { - - + + + - - + + + + + + } } name { label "URL" html "align left" display_template { - - @nodes.tree_indent;noquote@ - + @nodes.tree_indent;noquote@ + + @nodes.name;noquote@ + + + @nodes.name;noquote@ + + - (+) + - (-) + - @nodes.name;noquote@
@@ -171,7 +180,6 @@ set delete_url "" set parameters_url "" set permissions_url "" - if { [lsearch -exact $open_nodes $parent_id] == -1 && $parent_id != "" && $mylevel > 2 } { continue } if {$directory_p == "t"} { @@ -205,11 +213,16 @@ } # use the indent variable to hold current indent level we'll use it later to indent stuff at the end by the amount of the last node - set indent "" - for {set i 0} {$i < 3*$mylevel} {incr i} { - append indent " " + set indent "" + if { $mylevel != 1 } { + if { $mylevel == 2 } { + append indent "  " + } else { + for {set i 1} {$i <4*$mylevel} {incr i} { + append indent " " + } + } } - set expand_mode 0 if {!$root_p && $n_children > 0} { set expand_mode 1