Index: openacs-4/packages/dotkul-admin/www/children.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotkul-admin/www/Attic/children.tcl,v diff -u -N -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotkul-admin/www/children.tcl 17 Mar 2004 15:35:37 -0000 1.1.2.1 +++ openacs-4/packages/dotkul-admin/www/children.tcl 22 Mar 2004 14:43:03 -0000 1.1.2.2 @@ -17,13 +17,30 @@ set label $child set node_type [dotkul::get_node_type $child_path] if { ![empty_string_p $node_type] } { - append label " ($node_type)" + #append label " ($node_type)" } - set action_url ".?path=$child_path" + + switch $node_type { + page { + set icon "resources/xloadtree/images/xp/file.png" + } + default { + set icon {} + } + } + + set action_url "properties?path=$child_path" set src_url "children?path=$child_path" - append document " 0 } { append document "src=\"$src_url\" " }