- dunno

lib/file-tree.tcl

+# /intranet-rest-fs-openacs/lib/file-tree.tcl
+#
+# Variables from page:
+#
+# object_id
+
+# ---------------------------------------------------------
+# 
+# ---------------------------------------------------------
+
+
+set return_url [im_url_with_query]
+set current_user_id [auth::require_login]
+
+
+# Create a random ID for the gantt editor
+set file_tree_rand [expr {round(rand() * 100000000.0)}]
+set file_tree_id "file_tree_$file_tree_rand"
+
+# Get or create the folder related to object_id
+set folder_id [im_rest_fs_folder_for_object -object_id $object_id]
+