Index: openacs.org-dev/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/attachments/www/attach.tcl,v
diff -u -r1.1.1.2 -r1.1.1.3
--- openacs.org-dev/packages/attachments/www/attach.tcl	25 Jul 2002 18:46:57 -0000	1.1.1.2
+++ openacs.org-dev/packages/attachments/www/attach.tcl	8 Oct 2002 15:46:55 -0000	1.1.1.3
@@ -1,10 +1,10 @@
-
 ad_page_contract {
 
     Attach something to an object
 
-    @author arjun@openforce.net,ben@openforce
-    @version $Id$
+    @author arjun@openforce.net
+    @author ben@openforce
+    @cvs-id $Id$
 
 } -query {
     {object_id:notnull}
@@ -45,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} {
@@ -59,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