About • Download • Documentation • Wiki • Forums • Contribute • Support The Toolkit for Online Communities 15939 Community Members, 0 members online, 2196 visitors today Log In Register

file-download.tcl

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.3 2001/10/31 20:42:07 donb Exp $

Related Files

• /usr/local/openacs.org/packages/general-comments/www/file-download.tcl

[ hide source ] | [ make this the default ]

Content File Source

# /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.3 2001/10/31 20:42:07 donb Exp $
} {
    item_id:notnull
}

# check for permissions
ad_require_permission $item_id read

cr_write_content -item_id $item_id