proc get_node {node_id element parent} {
    set element [ns_xml node name $element]
    set parent [ns_xml node name $parent]
    set content [ns_xml node getcontent $node_id]
    if { $element == "description" && $parent == "channel" } {
        ns_write "$content ($element - $parent)"
    }
}

proc get_tree {children element parent level} {
    upvar $parent p
    foreach child_id $children {
        get_node $child_id $element $p($level)
        set new_children [ns_xml node children $child_id]
        if { [llength $new_children] > 0 } {
            set level [expr $level + 1]
            set p($level) $element
            set element $child_id
            get_tree $new_children $element $p($level) $level
        }
    }
}

proc get_doc {doc_id} {
    set level 2
    set parent($level) [list [ns_xml doc root $doc_id]]
    set elements [ns_xml node children $parent($level)]
    for {set i 0} {$i < [llength $elements]} {incr i} {
        set children [ns_xml node children [lindex $elements $i]]
        get_tree $children [lindex $elements $i] $parent($level) $level
    }
}

can't read "p(2)": no such variable
    while executing
"get_node $child_id $element $p($level)"
    (procedure "get_tree" line 4)

Perhaps I pass it incorrectly with:

get_tree $children [lindex $elements $i] $parent($level) $level

Can anyone help out?

/Simon

In this line you are passing an element of the array
"get_tree $new_children $element $p($level) $level"
when you want to pass the whole array.
"get_tree $new_children $element $p $level"

I think.

Simon,

You can't pass arrays (I don't think so...). Instead you may want to try using a list as the $arr_parent_list argument:

get_tree $children [lindex $elements $i] [array get parent] $level

and afterwards:

array set parent $arr_parent_list

/stc

It uses ns_xml and some help procs I wrote.

Change "upvar $parent p" to "upvar p p" and you can stop passing in the parent variable.