simple.tcl

page to display a simple

Location:
/packages/file-storage/www/simple.tcl
Author:
Jeff Davis davis@xarg.net
Created:
2004-04-27
CVS ID:
$Id: simple.tcl,v 1.5 2017/08/07 23:48:11 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

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.5 2017/08/07 23:48:11 gustafn Exp $
} {
    object_id:naturalnum,notnull
}

# check for write permission on the item
permission::require_permission -object_id $object_id -privilege 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]
}


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: