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 -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\" " } Index: openacs-4/packages/dotkul-admin/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotkul-admin/www/Attic/index.adp,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotkul-admin/www/index.adp 17 Mar 2004 15:35:37 -0000 1.1.2.1 +++ openacs-4/packages/dotkul-admin/www/index.adp 22 Mar 2004 14:43:03 -0000 1.1.2.2 @@ -1,49 +1,23 @@ - - Metadata - @path@ - - - + + + OpenACS + + -

-

Tree

-

@nodes.indent@ @nodes.label@ (@nodes.type@)
-  
-

- -

-

Properties

-

Type: @node_type@

- -

+ + + + + + + + + + <p> + This HTML frameset displays multiple Web pages. To view this frameset, use a + Web browser that supports HTML 4.0 and later. + </p> + + + + Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/index.adp~'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/dotkul-admin/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotkul-admin/www/Attic/index.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotkul-admin/www/index.tcl 17 Mar 2004 15:35:37 -0000 1.1.2.1 +++ openacs-4/packages/dotkul-admin/www/index.tcl 22 Mar 2004 14:43:03 -0000 1.1.2.2 @@ -1,86 +1,4 @@ ad_page_contract { Metadata browser -} { - {path /} } -if { ![string equal [string index $path end] /] } { - append path / -} - -set page "

$path

" - -# path is /foo/bar/baz/ -set pathv [split $path /] -# pathv = { {} foo bar blah.xyz } -set pathc [llength $pathv] -# pathc = 4 - -set children [dotkul::get_metadata $path] - -multirow create nodes level label url type selected_p indent - -multirow append nodes 0 "Root" [ad_conn url]?path=/ "root" \ - [string equal / $path] "" - -set root / -for { set i 1 } { $i < $pathc - 1 } { incr i } { - append root [lindex $pathv $i] - multirow append nodes $i [lindex $pathv $i] [ad_conn url]?path=$root \ - [dotkul::get_metadata $root.type] [string equal $root/ $path] \ - [string repeat " " $i] - append root / -} - -# Unfinished hack to show siblings if there are no children - -if { [llength $children] == 0 } { - set children [dotkul::get_metadata $path] -} else { - incr i -} - -foreach child [lsort $children] { - multirow append nodes $i $child [ad_conn url]?path=$path$child \ - [dotkul::get_metadata $path$child.type] 0 [string repeat " " $i] -} - -multirow create properties key property_type value - -set node_path [string range $path 0 end-1] - -set node_type [dotkul::get_node_type $node_path] - -foreach { property value } [dotkul::get_node_properties $node_path] { - set property_type [dotkul::get_property_type $node_type $property] - - switch $property_type { - metadata_reference_list { - set org_value $value - set value {} - foreach elm $org_value { - append value "$elm " - } - } - metadata_reference { - set value "$value " - } - } - - multirow append properties $property $property_type $value -} - -template::list::create \ - -name properties \ - -elements { - key { - label "Property" - } - property_type { - label "Type" - } - value { - label "Value" - display_template {@properties.value;noquote@} - } - } Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/new-index.adp~'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/properties.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/properties.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/tree-root.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/tree-root.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/tree-view.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotkul-admin/www/tree-view.tcl'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/dotkul-admin/www/resources/xloadtree/demo.html =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotkul-admin/www/resources/xloadtree/Attic/demo.html,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotkul-admin/www/resources/xloadtree/demo.html 17 Mar 2004 15:35:38 -0000 1.1.2.1 +++ openacs-4/packages/dotkul-admin/www/resources/xloadtree/demo.html 22 Mar 2004 14:43:09 -0000 1.1.2.2 @@ -39,15 +39,15 @@ webFXTreeConfig.lIcon = "images/xp/L.png"; webFXTreeConfig.tIcon = "images/xp/T.png"; -//var tree = new WebFXLoadTree("WebFXLoadTree", "tree1.xml"); +var tree = new WebFXLoadTree("WebFXLoadTree", "http://localhost:8002/kul-admin/children?path=/site-map"); //tree.setBehavior("classic"); -var rti; -var tree = new WebFXTree("Root"); -tree.add(new WebFXTreeItem("Tree Item 1")); -tree.add(new WebFXLoadTreeItem("Tree Item 2", "tree.xml")); -tree.add(rti = new WebFXLoadTreeItem("Tree Item 3 (Reload)", "date.xml.pl")); -tree.add(new WebFXTreeItem("Tree Item 4")); +//var rti; +//var tree = new WebFXTree("Root"); +//tree.add(new WebFXTreeItem("Tree Item 1")); +//tree.add(new WebFXLoadTreeItem("Tree Item 2", "tree.xml")); +//tree.add(rti = new WebFXLoadTreeItem("Tree Item 3 (Reload)", "date.xml.pl")); +//tree.add(new WebFXTreeItem("Tree Item 4")); document.write(tree);