Index: openacs.org-dev/packages/attachments/tcl/attachments-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/attachments/tcl/attachments-procs-oracle.xql,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/attachments/tcl/attachments-procs-oracle.xql	9 Jul 2002 17:35:01 -0000	1.1.1.1
+++ openacs.org-dev/packages/attachments/tcl/attachments-procs-oracle.xql	8 Oct 2002 15:46:55 -0000	1.1.1.2
@@ -1,12 +1,25 @@
 <?xml version="1.0"?>
 <queryset>
-<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+    <rdbms><type>oracle</type><version>8.1.6</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>