Index: openacs-4/packages/wp-slim/tcl/printer-view-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/tcl/printer-view-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/tcl/printer-view-procs.tcl	2 Feb 2003 20:35:17 -0000	1.1.2.1
@@ -0,0 +1,22 @@
+ad_library {
+
+   Wimpy Helper methods
+}
+
+ad_proc get_attach_list {
+slide_item_id
+}  {
+
+db_multirow attach_list get_attachments {
+    
+    select live_revision as attach_id, display, name as file_name
+    from (select live_revision, name
+          from cr_items
+          where parent_id = :slide_item_id and
+                content_type in ('cr_wp_image_attachment', 'cr_wp_file_attachment')
+          ) a
+    left join cr_wp_image_attachments on (a.live_revision = attach_id)
+
+}
+
+}
Index: openacs-4/packages/wp-slim/tcl/printer-view-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/tcl/printer-view-procs.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/tcl/printer-view-procs.xql	2 Feb 2003 20:35:17 -0000	1.1.2.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_attachments">      
+  <querytext>
+    select live_revision as attach_id, display, name as file_name
+    from (select live_revision, name
+          from cr_items
+          where parent_id = :slide_item_id and
+                content_type in ('cr_wp_image_attachment', 'cr_wp_file_attachment')
+          ) a
+    left join cr_wp_image_attachments on (a.live_revision = attach_id)
+  </querytext>
+</fullquery>
+ 
+</queryset>
+
+
+}