Index: openacs-4/packages/acs-subsite/www/shared/portrait-bits.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/portrait-bits.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/shared/portrait-bits.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/shared/portrait-bits.tcl	31 Oct 2001 20:42:07 -0000	1.2
@@ -8,20 +8,10 @@
     user_id:integer
 }
 
-if ![db_0or1row get_item_id "select cr.revision_id, c.item_id, mime_type
-from acs_rels a, cr_items c, cr_revisions cr
-where a.object_id_two = c.item_id
-and c.live_revision = cr.revision_id
-and a.object_id_one = :user_id
-and a.rel_type = 'user_portrait_rel'"] {
+if { ![db_0or1row get_item_id ""] } {
     ad_return_error "Couldn't find portrait" "Couldn't find a portrait for User $user_id"
     return
 }
 
-ReturnHeaders $mime_type
+cr_write_content -item_id $item_id
 
-db_write_blob output_portrait "select content
-from cr_revisions
-where revision_id = $revision_id"
- 
-