Index: openacs-4/packages/file-storage/www/folder-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/www/folder-list.tcl	5 Nov 2002 17:19:59 -0000	1.2
+++ openacs-4/packages/file-storage/www/folder-list.tcl	19 Jan 2004 14:43:40 -0000	1.3
@@ -1,7 +1,7 @@
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
 
-if ![empty_string_p $file_id] {
+if [string equal $base_url file-move-2] {
     set children_clause [db_map children_clause]
 } else {
     set children_clause ""
@@ -21,4 +21,6 @@
  connect by prior item_id = parent_id
  start with item_id = file_storage.get_root_folder(:package_id)
 "
-db_multirow folder folder $sql
+db_multirow -extend link_url folder folder $sql { set link_url [export_vars -base $base_url {file_id {parent_id $new_parent}}] }
+
+