Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	12 Apr 2001 16:58:18 -0000	1.2
@@ -2808,65 +2808,6 @@
     return ""
 }
 
-ad_proc -public ad_find_all_files {
-    {
-	-include_dirs 0
-	-max_depth 10
-	-check_file_func ""
-    }
-    path
-} {
-
-    Returns a list of full paths to all files under $path in the directory tree
-    (descending the tree to a depth of up to $max_depth).  Clients should not 
-    depend on the order of files returned.
-
-} {
-    # Use the examined_files array to track files that we've examined.
-    array set examined_files [list]
-
-    # A list of files that we will return (in the order in which we
-    # examined them).
-    set files [list]
-
-    # A list of files that we still need to examine.
-    set files_to_examine [list $path]
-
-    # Perform a breadth-first search of the file tree. For each level,
-    # examine files in $files_to_examine; if we encounter any directories,
-    # add contained files to $new_files_to_examine (which will become
-    # $files_to_examine in the next iteration).
-    while { [incr max_depth -1] > 0 && [llength $files_to_examine] != 0 } {
-	set new_files_to_examine [list]
-	foreach file $files_to_examine {
-	    # Only examine the file if we haven't already. (This is just a safeguard
-	    # in case, e.g., Tcl decides to play funny games with symbolic links so
-	    # we end up encountering the same file twice.)
-	    if { ![info exists examined_files($file)] } {
-		# Remember that we've examined the file.
-		set examined_files($file) 1
-
-		if { [empty_string_p $check_file_func] || [eval "$check_file_func $file"] } {
-		    # If it's a file, add to our list. If it's a
-		    # directory, add its contents to our list of files to
-		    # examine next time.
-		    if { [file isfile $file] } {
-			lappend files $file
-		    } elseif { [file isdirectory $file] } {
-			if { $include_dirs == 1 } {
-			    lappend files $file
-			}
-			set new_files_to_examine [concat $new_files_to_examine [glob -nocomplain "$file/*"]]
-		    }
-		}
-	    }
-	}
-	set files_to_examine $new_files_to_examine
-    }
-    return $files
-}
-
-
 # usage: 
 #   suppose the variable is called "expiration_date"
 #   put "[ad_dateentrywidget expiration_date]" in your form