ad_page_contract {
    page to display a simple

    @author Jeff Davis davis@xarg.net
    @creation-date 2004-04-27
    @cvs-id $Id: simple.tcl,v 1.3 2007/06/15 17:40:29 matthewg Exp $
} {
    object_id:notnull
}

# check for write permission on the item
ad_require_permission $object_id read
set edit_p [permission::permission_p -object_id $object_id -privilege write]

# Load up data 
db_1row select_item_info "select name, url, description, folder_id from fs_urls_full where url_id=:object_id"

set title $name
set pretty_name $name
set context [fs_context_bar_list -final [_ file-storage.link] $folder_id]

set categories_p [parameter::get -parameter CategoriesP -package_id [ad_conn package_id] -default 0]
if { $categories_p } {
    set category_links [fs::category_links -object_id $object_id -folder_id $folder_id]
}

