Index: openacs-4/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach.tcl,v
diff -u -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/attachments/www/attach.tcl	2 Aug 2004 16:55:37 -0000	1.7.2.2
+++ openacs-4/packages/attachments/www/attach.tcl	11 Aug 2004 02:27:06 -0000	1.7.2.3
@@ -24,9 +24,8 @@
 }
 
 # Load up file storage information
-set root_folder_id [attachments::get_root_folder]
 if {[empty_string_p $folder_id]} {
-    set folder_id $root_folder_id
+    set folder_id [dotlrn_fs::get_user_shared_folder -user_id $user_id]
 } 
 
 # sanity check
@@ -54,11 +53,7 @@
 
 set passthrough_vars "object_id=$object_id&return_url=[ns_urlencode $return_url]&pretty_object_name=[ns_urlencode $pretty_object_name]"
 
-if {$folder_id == $root_folder_id} {
-    set fs_context_bar_html "[_ attachments.Top]"
-} else {
-    set fs_context_bar_html [attachments::context_bar -extra_vars $passthrough_vars -folder_id $folder_id]
-}
+set fs_context_bar_html [attachments::context_bar -extra_vars $passthrough_vars -folder_id $folder_id]
 
 set context "[_ attachments.Attach]"