ad_page_contract {
    gets a related file
    see images/index.vuh for futher comments
} {
	file_revision_id:optional,naturalnum
}

if ![info exists file_revision_id] {
    set extra_url [ad_conn extra_url]
    set bcms_root_folder_id [parameter::get -parameter bcms_root_folder_id]
    array set current_item [bcms::item::get_item_by_url -root_id $bcms_root_folder_id -url $extra_url -revision latest]
    if {[array size current_item] > 1} {
        set file_revision_id $current_item(latest_revision)
    } else {
	    ns_returnnotfound
    	ad_script_abort
    }
}

cr_write_content -revision_id $file_revision_id