Initiliaze a bunch of state variables for a connect by ordered
+ tree.
+ # Create a 'sorter' to sort the data
+ tree::sorter::create -multirow categories_tree -sort_by sort_key
+
+ # Get the data
+ db_multirow -extend {sort_key} categories_tree categories_tree_sql {
+ select lpad(' ', 6*4*(level-1) + 1, ' ') || name as name,
+ category_id,
+ name as rawname,
+ level
+ from categories
+ connect by prior category_id = parent_category_id
+ start with parent_category_id = category.lookup('//Personnel Title')
+ } {
+ set sort_key [tree::sorter::make_full_key_for \
+ -multirow categories_tree \
+ -partial_key $rawname \
+ -id $category_id \
+ -level $level]
+ }
+
+ # Sort the data
+ tree::sorter::sort -multirow categories_tree
+ connect by-ordered tree. This updates some state variables
+ and makes a key from their values. Once all rows are processed, a call to
+ tree::sorter::sort should be made to sort the multirow data.
+
+ @author helsleya@cs.ucr.edu
+
+ @param multirow The name of the multirow data-source to make a sort-key for.
+ @param partial_key The primary field by which the tree will be (hierarchically) sorted.
+ @param id The ID to be used as a tie-breaker when sorting. This should be a candidate-key.
+ @param level The depth of the node uniquely identified by id
+ @return A key for sorting rows in a tree
+
+ @see tree::sorter::create
+ @see tree::sorter::sort
+} {
+ # Get access to state-variables
+ upvar ${multirow}_tree_sorter_sort_stack stack
+
+ set top [llength $stack]
+ set newtop [expr $level - 1]
+
+ # Pop from the top of the stack and the sort-key if necessary
+ if {$newtop < $top && $newtop >= 0} {
+ set stack [lreplace $stack $newtop end]
+ }
+
+ # Push current node onto stack and sort-key
+ lappend stack "$partial_key $id"
+ set full_sort_key "//[join $stack //]"
+
+ return $full_sort_key
+}
+
+ad_proc -public workflow::tree::sorter::sort {
+ {-multirow:required}
+} {
+ Sort the given multirow using the full-sort-keys built earlier by the calls
+ to tree::sorter proc
+ tree::sorter::make_full_key_for created with
+ tree::sorter::create.
+
+ @author helsleya@cs.ucr.edu
+
+ @param multirow The name of the multirow data-source to be sorted.
+
+ @see tree::sorter::create
+ @see tree::sorter::make_full_key_for
+} {
+ # Get access to state-variables
+ upvar ${multirow}_tree_sorter_sort_column sort_by
+ upvar ${multirow}_tree_sorter_sorted_rows rows
+
+ # Get access to the data
+ set rows [uplevel "template::util::multirow_to_list $multirow"]
+
+ if {[llength $rows] > 1} {
+ # Find the correct index to sort by
+ set header_row [lindex $rows 0]
+ set sort_index [expr 1 + [lsearch -exact $header_row $sort_by]]
+
+ # Sort the data
+ set rows [lsort -index $sort_index $rows]
+
+ # Convert the data back into a multirow data-source
+ uplevel "template::util::list_to_multirow $multirow \$${multirow}_tree_sorter_sorted_rows"
+ }
+}
+
+ad_proc -public workflow::tree::sorter::sort_list_of_lists {
+ {-list:required}
+ {-sort_by:required}
+ {-object_id:required}
+ {-parent_object_id:required}
+} {
+ Sort the given list-of-lists. The list should have 3-4 columns: +
+ # Get a list that can be used as the options of a 'select' widget in ad_form
+ set directories [db_list_of_lists get_directories {
+ select lpad(' ', (level-1)*4*6 + 1, ' ') || directory_name as directory_name,
+ directory_id,
+ parent_directory_id,
+ directory_name
+ from directories
+ start with parent_directory_id is null
+ connect by prior directory_id = parent_directory_id
+ }]
+
+ # Sort the options
+ set directories [tree::sorter::sort_lists_of_lists -list $directories -sort_by 3 -object_id 1 -parent_object_id 2]
+