ad_page_contract { Returns the contents of an object @author Lars Pind (lars@collaboraid.biz) @creation-date 2003-10-14 @cvs-id $Id: index.vuh,v 1.3.2.1 2006/10/31 10:13:03 jarkko Exp $ } { revision_id:optional,naturalnum } set root_id [bcms::folder::get_id_by_package_id -parent_id 0] set extra_url [eval file join [lrange [file split [ad_conn extra_url]] 1 end]] if { [empty_string_p $extra_url] } { set extra_url "index" } # get the item by url if now revision id is given if { ![info exists revision_id] } { array set item [bcms::item::get_item_by_url -root_id $root_id -url $extra_url -revision live] } else { array set item [bcms::revision::get_revision -revision_id $revision_id] } with_catch errmsg { cr_write_content -item_id $item(item_id) } { ad_return_exception_template -status 404 "/packages/simulation/www/404" }