# /packages/photo-album/www/images/index.vuh
# @author Tom Baginski, bags@arsdigita.com
# #cvs-id $Id: index.vuh,v 1.1.1.1 2002/07/09 17:35:10 rmello Exp $
#
# serves images
#
# expecting a image_id as path_info

# wtem@olywa.net, 2001-09-24
# fully reworked

set image_id [ad_conn path_info]		

if {[string equal [ad_parameter CheckPermissionOnImageServeP] "t"]} {
    ad_require_permission $image_id "read"
} 

cr_write_content -revision_id $image_id