# /packages/photo-album/www/images/index.vuh # @author Tom Baginski, bags@arsdigita.com # #cvs-id $Id: index.vuh,v 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