Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	28 Aug 2003 09:41:46 -0000	1.11
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	24 Nov 2003 14:50:34 -0000	1.12
@@ -141,7 +141,7 @@
     } {
         returns a list of attachment ids and names which are approved: {item_id name url}
     } {
-        set lst [db_list_of_lists select_attachments {}]
+        set lst [db_list select_attachments {}]
         set lst_with_urls [list]
 
         foreach item_id $lst {
@@ -163,7 +163,7 @@
     } {
         returns a list of attachment ids and names: {item_id name approved_p url}
     } {
-        set lst [db_list_of_lists select_attachments {}]
+        set lst [db_list select_attachments {}]
         set lst_with_urls [list]
 
         foreach item_id $lst {