Index: openacs-4/packages/attachments/tcl/attachments-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/Attic/attachments-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/attachments/tcl/attachments-procs-postgresql.xql	12 Jul 2002 14:19:26 -0000	1.1
+++ openacs-4/packages/attachments/tcl/attachments-procs-postgresql.xql	30 Aug 2002 14:44:08 -0000	1.2
@@ -1,12 +1,25 @@
 <?xml version="1.0"?>
 <queryset>
-<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="attachments::get_attachments.select_attachments">
-<querytext>
-select item_id, acs_object__name(item_id) from attachments
-where object_id= :object_id
-</querytext>
-</fullquery>
+    <fullquery name="attachments::get_attachments.select_attachments">
+        <querytext>
+            select item_id,
+                   acs_object__name(item_id)
+            from attachments
+            where object_id = :object_id
+            and approved_p = 't'
+        </querytext>
+    </fullquery>
  
+    <fullquery name="attachments::get_all_attachments.select_attachments">
+        <querytext>
+            select item_id,
+                   acs_object__name(item_id),
+                   approved_p
+            from attachments
+            where object_id = :object_id
+        </querytext>
+    </fullquery>
+ 
 </queryset>