ad_page_contract {

    virtual url handler for file downloads

    @author Ben Adida
    @creation-date 2 July 2002

} -query {
    {paper_id:integer,optional}
}

if {[exists_and_not_null paper_id]} {

    permission::require_permission -object_id $paper_id -privilege read

    db_1row select_paper_info {
        select cr_revisions.revision_id,
               cr_revisions.title
        from cr_revisions,
             research_papers
        where research_papers.paper_id = :paper_id
        and research_papers.revision_id = cr_revisions.revision_id
    }

    ad_returnredirect "${revision_id}/${title}"
    ad_script_abort

}

foreach {revision_id download_name} [split [ad_conn path_info] /] {break}

cr_write_content -revision_id $revision_id