fs_order_files

one of the documented procedures in this installation of the ACS
Usage:
fs_order_files   db   { user_id "" }   { group_id "" }   { public_p "" }
What it does:
Set the ordering and depth for the files so that they may be displayed quickly
Defined in: /web/philip/tcl/file-storage-defs.tcl

Source code:


    # Note: The following query must not use any WHERE clause.
    # Otherwise, Oracle will change the ordering.

    set ordering_query "select file_id, the_level from fs_files_tree"

    set order_depth_list [database_to_tcl_list_list $db $ordering_query]
    set sort_key 1
    
    foreach id_depth $order_depth_list {
	set id [lindex $id_depth 0] 
	set depth [expr [lindex $id_depth 1]-1] 
	ns_db dml $db "update fs_files set sort_key=$sort_key, depth=$depth where file_id=$id"
	incr sort_key
    }


philg@mit.edu