Index: openacs-4/packages/wp-slim/www/get-binary-data.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/get-binary-data.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/get-binary-data.tcl	4 Oct 2001 04:29:01 -0000	1.2
+++ openacs-4/packages/wp-slim/www/get-binary-data.tcl	31 Oct 2001 20:42:07 -0000	1.3
@@ -16,23 +16,13 @@
 # serve content. I wonder what is "the content repository's methods of spitting back blobs".
 # Does it exist at all?
 
+# DRB: it didn't exist when you asked the question but it does now!
+
 set url [ad_conn url]
 
 if {![regexp {attach/([0-9]+)/(.*)} $url match attach_id file_name]} {
     ns_log notice "Could not get a pres_item_id and slide_item_id out of url=$url"
     ad_return_error "Wimpy Point" "Could not get a pres_item_id and slide_item_id out of url=$url"
 }
 
-
-set mime_type [db_string get_mime_type {
-select mime_type
-from cr_revisions
-where revision_id = :attach_id
-}]
-
-ReturnHeaders $mime_type
-db_write_blob get_image "
-select content
-from cr_revisions
-where revision_id = $attach_id
-"
+cr_write_content -item_id $attach_id