| "
# use the indent variable to hold current indent level
# we'll use it later to indent stuff at the end by the amount
@@ -160,7 +155,7 @@
for {set i 0} {$i < 3*$mylevel} {incr i} {
append indent " "
}
- doc_body_append $indent
+ append body $indent
if {!$root_p && $n_children > 0} {
set link "+"
@@ -180,33 +175,33 @@
lappend urlvars "root_id=$root_id"
- doc_body_append "($link) "
+ append body "($link) "
} else {
- doc_body_append " "
+ append body " "
}
- doc_body_append ""
+ append body ""
if {!$root_p && $root_id != $node_id} {
- doc_body_append ""
+ append body ""
}
- doc_body_append "$name"
+ append body "$name"
if {!$root_p && $root_id != $node_id} {
- doc_body_append ""
+ append body ""
}
- doc_body_append [ad_decode $directory_p t / f ""]
+ append body [ad_decode $directory_p t / f ""]
- doc_body_append " [join $dir_controls " | "] | "
+ append body " [join $dir_controls " | "] "
- doc_body_append ""
+ append body " | "
if {[empty_string_p $object_id]} {
if {$new_application == $node_id} {
#Generate a package_id for double click protection
set new_package_id [db_nextval acs_object_id_seq]
- doc_body_append "
"
} else {
- doc_body_append "(none)"
+ append body "(none)"
}
} elseif {$rename_application == $node_id} {
- doc_body_append "
"
} else {
- doc_body_append "[lang::util::localize $object_name]"
+ append body "[lang::util::localize $object_name]"
}
if {![empty_string_p $object_id] || $new_application != $node_id } {
- doc_body_append " | $package_pretty_name | \[ [join $controls " | "] \] | "
+ append body "$package_pretty_name | \[ [join $controls " | "] \] | "
}
- doc_body_append "
\n"
+ append body "