Index: openacs-4/packages/acs-subsite/www/site-map/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/site-map/index.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-subsite/www/site-map/index.tcl 23 Nov 2004 18:43:16 -0000 1.1.2.1 +++ openacs-4/packages/acs-subsite/www/site-map/index.tcl 17 Dec 2004 16:35:09 -0000 1.1.2.2 @@ -85,20 +85,24 @@ -multirow nodes \ -key node_id \ -elements { - name { - label "Site Map" + name_instance { + label "
Instance
" html "align left" display_template { - - @nodes.tree_indent;noquote@ - + @nodes.tree_indent;noquote@ + + @nodes.name;noquote@ + + + @nodes.instance;noquote@ + - (+) +   - (-) +   - @nodes.name;noquote@ +
@@ -109,8 +113,8 @@
} - } instance { - label "Instance" + } instance_url { + label "
URL
" html "align left" display_template { @@ -130,7 +134,7 @@ -
@nodes.instance;noquote@ + @nodes.instance_url;noquote@ } } @@ -183,9 +187,19 @@ # 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 " " + if { $mylevel != 1 } { + if { $mylevel == 2 } { + append indent "  " + } else { + for {set i 1} {$i <4*$mylevel} {incr i} { + append indent " " + } + } } + + #for {set i 0} {$i < 3*$mylevel} {incr i} { + #append indent " " + #} set expand_mode 0 if {!$root_p && $n_children > 0} {