Index: openacs-4/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/attachments/www/attach.tcl	10 Sep 2002 22:22:22 -0000	1.4
+++ openacs-4/packages/attachments/www/attach.tcl	17 Sep 2002 21:08:38 -0000	1.5
@@ -1,4 +1,3 @@
-
 ad_page_contract {
 
     Attach something to an object
@@ -46,12 +45,8 @@
 set folder_name [fs::get_object_name -object_id $folder_id]
 
 # Folder contents
-set rows [fs::get_folder_contents \
-    -folder_id $folder_id \
-    -user_id $user_id]
+db_multirow contents select_folder_contents {}
 
-template::util::list_of_ns_sets_to_multirow -rows $rows -var_name "contents"
-
 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} {
@@ -60,6 +55,5 @@
     set fs_context_bar_html [attachments::context_bar -extra_vars $passthrough_vars -folder_id $folder_id]
 }
 
-set context_bar {Attach}
+set context "Attach"
 
-ad_return_template