file-download.tcl
Downloads a file
- Location:
- /packages/general-comments/www/file-download.tcl
- Authors:
- Phong Nguyen <phong@arsdigita.com>
- Pascal Scheffers <pascal@scheffers.net>
- Created:
- 2000-10-12
- CVS ID:
$Id: file-download.tcl,v 1.6 2018/01/20 22:56:50 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
# /packages/general-comments/www/file-download.tcl ad_page_contract { Downloads a file @param item_id The id of the file attachment @author Phong Nguyen (phong@arsdigita.com) @author Pascal Scheffers (pascal@scheffers.net) @creation-date 2000-10-12 @cvs-id $Id: file-download.tcl,v 1.6 2018/01/20 22:56:50 gustafn Exp $ } { item_id:naturalnum,notnull } # check for permissions permission::require_permission -object_id $item_id -privilege read cr_write_content -item_id $item_id ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End:
