ad_page_contract {
    Displays/Adds IMS Metadata 

    @author Ernie Ghiglione (ErnieG@mm.st)
    @creation-date 19 January 2004
    @cvs-id $Id: index.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $

} {
    ims_md_id:integer
}

# set context
set context [list "[_ lorsm.IMS_Metadata_Editor]"]
set title [list "[_ lorsm.IMS_Metadata_Editor]"]
set link [export_vars -base "md_upload" ims_md_id]

set hasmetadata [lors::imsmd::mdExist -ims_md_id $ims_md_id]
set object_type [acs_object_type $ims_md_id]

set write_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege write]
set read_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege read]
